홈/ 질문/Q 111799
다음
진행 중
Lv.0
등록일: 2019-10-02T19:06:00+09:00 카테고리:

직선,호 색상변경 리습

선과 호로 이루어진 모양이 있습니다.
이 형상들을 시각적으로 멀리서 봤을때 구별하기 위해서
리습을 요청하게 되었습니다.

20191002_185514.jpg

공유

    관련 있는 질문들

    2 답변

    1. aalan

    2. 우왕!!~~~ 감사합니다.^^
      오늘도 좋은하루 되세요. 화이팅

      • 0
    3. Lv.21
      (defun c:ff( / ss e en a0)
       (setq ss(ssget (list (cons -4 “<or”)(cons 0 “LINE”)(cons 0 “ARC”)(cons -4 “or>”))))
        (foreach e(vl-remove-if ‘listp (mapcar ‘cadr (ssnamex ss)))
          (setq en(entget e))
          (setq a0(cdr(assoc 0 en)))
          (if(assoc 62 en)
           (progn 
            (if(= “LINE” a0)
             (entmod(subst(cons 62 2)(assoc 62 en)en))
             (entmod(subst(cons 62 1)(assoc 62 en)en))
             )
            )
           (progn 
            (if(= “LINE” a0)
             (entmod(cons(cons 62 2)en))
             (entmod(cons(cons 62 1)en))
             )
            )
           )
        );foreach     
       (princ)
      )       
      • 0