홈/ 질문/Q 110181
다음
진행 중
Lv.0
등록일: 2018-08-08T20:01:28+09:00 카테고리:

lisp공부중인데 왜 색이 안바뀔까요ㅠㅠ

색깔바꾸는 lisp을 공부중인데 왜 안바뀔까요ㅠㅠ 이렇게 하는게 아닌가요? 독학이라 너무 어려워요ㅠㅠ
(defun c:linesel()
  (setq *LS1 (entsel))
  (setq *EntP (entget (car *LS1)))
  (setq *NewC (cons 62 1))
  (setq *OldC (assoc 62 *EntP))
  (setq *NewEnt (subst *NewC *OldC *EntP))
  (entmod *NewEnt)
);defun
이렇게 하고 캐드에서 실행해보니까 개체선택까진 잘 뜨는데 그 후엔
((-1 . <도면요소 이름: 7ff721f07ec0>) (0 . “LINE”) (330 . <도면요소 이름: 7ff721f039f0>) (5 . “1FC”) (100 . “AcDbEntity”) (67 . 0) (410 . “Model”) (8 . “0”) (100 . “AcDbLine”) (10 19.6964 5.7353 0.0) (11 27.1261 13.6107 0.0) (210 0.0 0.0 1.0))
이라고 뜨면서 색이 안바뀝니다 왜그럴까요ㅠ0ㅠ
 
command로 하는건 되는데 속성값 바꾸는게 안돼요ㅠㅠ
공유

    관련 있는 질문들

    2 답변

    1. aalan

    2. 헐헐헐 완전 잘 돼요 감사합니다ㅠㅠㅠㅠㅠㅠ 열심히 공부하겠습니당 감사합니다 수야님ㅠㅠㅠㅠㅠ

      • 0
    3. Lv.21

      선택객체의 색상이 bylayer 일경우는 dxf62번 정보가 entget에서 표시 되지 않습니다  그러니 없는 정보를  참고하려니 그런겁니다 

      (defun c:linesel()
        (setq *LS1 (entsel))
        (setq *EntP (entget (car *LS1)))
        (entmod 
           (if (assoc 62 *Entp)(subst (cons 62 1)(assoc 62 *Entp)*Entp) ;색상정보가 있으면 색상변경 
               (cons(cons 62 1) *Entp) ;색상정보가 없으면 색상정보 추가 
           )
        )
       (princ)
      );defun
      • 0