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

正在查找LISP例程。。。

有人有一个带有属性的注释记号（最好是圆形注释记号）的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，以防万一。

stevsmith 发表于 2022-7-6 07:07:51

我知道fatty给了你你需要的，但我记得Lee以前有一个增量数字Lisp程序的破解程序。
 
http://www.lee-mac.com/numinc.html
 
（现在看起来比他第一次写的时候要高级一些）
 
 
 
 
我刚刚注意到这个帖子已经有好几年了。很抱歉

Lee Mac 发表于 2022-7-6 07:14:13

无论如何谢谢Steve

Amuthan 发表于 2022-7-6 07:20:53

史蒂夫和李谢谢你们的意见。这就是我要找的！我只希望这与我的AutoCAD版本配合得很好！非常感谢您的快速回复！
 
页: [1]
查看完整版本: 正在查找LISP例程。。。