지우개 리습을 쓰고 있는데
윈도우로 선택이 되지 않아 불편한 점이 많아서요 ㅡㅜ
아무리 찾아보고 혼자 해보려고 해도 잘 몰르겠습니다 ㅡㅜ
수정이나 가르쳐 주실분 있으시면 답글 부탁드립니다~ ㅎ
(defun c:ee ( / a )
(while (setq a(car(entsel)))
(vl-cmdf “erase” a “”)
)
(princ)
)
지우개 리습이구요~ 또 하나만 부탁드릴께요
증상은 똑같구요 양쪽으로 옵셋되는 리습입니다
(defun c:mm ( / sl-recall ens)
(defun sl-recall (func msg b sym / sval)
(setq
sym (if sym sym b)
sval (func (strcat “n” msg ” <” (vl-princ-to-string sym) “>:”))
)
(if (and sval (/= sval “”)) (setq sym sval) sym)
)
(vl-load-com)
(while (setq ens (car (entsel “n양쪽으로 옵셋할 객체 선택:”)))
(setq $dis (sl-recall getdist “양쪽으로 옵셋 값 입력” 10 $dis))
(vla-offset (vlax-ename->vla-object ens) $dis)
(vla-offset (vlax-ename->vla-object ens) (* $dis -1))
)
(princ)
)
(defun c:mmn ( / sl-recall ens)
(defun sl-recall (func msg b sym / sval)
(setq
sym (if sym sym b)
sval (func (strcat “n” msg ” <” (vl-princ-to-string sym) “>:”))
)
(if (and sval (/= sval “”)) (setq sym sval) sym)
)
(vl-load-com)
(setq $dis (sl-recall getdist “양쪽으로 옵셋 값 입력” 10 $dis))
(while (setq ens (car (entsel “n양쪽으로 옵셋할 객체 선택:”)))
(vla-offset (vlax-ename->vla-object ens) (* $dis 0.5))
(vlax-put (vlax-ename->vla-object (entlast)) ‘layer (getvar “clayer”))
(vla-offset (vlax-ename->vla-object ens) (* (* $dis 0.5) -1))
(vlax-put (vlax-ename->vla-object (entlast)) ‘layer (getvar “clayer”))
)
(princ)
)
부탁드립니다~