홈/ 질문/Q 111140
다음
진행 중
Lv.0
등록일: 2019-04-01T09:45:26+09:00 카테고리:

블록의 속성값으로 선 레이어 변경하기.

첨부된 도면에 블록 111에는 속성값이 지정되어있습니다.
그값에 대응하는 layer도 생성해 두었습니다.

제가 원하는것은 블록 내에 “MIDAS LINE” 레이어로 지정되어있는 선을 블록 속성값과 동일한 이름의 레이어로 변경을 하고싶습니다.

리습으로 가능 한 것인지요? 

command  명령을 통한 리습은 몇개 만들어본적이있습니다. 
참고가될만한 자료있으면 공유부탁드립니다.

혹 간단하게 리습으로 짤수있다면 정중하게 부탁드리겠습니다.

감사합니다.

공유

    관련 있는 질문들

    4 답변

    1. aalan
    2. Lv.21

      올리신 도면 기준  

      일단 리습 작성했던 경험이 있으시니 수정은 가능 하실거라고 생각합니다 

      (defun c:ff (/ ks_getatt ks_layerChge ss e ob bkm ) ;;; 
       (vl-load-com)
      (setq aDoc (vla-get-activedocument (vlax-get-acad-object)))
        (defun ks_getatt ( blk )
          (mapcar ‘(lambda ( att )(vla-get-textstring att))
              (vlax-invoke blk ‘getattributes)
          )
        )
         (defun ks_layerChge ( bknm  tag  aDoc) ;
            (vlax-for o (vla-Item (vla-get-Blocks aDoc) bknm)
               (if (and(= (vla-get-ObjectName o) “AcDbLine”)(= (vla-get-layer o) “MIDAS LINE”))
                  (vla-put-layer o tag)
               )
               (vla-Update o)
            )
         )
            (setq ss (ssget (list (cons 0 “INSERT”)(cons 66 1))))
            (foreach e (vl-remove-if ‘listp (mapcar ‘cadr (ssnamex ss)))
               (setq ob (vlax-ename->vla-object e))
               (setq bkm(vla-get-name ob))
               ( ks_layerChge bkm (car(ks_getatt ob)) aDoc)
                (vla-Update ob)
            )
       (princ)
      )
      • 0

    3. 감사합니다. 리습에 모르는 부분이 많아 당장 수정은 못하지만 공부해보겠습니다. 감사합니다.!

      • 0
    4. Lv.21

      대충 구상하시는게 추리가 되는데 원하시는 동작은 하지 않을겁니다 

       만약에 태그값 15번을 먼저 선택해서 블럭에 변화가 생겼다면 나머지 14 부터 11까지는 무조건 15로 변 경됩니다 제가 아는 기본 캐드 지식으로는 같은 이름의 블럭안에 있는  라인이 여러가지의 레이어 이름을 가질 수 는 없습니다 
      • 0

    5. 아 그러면 블럭을 깨고 레이어를 변경하는것으로 수정해보겠습니다. 답변 감사합니다.!

      • 0