(선결합)리습 수정좀 부탁드립니다.

;;===========================================================
;  Polyline join(99cho_i)
;;———————————————————–
(defun c:AW(/ ss en ent)
   (prompt “nPolyline으로 join할 대상을 선택->”)
   (setq ss (ssget))
   (setq en (ssname ss 0))
   (setq ent (cdr (assoc 0 (entget en))))
   (if (= ent “LINE”)(command “pedit” en “y” “j” ss “” “”))
   (if (= ent “LWPOLYLINE”)(command “pedit” en “j” ss “” “”))
   (command “select” “l” pause)
   (prin1)
)



포털  사이트에서 pj 리습 치면 나오는 리습 aw 로 수정해서 쓰고있는데요

제가 하는작업에서 선잇기 작업을 상당히 많이 하거든요

근데 이 리습으로 선이 연결안될때가 상당히 많습니다.

10번중에 한 2번은 안된다고 보면됩니다.

그럴댄 pe-m-선택-y-j 이런식으로 잇는데요

저..리습..개뿔도 모릅니다 –;;; 저런 언어는…당최  머릿속에 들어가지도 않고요.

그래서 그런데…위의 리습은 pedit 한다음 m(다중)을 하지 않고 바로 연결하는거같아서요

그래서 연결률(?)이 낮은거같은데… pedit 치고 m 친다음 행해지는 명령으로

좀 바꿔주세요 ㅜ_ㅜ



그리고요 arc 선하고 pl 선하고 이으면 한번에 잘안이어지고

포인트를 때엇다가 다시 갓다 붙이고 이으면 이어질때가 있는데…이건왜이런가요?

다른방법은 없는건가요 ?


이상..잘부탁드리겠습니다.


———————————————————————————-

수정한 파일 올립니다.

명령어는 aw 입니다.

(defun c:aw(/ ss en ent)
   (prompt “nPolyline으로 join할 대상을 선택->”)
   (setq ss (ssget))
   (setq en (ssname ss 0))
   (setq ent (cdr (assoc 0 (entget en))))
   (if (= ent “LINE”)(command “pedit” “m” “” en “y” “j” ss “” “”)) —-pedit와 en 사이에 “m” ” ” 를 삽입
   (if (= ent “LWPOLYLINE”)(command “pedit” “m” “” en “j” ss “” “”))—-pedit와 en 사이에 “m” ” ” 를 삽입
    )

마지막에 잇던 
   (command “select” “l” pause)
   (prin1)
이메세지로 인해 결합후 스페이스 또는 우클릭을 한번더해야 하기에 간편함을위해  삭제.

사용법:    aw – 선택 – 엔터        or        선택-aw-엔터


그럼 잘쓰세요~