(defun c:MO (/ cl os d1 d2 d3 cl st1 e1
p1 p2 p3 p4 ang1 ang2 ang3)
(setq cl (getvar “clayer”) os (getvar “osmode”))
(setvar “osmode” 0)
(setq d2 200)
(if (/= wallthk nil)(setq d2 wallthk) )
(setq st1 (itoa d2))
(setq st1 (strcat “Enter wall thikness<” st1 “>:”))
(prompt “nCommand: Wall Draw…”)(terpri)
(setq d1 (getdist st1))
(if (= d1 nil)(setq d1 d2) )
(setq e1 (entsel “nPick line -> “))
(setq d3 (/ d1 2))
(while (/= e1 nil)
(setq p1 (osnap (cadr e1) “END”)
p2 (osnap (cadr e1) “MID”)
ang1 (angle p1 p2)
ang2 (+ ang1 (/ pi 2) )
ang3 (- ang1 (/ pi 2) )
p3 (polar p2 ang2 100)
p4 (polar p2 ang3 100)
)
(command “offset” d3 e1 p3 “”)
(command “change” “l” “” “p” “la” cl “”)
(command “offset” d3 e1 p4 “”)
(command “change” “l” “” “p” “la” cl “”)
(setq e1 (entsel “nPick line -> “))
)
(setvar “osmode” os)
(setq wallthk (fix d1))(princ)
)
그리고 옵셋 기준선에서 예로 500을 입력하고 25를 입력하면 500에 옵셋되고 거기서 25씩 양쪽으로
옵셋하고 중앙선 삭제 되는 것도 가능한가요?>