[lisp] entmake 로, 라인 대신 폴리라인을 그리고 싶습니다

혹시 리습 프로그램을 잘 만들고 싶으십니까? 제가 충고 말씀 드리자면….. 캡쳐 화면을 보니까 노트패드 라는 프로그램을 사용하는데….. 오토캐드에 비쥬얼 리습 편집기 사용하기를 권합니다. 비쥬얼 리습 편집기를 어느정도 사용하시면 리습 프로그램 실력도 자연히 올라갑니다.

제가 사진 업로드를 수야님 답변 이후에 해서 혼란을 드렸네요 ^^; 원본은 entmake로 라인 만들고, 사진.아래쪽에 ssget L 해서 sssetfirst 해서 command pedit … 으로 폴리라인 만들고 있었습니다 ㅎㅎ 사진은 수야님 답변 참고해서 수정한 이후입니다. 제 수준이 짜깁기만 겨우 가능한 수준이라, 왠만하면 원본 코드를 지우지않고 주석처리만 해 놔서 더욱 헷갈리셨던 것 같습니다

질문이 무슨 내용인진 이해가 안갑니다.

rt (entmake (list ‘(0 . “line”) (cons 10 p5) (cons 11 p6))) – 이줄은 라인 생성 명령입니다 만 (“;”으로 취소됨)

그리고 그 아래줄 인 (entmake (append (list (cons 0 “LWPOLYLINE”) (cons 100 “AcDbEntity”) (cons 100 “AcDbPolyline”) (cons 90 2);정점갯수 (cons 70 0);닫힘열림 (cons 10 p5) (cons 10 p6) )

pline 생성됩니다. 그런데 여기서 폴리라인을 또 만들어야 합니까?

아 감사합니다! 되요 크흑… ㅜㅠ 평소 너무 날로 먹으려는 질문들 거슬려서 차마 못 올렸는데, 제게도 이런날이 오는군요 ㅋ 감사드립니다!!

가장 간단한 형태입니다 (DEFUN c:ff(/ p1 p2) (setq p1(getpoint "np1:")) (setq p2(getpoint p1 "np2:")) (entmake (append (list (cons 0 "LWPOLYLINE") (cons 100 "AcDbEntity") (cons 100 "AcDbPolyline") (cons 90 2);정점갯수 (cons 70 0);닫힘열림 (cons 10 p1) (cons 10 p2) ) ) ) (princ) )

제 노력을 가상히 여기시어 답을 주시면 안될까요 ㅎㅎ 지금 저는 방법을 몰라서 저 아래에 command로 마지막 생성 라인을 잡아서 pedit을 날리고 있습니다 ㅋㅋ;;; 폴리라인 그리려면 xyz 셋으로 만들어야 하는거까지 아는데, 미천한 제가 p5, p6으로 그 셋을 만들지 못하네요 ㅜㅠㅜㅠㅜㅠ

구글에서 AUTOLISP ENTMAKE LWPOLYLINE이라고 검색해보시면 좋은 구문 많이 나옵니다 보통 예시도 같이 올라와 있어요