캐드 분류
색상 변경리습 수정부탁드립니다.
컨텐츠 정보
- 86 조회
- 3 댓글
- 0 추천
- 0 비추천
- 목록
본문
색상을 변경하는 리습입니다. 색상을 입의로 지정하면 잘되는데 색상이 “BYLAYER” 지정되있으면 안됩니다. 어떻게해야 는지 부탁드립니다.
(defun C:ll (/ ss nco enx)
(vl-load-com)
(prompt "n>>> Select Entities To Change..... ")
(setq ss (ssget))
(setq nco (atoi (strcase (getstring "n>>> Color Number: "))))
(if ss
(foreach ent (mapcar 'cadr (ssnamex ss))
(setq enx (entget ent))
(setq enx (subst (cons 62 nco) (assoc 62 enx) enx))
(entmod enx)
)
)
(princ)
)
관련자료
댓글 3
/ 1 페이지
주왕님의 댓글
(defun C:test (/ ss nco lname lcc) (vl-load-com) (prompt “n>>> Select Entities To Change….. “) (setq ss (ssget “_:L”)) (setq nco (atoi (strcase (getstring “n>>> Color Number: “))))
(if ss (progn (setq lname (cdr (assoc 8 (entget (ssname ss 0))))) (setq lcc (cdr (assoc 62 (entget (ssname ss 0))))) (if (or (= lcc 0) (= lcc nil)) (setq lcc “BYLAYER”)) (command “_.CHPROP” ss “” “COLOR” nco) ) ) (princ) )
