智能编号(Lee Mac的完善版)

恕放之生命

智能编号(Lee Mac的完善版)
是在Lee Mac源码的基础上完善了一下，并不是完美版。
本人是刚学，lisp语言函数的用法都还不熟，只是做一些傻瓜拼凑法来做一些小玩意，不足之处难免。
仅以此源码回馈明经。谢谢！




7楼有更新


该贴已经同步到 恕放之生命的微博

香田里浪人

恕放之生命 发表于 2014-9-13 09:09
不然如何叫智能。

总体评价是不错，美中不足是点
一下要按一次回车才能继续，建议修改一下，使之能够连续点。其实很简单，只要将
(COMMAND "REGEN")
(princ)
)
;;------------------------------------------------------------;;
;;                         End of File                        ;;
;;------------------------------------------------------------;;
改为
(COMMAND "REGEN")
(C:Znno)
)
;;------------------------------------------------------------;;
;;                         End of File                        ;;
;;------------------------------------------------------------;;
即可。

寒潮大冬瓜

shirker 发表于 2024-8-20 10:48
您好朋友，可以分享一下吗

Zn33智能编号dt修改右键结束数字dingtiedt于2015-9-2(指定图层却失去自动更新),我尝试过整理为001格式，还没能实现，目前初步实现的功能是外圈是可以自定义输入的，该插件有个好处也算是缺点，一个dwg里只能有一个“no2024”(目前的理解)，如果是直接利用这个属性块设为圆形物体→比如建筑界的桩比较合适，直接输入该属性块就是一条桩，还带编号！比较好用的方式就是直接复制块到多段线顶点上→然后利用这个属性块的功能→编号自调！
二三维顶点编号波总指导升级版(自动获取多段线顶点个数变为012格式) - AutoLISP/Visual LISP 编程技术 - AutoCAD论坛 - 明经CAD社区 - Powered by Discuz!  http://bbs.mjtd.com/forum.php?mo ... hlight=%B6%A5%B5%E3
顶点插入块，用于布置角筋 - AutoLISP/Visual LISP 编程技术 - AutoCAD论坛 - 明经CAD社区 - 布置 - Powered by Discuz!  http://bbs.mjtd.com/thread-95934-1-1.html

寒潮大冬瓜

dingtiedt 发表于 2015-9-2 10:06
"连续版"的右键中止不了，ESC要两次，改了其中两句：结尾改为：

dingtiedt大侠好！我想尝试把通过圆半径改为输入指定值→希望这个块编号大一些，不能实现呢！
;'(40 . (getreal(strcat "\n输入字高:<0.8>")));;;半径大小
'(40 . 0.8);;;半径大小
无法嵌套块定义。; 错误: DXF 组不正确: (40 GETREAL (STRCAT "\n输入字高:<0.8>"))

1993063

啥改动?

qyming

EMAKE属性块

qyming

能否把数字改到圆心

恕放之生命

qyming 发表于 2014-9-1 06:48
能否把数字改到圆心

本来之前我是做了一个放在圆心的，后来数字上了十位或者百位就又不在中心，所以改成这样了。再后来想做成0001这样子排下去但觉得太花了，不够清爽，所以将就着就这样吧。

maiko

恕放之生命 发表于 2014-9-1 10:15
本来之前我是做了一个放在圆心的，后来数字上了十位或者百位就又不在中心，所以改成这样了。再后来想做成 ...

调整组码72文字居中方式

恕放之生命

好吧，修改了一下。

270639259

建议能自己灵活选择图层，还有编号的前缀能自己灵活添加就更完美了

xiaolong1487

我也来试试

zhx5127

打开命令是多少呀