正在查找LISP例程。。。

tzframpton · 发表于 2022-7-6 06:16:02

有人有一个带有属性的注释记号（最好是圆形注释记号）的Lisp例程，当你复制它时，它会自动编号吗？我必须对每个单元的HVAC格栅位置进行编号，因此我有很多“重复”的主题。它只需要从一开始，然后向上，直到我停止例程，然后在我重新启动例程时从一开始返回。有人在你的硬盘上尘土飞扬的角落里有这样的东西吗？？提前感谢。。。。。

fixo · 发表于 2022-7-6 06:27:41

绕着这个玩
你不需要什么
但可能会有所帮助
将注释记号块名称和标记更改为
你的西装

~'J'~

（定义c：ibl（/atd blk cnt ech ipt next\U data osm tag）（setq osm（getvar“osmode”）（setq ech（getvar“cmdecho”））（setq atd（getvar“attdia”））（setvar“osmode”0）（setvar“cmdecho”0）（setvar“attdia”1）（setq cnt（getint“\n输入第一个数字：）（如果cnt（progn）；（setq tag（strcase（getstring“\n输入用于编号的属性标记：））（setq tag“SEQ”）；将属性标签“SEQ”更改为西装（while（setq ipt（getpoint“\n点击插入点”））（命令“-insert”“ONE”ipt 1 0）；

VVA · 发表于 2022-7-6 06:35:50

看这里http://www.cadtutor.net/forum/showthread.php?t=11114

tzframpton · 发表于 2022-7-6 06:39:21

胖子，你就是那个该死的男人。太棒了伙计谢谢。。。工作完美。

编辑：VVA，谢谢你的链接，我也会去看看。但胖子做的正是我想要的眨眼：

fixo · 发表于 2022-7-6 06:48:36

不客气，坦纳
干杯

~'J'~

Amuthan · 发表于 2022-7-6 06:55:59

你好

我试图运行此脚本。。以下是AutoCAD的功能：

1.要求我输入序列号的开始。
2、插入块
3、弹出属性对话框
4.我在那里重新输入序列号
5、块获得属性
6.点击空白处，从步骤1开始。

虽然，我能够实现我想要的，但我想知道是否有任何方法可以实现这一点。我正在使用AutoCAD 2013，以防万一。