캐드 분류
(setq ent (ssget)) 에대해서
컨텐츠 정보
- 1,025 조회
- 2 댓글
- 0 추천
- 0 비추천
-
목록
본문
많은 도움을 받아 요정도까지만들었어요.
여기서
(setq ent (ssget)) 애는 명령어치고 선택해야하고
(setq ent (entlast) 애는 명령어치기 선택되어진 부제가 되는건데
전에 잡았던 객체중에 하나만 해당되더라구요 아마 프로그램상
가장 마지막에 잡혀있는 부재가 선택되어지는거라 판단되는데
명령어 치고 선택 할수도있고
선택하고 명령어쳐도 가능하게 끔
어떤식으로 수정해야하나요.
(defun c:vb (/ os ent bn ins )
(vl-load-com)
(command "-layer" "s" "0″ "")
(command "OSMODE" 16383)
(setq os (getvar "osmode"))
(setvar "cmdecho" 0)
(setq ent (ssget))
; (setq ent (entlast))
(command "chprop" ent "" "c" "bylayer" "lt" "bylayer" "la" "0″ "")
(command "-overkill" ent "" "D" )
(setq bn (getstring "n 블록 이름을 입력하세요 : "))
(setq ins (getpoint "n삽입점 : "))
(setvar "osmode" 0)
(command "block" bn ins ent "")
(command "insert" bn ins 1 1 0)
(setq ent (entlast))
(if (= (tblsearch "layer" "!JK02_STR") nil)
(command "-layer" "n" "!JK02_STR" "c" "2″ "!JK02_STR" "l" "continuous" "1″ "")
(command "-layer" "c" "2″ "!JK02_STR" "l" "continuous" "1″ "")
);endif
(command "chprop" ent "" "c" "bylayer" "lt" "bylayer" "la" "!JK02_STR" "")
(prompt "nSet !JK02_STRLayer… ")
(command "-layer" "s" "!JK02_STR" "")
(command "-layer" "off" "0″ "")
(setvar "osmode" os)
(princ)
) ;defun
관련자료
댓글 2
/ 1 페이지
