제가 2002 사용할때 쓰던 리습인데, 2005LT버젼에서는 오류가
뜨네요. 아무래도 변수 오류인거 같은데 수정부탁드립니다.
참고로 서드파트로 리습을 로드해서 사용중입니다.
(defun c:INS (/ ck sa p1 p2 ang l)
(setvar “cmdecho” 0)
(setq sa (getvar “snapang”))
(if (= c nil) (setq c 50))
(setq ck (getreal (strcat “nEnter Insulation Thickness<" (rtos c 2) ">: “))) (if (numberp ck) (setq c ck))
(setvar “osmode” 127)
(setq p1 (getpoint
“nPick First Point (Down-right corner): “))
(while (/= p1 nil)
(setq p2 (getpoint
p1 “nPick Second Point (Up-right corner): “))
(setq ang (angle p1 p2))
(setq l (distance p1 p2))
(command “layer” “m” “hat” “c” “11” “” “”)
(command “insert” “*C:Program FilesAutoCAD LT 2005SupportLISP/insul-1” p1 c (/ (* 180 ang) pi))
(setvar “snapang” ang)
(command “array” “l” “” “r” “1” (fix (/ l (* 0.4 c))) (* 0.4 c))
; (setq ent1 (ssget “l”))
; (setq ent2 (ssget “x” (list (cons 62 200))))
; (command “pedit” (setq z ent1) “j” (setq z ent2) “” “exit”)
; (command “change” “l” “” “p” “c” “bylayer” “”)
(setvar “snapang” sa)
(setq p1 (getpoint
“nPick First Point (Down-right corner): “))
)
(prin1)
)