还有什么要做的吗
是否有办法使编辑过的尺寸从未编辑的尺寸中脱颖而出？例如非打印层下的文本框或某种标识？如果是这样的话，有人知道从哪里开始像这样的例行公事吗？ 这将使标注文字变为红色，表示所有覆盖文字把整合器换成你喜欢的颜色。
(defun c:dov (/ ss cnt obj)
(setq ss (ssget "X" '((0 . "DIMENSION")(-4 . "<NOT") (1 . "")(-4 . "NOT>"))));_get all over ride dim objects
(setq cnt 0)
(if ss
(repeat (sslength ss)
(setq
obj (vlax-ename->vla-object (ssname ss cnt))
cnt (1+ cnt)
)
(vla-put-TextColor obj 1) ; 1 = red
);_repeat
);_if
(princ)
);_defun
谢谢你，现在我想知道这是怎么写的，因为我有很多麻烦。 现在，这是使用vla格式，但它只是检查选择，看看哪些DIM被覆盖正确？ 过滤选择集以仅允许覆盖的尺寸，然后更改每个尺寸的颜色。 明白了，我明白了，现在我只是把事情弄得比需要的更复杂了 在开始思考编写代码的最简单方法之前，需要几百个程序。就像我提交的代码一样。
我想收集所有被过度书写的维度
我想让它们与众不同。
第一个语句几乎很简单，除非你必须知道“过度书写”部分是一个属性
第二个语句很简单，但定义不够。“独一无二”这个词给人留下了太多的想象空间。你需要学习如何定义一个动作，直到最终的动作。一旦你训练自己以极其详细的方式定义动作，编码对你来说就变得更加清晰，希望更容易编写。
此外，它有助于尽可能多地了解对象及其属性。你知道的越多，就越容易找到一个简单的方法来改变它。
如果您花一些时间单击各种对象并查看“属性”对话框中的可用属性，您将更好地了解这些对象。 谢谢大家 嘿，你能告诉我这个lisp的命令是什么吗。
也许是那个穿红色的？
（定义c:dov（/ss cnt obj）
页:
[1]
2