X선 리습은 잘 되는데….
실행을 하고나면 오스넵이 다풀려버립니다…;;;
고수님의 손길을 기다립니다.
;;X-LINE
(defun c:XB(/ os cl pt1 pt2 pt3 pt4)
(setq os (getvar “osmode”))
(setvar “osmode” 32)
(setq cl (getvar “clayer”))
(prompt “nCommand: X-line…”)
(setq pt1 (getpoint “n Lower left corner-> int of “))
(setq pt3 (getcorner pt1 “n Upper right corner-> int of “))
(setvar “osmode” 0)
(setq pt2 (list (car pt1)(cadr pt3)))
(setq pt4 (list (car pt3)(cadr pt1)))
; (laset “a-note-symb-lgt”)
(command “line” pt1 pt3 “”)
(command “line” pt2 pt4 “”)
(command “layer” “s” cl “”)
(setvar “osmode” os)
(prin1)
)