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)' 카테고리의 다른 글
1-9 mch.lsp=multi block change(다중블럭 변경하기)->추가(2007.7.19) (0) | 2024.12.25 |
---|---|
1-8 ff.lsp=file filteringr(도면정리하기)->수정(2007.12.12) (0) | 2024.12.25 |
1-6 ch.lsp=line change(선 정렬하기) ->추가(2008.4.21) (0) | 2024.12.24 |
1-5 bn.lsp=block name change(블록이름 바꾸기)->수정(2007.7.20) (0) | 2024.12.24 |
1-4 bm.lsp=block make (새로운블록 만들기)->추가(2007.6.14) (0) | 2024.12.24 |