智能编号(Lee Mac的完善版)
本帖最后由 恕放之生命 于 2014-9-1 15:28 编辑智能编号(Lee Mac的完善版)
是在Lee Mac源码的基础上完善了一下，并不是完美版。
本人是刚学，lisp语言函数的用法都还不熟，只是做一些傻瓜拼凑法来做一些小玩意，不足之处难免。
仅以此源码回馈明经。谢谢！
7楼有更新
http://bbs.mjtd.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 恕放之生命的微博 本帖最后由 香田里浪人 于 2014-9-13 20:44 编辑
恕放之生命 发表于 2014-9-13 09:09 http://bbs.mjtd.com/static/image/common/back.gif
不然如何叫智能。
总体评价是不错，美中不足是点
一下要按一次回车才能继续，建议修改一下，使之能够连续点。其实很简单，只要将
(COMMAND "REGEN")
(princ)
)
;;------------------------------------------------------------;;
;; End of File ;;
;;------------------------------------------------------------;;
改为
(COMMAND "REGEN")
(C:Znno)
)
;;------------------------------------------------------------;;
;; End of File ;;
;;------------------------------------------------------------;;
即可。 本帖最后由 寒潮大冬瓜 于 2024-8-21 18:03 编辑
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>")) 啥改动? EMAKE属性块 能否把数字改到圆心 qyming 发表于 2014-9-1 06:48 static/image/common/back.gif
能否把数字改到圆心
本来之前我是做了一个放在圆心的，后来数字上了十位或者百位就又不在中心，所以改成这样了。再后来想做成0001这样子排下去但觉得太花了，不够清爽，所以将就着就这样吧。 恕放之生命 发表于 2014-9-1 10:15 static/image/common/back.gif
本来之前我是做了一个放在圆心的，后来数字上了十位或者百位就又不在中心，所以改成这样了。再后来想做成 ...
调整组码72文字居中方式 本帖最后由 恕放之生命 于 2014-9-13 23:00 编辑
好吧，修改了一下。 建议能自己灵活选择图层，还有编号的前缀能自己灵活添加就更完美了 我也来试试 打开命令是多少呀