728x90
;;=======================================================
; 솔리드 뒤로 보내기(2007.07.28 주말농부)
; ->hatch,trace로 작성된 객체는 뒤로 보내고
; text,mtext,dimension은 앞으로 보내는 명령어
;;------ draworder --------------------------------------
(defun c:do(/ ss)
(prompt " 솔리드 뒤로 보내기...")
(setq ss (ssget "x" '((0 . "HATCH,TRACE"))) )
(vl-cmdf "draworder" ss "" "b")
(setq ss (ssget "x" '((0 . "TEXT,MTEXT,DIMENSION"))) )
(vl-cmdf "draworder" ss "" "f")
(prompt "\n솔리드을 뒤로 텍스트을 앞으로 보냄.")
(prin1))
728x90
'■ 유용한 캐드&리습 > ▫ EzqCAD(3rd Party)' 카테고리의 다른 글
8-10 tc.lsp=text change (문자 바꾸기)->수정(2007.7.30) (0) | 2024.12.19 |
---|---|
4-6 insul.lsp=insulation (단열재 그리기)->수정(2007.7.30) (0) | 2024.12.19 |
5-5 lm.lsp=layer merge (도면층 병합하기)->추가(2007.7.25) (0) | 2024.12.19 |
3-6 qd.lsp=quick dimension (치수기입하기)->수정(2007.7.24) (0) | 2024.12.19 |
1-4 bn.lsp=block name change(블록이름 바꾸기)->수정(2007.7.20) (0) | 2024.12.18 |