색상 변경리습 수정부탁드립니다.

Question

아주조금합니다.Lv.1

등록일: 2024-02-092024-02-09T08:45:00+09:00 2024-02-09T08:45:00+09:00카테고리: AutoCAD & CADian

색상 변경리습 수정부탁드립니다.

색상을 변경하는 리습입니다. 색상을 입의로 지정하면 잘되는데 색상이 “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 답변

주왕 · Answer 1 · 2024-02-09T14:30:54+09:00

주왕 Lv.25

2024-02-09T14:30:54+09:00답변 등록 답변 등록 일시 2024-02-09 2:30 pm

(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)
)