;Line을 Pline으로 만든 후 Join
(defun c:J(/ ss k ed en q)
(prompt “n>폴리라인으로 만들 객체를 선택 하세요..”)
(setq ss (ssget))
(setq k 0)
(repeat (sslength ss)
(setq ed (entget (ssname ss k))
en (cdr (assoc 0 ed)))
(if (/= en “LWPOLYLINE”) (setq q 1))
(setq k (1+ k))
);repeat
(if q (command “pedit” “m” ss “” “y” “j” “” “”)
(command “pedit” “m” ss “” “j” “” “”))
(princ)
);defun
수하님의 리습을 이용하고 있습니다만
잘 쓰고 있었는데 요즘 들어 조인을 2번씩 해야 되네요
선이 있으면 전체 드래그 한 후에 J 하면 
위 이미지처럼 나옵니다. 선들이 일단 폴리라인으로 된 후에 오류가 떠버리네요
어디를 수정해야 될까요? 도와주세용
공유
제가 드림때문에 2008이랑 2007이랑 동시에 사용중인데 그거때문에 문제 되는게 있나요?
선 1개를 jjj 시키면 폴리선으로 변경이 안되더라구요 2개 이상 클릭 후 jjj 하면 폴리선으로 변경되네요
그게 불편해서…… ^^; 근데 위 리습은 1개선도 j 하면 폴리선으로 변경되서 좋더라구요
아… 지금 2007 한글 버전 사용중에 있습니다.
드림때문에 2012가 있지만 이걸 쓰고 있네요 ㅠㅠ
캐드 바이러스 검사해보겠습니다 감사합니당~
드림에 jjj 명령어로 조인하시면 리습이 필요없으실거같은데요?
v3 백신으로 돌려보았으나 이상은 없네요… ;;
환장하겠네요 아마 파일이 커서 그런가요? 1도면당 100메가 간당간당하네요 ㅠㅠ