폴리라인 연결 리습인데 2011버젼 윈도우 7에서 실행이 안되네요.ㅠㅠ
혹시 수정 가능하신분 수정 부탁드립니다.
;;—————————————————————————–
;; POLYLINE.LSP
;;
;; program : Park Heung Sik
;; d a t e : 2002. 5. 17 fri
;;
;;—————————————————————————–
;; PJ : 선택한 엔티티를 연결한다.
;; PW : 선택한 엔티티의 두께를 설정한다.
;;—————————————————————————–
;;
;; 폴리라인, ARC, 라인을 연결
;;
(DEFUN C:PJ(/ ss s1 dum i chk)
(setq i 0 ss (ssget ‘((-4 . “<OR”)(0 . “LWPOLYLINE”)(0 . “LINE”)(0 . “ARC”)(-4 . “OR>”))))
(if ss
(progn
(command “undo” “g”)
(repeat (sslength ss)
(setq s1 (ssname ss i) chk 1)
(if (setq dum (entget s1))
(progn
(if (and (= “LWPOLYLINE” (cdr (assoc 0 dum)))(= 1 (cdr (assoc 70 dum))))
(setq chk NIL)
)
(if chk
(progn
(command “.pedit” s1)
(if (or (= “LINE” (cdr (assoc 0 dum))) (= “ARC” (cdr (assoc 0 dum))))
(command “y”)
)
(command “j” ss “” “”)
)
)
)
)
(setq i (1+ i))
)
(command “undo” “e”)
)
)
(princ)
)
;;
;; 폴리라인 두께 설정하기
;;
(DEFUN C:PW(/ dum dum1 i dum2 return_r i ea)
(if (setq ss (ssget ‘((-4 . “<OR”)(0 . “LINE”)(0 . “ARC”)(0 . “LWPOLYLINE”)(-4 . “OR>”))))
(progn
(command “undo” “g”)
(setq ea (sslength ss) i 0)
(if (null #PW_WIDTH#) (setq #PW_WIDTH# 0.00))
(setq #PW_WIDTH# (return_r #PW_WIDTH# “n>> 새로운 두께를 입력하세요”))
(repeat ea
(setq dum (ssname ss i)
dum1 (entget dum)
dum2 (cdr (assoc 0 dum1))
i (1+ i)
)
(DUFA_JOB_PROGRESS i ea)
(command “.pedit” dum)
(if (or (= “LINE” dum2) (= “ARC” dum2)) (command “y”))
(command “w” #PW_WIDTH# “”)
)
(command “undo” “e”)
)
)
)