라인을 폴리라인으로 만드는 간단 리습(Lisp) Pedit 대용

안녕하세요. 라인을 그어놓고 , Pedit를 이용해서 join을 누르고 하는 동작들을 간단히 하는 방법이 없을까?

라고 고민하는 분들에게 좋은 팁이 될 것 같네요~

 

먼저 리습으로 풀어보면...

 

 ; 과정은 이렇습니다. Line을 Pline으로 만든 후 Join하는 방식인데요.

(defun c:ple(/ 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

어찌보면 간단한 리습이라고 생각할지 모르겠지만,

실제로 많은 시간을 단축해 줍니다. 우리가 폴리라인을 만들고 깨고를 수없이 반복하니까요.

 

좋은 리습으로 업무 효율을 높여보면 어떨까요?