识别任何移动bl的方法
大家好。我不确定这是否可行，但我正在寻找一种方法来识别我在那个特定会话中对图形所做的所有更改。例如如果我从它的位置移动一个块，该块将改变颜色。这将使我能够轻松地在图纸中冒泡或突出显示一个部分，以表明这是最近发生的变化。
我可以想象，我选择的任何东西都可以改变颜色，因为我只会选择需要移动的块。
有什么可以帮忙的吗？
提前感谢=] 您需要一个自定义的lisp，它的基础是移动命令和编辑块，例如
(defun c:Mblk ()
(setq ent (entsel))
(setq pt1 ("\nPick pt1 "))
(setq pt2 ("\npick pt2"))
(command "move" ent "" pt1 pt2)
(vlax-put-color(vlax-ename->vla-object (car ent)) 140) ; this is not quite right but gives an idea need to play more with this line
)
页:
[1]