전에 올렸던 질문이 잘못된듯하여 다시 글 올립니다.
블록 내부에 있는 치수의 색상을 리습을 이용하여 변경해 보려하는데 첨부파일과 같이 문제가 있습니다. (블록이 전체, 일부 또는 갱신이 안되는 경우도 있습니다.)
블록을 폭파하던지 참조편집내로 들어가보면 분명히 색상이 변경은 되었거든요.
조언 부탁드립니다.
좋은하루 보내세요~
(defun c:test ( / adoc layerObj bl archlayer archlayercolor obj)
)
블록 내부에 있는 치수의 색상을 리습을 이용하여 변경해 보려하는데 첨부파일과 같이 문제가 있습니다. (블록이 전체, 일부 또는 갱신이 안되는 경우도 있습니다.)
블록을 폭파하던지 참조편집내로 들어가보면 분명히 색상이 변경은 되었거든요.
조언 부탁드립니다.
좋은하루 보내세요~
(defun c:test ( / adoc layerObj bl archlayer archlayercolor obj)
(vl-load-com)
(setvar “cmdecho” 0)
(setq adoc (vla-get-activedocument (vlax-get-acad-object)))
(setq LayerObj (vla-get-Layers adoc))
(setq bl (vlax-get adoc ‘blocks))
(setq archlayer “e-plan” archlayercolor 8)
(_addlayer archlayer archlayercolor )
(setq ss (ssget))
(setq obj (vlax-ename->vla-object (ssname ss 0)))
(BlocklayerchangeC_ obj bl LayerObj archlayer archlayercolor)
(vla-regen adoc acactiveviewport)
)
(defun BlocklayerchangeC_ ( ob bl LayerObj a c)
(vlax-for obj (vla-item bl (vla-get-name ob))
(vla-put-dimensionlinecolor obj c)
(vla-put-dimensionlinecolor obj c)
(vla-put-extensionlinecolor obj c)
(vla-put-textcolor obj c)
)
)
(defun _addlayer ( la col / layer )
(while (not (tblsearch “layer” la))
(setq Layer
(vla-add
(vla-get-Layers
(vla-get-activedocument(vlax-get-acad-object))
) la
)
)
(vla-put-Color Layer col)
)
)
)
)