사각형에 x 선 그어지는 리습 이거가지고 작성시 레이어가 0번으로되어버리는데
0번말고 현재 설정되어있는 레이어로 선이 그어지도록 변경이 가능한가요?
리습을 수정할줄 몰라서요 ㅠㅠ
그리고 이거 cx리습 x 자가 아니라 + 만 되게 만들려면 어떻게 수정해야되나요?
;사각박스 에 X라인 그리기
(defun c:BX (/ pnt1 pnt2 pnt3 pnt4)
(prompt “n사각박스에 X라인 그리기”)
(setvar “cmdecho” 0)
(setq os (getvar “osmode”))
(setq cla (getvar “clayer”))
(graphscr)
(setq mode (getvar “osmode”))
(setvar “osmode” 32)
(setq pnt1 (getpoint “First corner of Opening:”))(terpri)
(setq pnt3 (getcorner “Second corner of Opening:” pnt1)) (terpri)
(setvar “osmode” 0)
(setq pnt2 (list (car pnt1)(cadr pnt3)))
(setq pnt4 (list (car pnt3)(cadr pnt1)))
(setvar “osmode” mode)
(command “line” pnt1 pnt3 “”)
(command “change” “l””” “p” “la” “0”””) ;레이어 0번으로 변경<-사용자 수정
(command “line” pnt2 pnt4 “”)
(command “change” “l””” “p” “la” “0”””) ;레이어 0번으로 변경<-사용자 수정
(command “undo” “e”)
(setvar “osmode” os)
(setvar “clayer” cla)
(prin1)
)
(defun c:BX (/ pnt1 pnt2 pnt3 pnt4)
(prompt “n사각박스에 X라인 그리기”)
(setvar “cmdecho” 0)
(setq os (getvar “osmode”))
(setq cla (getvar “clayer”))
(graphscr)
(setq mode (getvar “osmode”))
(setvar “osmode” 32)
(setq pnt1 (getpoint “First corner of Opening:”))(terpri)
(setq pnt3 (getcorner “Second corner of Opening:” pnt1)) (terpri)
(setvar “osmode” 0)
(setq pnt2 (list (car pnt1)(cadr pnt3)))
(setq pnt4 (list (car pnt3)(cadr pnt1)))
(setvar “osmode” mode)
(command “line” pnt1 pnt3 “”)
(command “change” “l””” “p” “la” “0”””) ;레이어 0번으로 변경<-사용자 수정
(command “line” pnt2 pnt4 “”)
(command “change” “l””” “p” “la” “0”””) ;레이어 0번으로 변경<-사용자 수정
(command “undo” “e”)
(setvar “osmode” os)
(setvar “clayer” cla)
(prin1)
)
;—————————————————————-
;;;원 에 X라인 그리기
(defun dtr (dtr1)(* pi (/ dtr1 180.00)))
(defun c:CX(/ os cla ss k en ed cp rad dia p1 p2 p3 p4)
(prompt “n원에 X라인 그리기”)
(setq os (getvar “osmode”))
(setq cla (getvar “clayer”))
(setq ss (ssget (list (cons 0 “circle”))))
(setq k 0)
(command “undo” “be”)
(setvar “osmode” 0)
(setq en (ssname ss k)
ed (entget en)
cp (cdr (assoc 10 ed))
rad (cdr (assoc 40 ed))
dia (* rad 2))
(setq p1 (polar cp (dtr 45) rad)
p2 (polar p1 (dtr 225) dia)
p3 (polar cp (dtr 135) rad)
p4 (polar p3 (dtr 315) dia))
(command “layer” “s” “0” “”)
(command “line” p1 p2 “”)
(command “change” “l””” “p” “la” “0”””) ;레이어 0번으로 변경<-사용자 수정
(command “line” p3 p4 “”)
(command “change” “l””” “p” “la” “0”””) ;레이어 0번으로 변경<-사용자 수정
(command “undo” “e”)
(setvar “osmode” os)
(setvar “clayer” cla)
(princ)
(defun dtr (dtr1)(* pi (/ dtr1 180.00)))
(defun c:CX(/ os cla ss k en ed cp rad dia p1 p2 p3 p4)
(prompt “n원에 X라인 그리기”)
(setq os (getvar “osmode”))
(setq cla (getvar “clayer”))
(setq ss (ssget (list (cons 0 “circle”))))
(setq k 0)
(command “undo” “be”)
(setvar “osmode” 0)
(setq en (ssname ss k)
ed (entget en)
cp (cdr (assoc 10 ed))
rad (cdr (assoc 40 ed))
dia (* rad 2))
(setq p1 (polar cp (dtr 45) rad)
p2 (polar p1 (dtr 225) dia)
p3 (polar cp (dtr 135) rad)
p4 (polar p3 (dtr 315) dia))
(command “layer” “s” “0” “”)
(command “line” p1 p2 “”)
(command “change” “l””” “p” “la” “0”””) ;레이어 0번으로 변경<-사용자 수정
(command “line” p3 p4 “”)
(command “change” “l””” “p” “la” “0”””) ;레이어 0번으로 변경<-사용자 수정
(command “undo” “e”)
(setvar “osmode” os)
(setvar “clayer” cla)
(princ)