变暗文字替代

Nobull84 · 发表于 2022-7-5 23:22:51

有没有人看到过一个dimension lisp，我可以用它自动替换文本，例如，“？/P E.O.S.”，而不需要手动操作？我有其他的东西可以使用它，但如果有人提供这样的东西，我想我可以操纵它，以满足我的需要。理想情况下，我希望能够复制我已经拥有的dimstyle，并且只有一个常数来代替实际的dim。这样可以保留我的图层、箭头类型和其他设置等。。。欢迎提出任何想法！

-诺布尔

MSasu · 发表于 2022-7-5 23:29:56

基本上，您需要使用SSGET和适当的过滤器创建一个选择集-WCMATCH可能会有所帮助；使用SSNAME解析其实体，并使用ENTGET获取其关联列表。
标签存储在DXF代码1中。使用SUBST替换它，使用ENTMOD更新实体。

Nobull84 · 发表于 2022-7-5 23:33:04

感谢MSasu的回复。我相信你的指导会奏效，但不幸的是，我还不能真正构建lisp函数。（当我可以自己学习时，我仍在学习）。你，或者任何人，看过你描述的东西吗？

我觉得我的头衔应该还是“新手”

再次感谢，
-诺布尔

lamensterms · 发表于 2022-7-5 23:40:03

嘿，诺布尔，

你到底想做什么？在创建标注时，是否用预定值替换标注文字？

Nobull84 · 发表于 2022-7-5 23:45:28

lamensterms，

是的，差不多是这样。在放置尺寸标注后，可能是两个未知钢梁的距离，我不得不质疑它们的位置。我估计位置，将其调暗，然后将尺寸编辑为“”或者“E.O.S.”或者沿着这些线的东西，然后在它周围放一团云。我正试图逐步淘汰文本的变化，因为有时它需要做得太频繁，而且总是以相同的文本结束。

-诺布尔

lamensterms · 发表于 2022-7-5 23:47:44

听起来很简单，我当然可以帮你写一些我自己的业余代码，但要到明天我开始工作的时候。在此期间，其他人可能会帮你解决一些问题。

MSasu · 发表于 2022-7-5 23:53:22

像这样的？
使用说明，由Lee Mac提供。

Nobull84 · 发表于 2022-7-5 23:59:04

MSasu，

和我想的不太一样。我正在寻找一个具有默认文本的维度命令。我认为这是我能说的最简单的方式。

希望，当我可以得到我需要的lisp时，我可以将其更改为某些dimstyles。我相信我可以根据自己的需要修改文本。这确实比我之前所做的迈出了一步，所以我们肯定朝着正确的方向前进。

再次感谢，
-诺布尔

lamensterms · 发表于 2022-7-6 00:01:04

嘿，诺布尔，

试试这个：

copy

(DEFUN C:du ()
(setq ocmd (getvar "CMDECHO"))
(setvar "cmdecho" 1)
(command "dimlinear" pause pause pause)
(setvar "cmdecho" 0)
(command "dimedit" "n" "???" "L" "")
(setvar "CMDECHO" ocmd)
(princ)
)

请注意，我已将其设置为与DIMLINEAR一起使用，但您可能可以调整它以与其他标注类型一起使用。

不是很复杂的代码，但当我测试它时它确实工作了。

祝你好运

MSasu · 发表于 2022-7-6 00:06:05

Lamensterms，您可以简化该项以避免编辑新添加的尺寸：

copy

(command "[color=red]_[/color]dimlinear" pause pause [color=magenta]"_T" "???"[/color] pause)

[编程交流] 变暗文字替代

发表回复

精选推荐