;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 하면 
위 이미지처럼 나옵니다. 선들이 일단 폴리라인으로 된 후에 오류가 떠버리네요
어디를 수정해야 될까요? 도와주세용
공유
v3 백신으로 돌려보았으나 이상은 없네요… ;;
환장하겠네요 아마 파일이 커서 그런가요? 1도면당 100메가 간당간당하네요 ㅠㅠ
드림에 jjj 명령어로 조인하시면 리습이 필요없으실거같은데요?
아… 지금 2007 한글 버전 사용중에 있습니다.
드림때문에 2012가 있지만 이걸 쓰고 있네요 ㅠㅠ
캐드 바이러스 검사해보겠습니다 감사합니당~
선 1개를 jjj 시키면 폴리선으로 변경이 안되더라구요 2개 이상 클릭 후 jjj 하면 폴리선으로 변경되네요
그게 불편해서…… ^^; 근데 위 리습은 1개선도 j 하면 폴리선으로 변경되서 좋더라구요
제가 드림때문에 2008이랑 2007이랑 동시에 사용중인데 그거때문에 문제 되는게 있나요?