WZBH既有文字重新编号程序jun353835273于2023-11-8明经升级版
本帖最后由 寒潮大冬瓜 于 2025-1-21 17:47 编辑WZBH既有文字重新编号程序jun353835273于2023-11-8明经升级版
(princ "SS94=")(princ SS94)(terpri);回行显示下一项屏显
;(terpri);回行显示下一项屏显
(setq SS95 (* SS94 add))
(princ "SS95=")(princ SS95)(terpri);回行显示下一项屏显
(setq SS96 (+ (atoi StartNOdata) SS95)) ;最大编号序号转为字符串
原版地址：文字自动编号程序
http://bbs.mjtd.com/forum.php?mo ... 8704&fromuid=418631
(出处: 明经CAD社区)
WZBH既有文字自动编号(自动补齐0)jun353835273于2023-11-8明经升级版.lsp→只在原版基础上实现→序号前自动补齐0
WZBH升级既有文字重新编号程序-序号转至新建图层且前自动添加0-jun353835273于2023-11.lsp→只在原版基础上实现→序号前自动补齐0→新编号集体转到新建图层(休息前终于搞定新编号集体转到新建图层，该图层可以随时全选后删除，最后不影响其他图元的操作！)
也玩一个
技术工作室 发表于 2025-4-19 09:24
差函数：XYP-DXF
【e派】工具箱函数再揭秘及应用实例
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=95673&fromuid=418631
(出处: 明经CAD社区)
XYP-DXF→xyp是院长的标志！QQ群=e派系统/LSP编程/摄影；群号：24942984(1992人)
;; xyp-DXF实体dxf数据 (xyp-DXF code ename)
; xyp-DXF函数：用于获取实体的DXF数据
; 该函数接收两个参数，code表示DXF组码，可以是单个组码或组码列表，ename表示实体名称
; 功能是根据传入的参数，从指定实体中提取相应的DXF数据并返回
(defun xyp-DXF (code ename / ent lst a)
; 判断code的类型是否为列表
; 如果是列表，则表示需要获取多个DXF组码对应的数据
(if (= (type code) 'LIST)
(progn
; 使用entget函数获取指定实体ename的DXF数据，存储在ent变量中
; 初始化用于存储结果的列表lst为空
(setq ent(entget ename)
lst'()
)
; 遍历code列表中的每个组码a
(foreach a code
; 从ent中查找组码a对应的DXF数据，并将其以列表形式（组码和对应数据）添加到lst中
(setq lst (cons (list a (cdr (assoc a ent))) lst))
)
; 将lst列表反转，使数据顺序与输入的组码顺序一致，然后返回
(reverse lst)
)
; 如果code不是列表
(if (= code -3)
; 当code为-3时，使用entget函数获取实体ename包含所有扩展数据（"*"）的DXF数据，然后提取组码-3对应的数据并返回
(cdr (assoc code (entget ename '("*"))))
; 否则，直接使用entget函数获取实体ename的DXF数据，然后提取组码code对应的数据并返回
(cdr (assoc code (entget ename)))
)
)
)
;(xyp-DXF 10 (entsel "\n选线: "))
; 上述注释中，函数xyp-DXF实现了灵活获取实体DXF数据的功能。你可以根据实际需求，调整传入的参数来获取不同的DXF信息。 本帖最后由 寒潮大冬瓜 于 2024-12-26 22:04 编辑
言戲無軍 发表于 2024-12-26 15:09
非常厉害，期望增加一种按照原有数字序号大小重新编号的 排序方式，比如，C-1，C-3，C-5，C-10，.....重新 ...
遇到没什么规律的时候→可以采取"FIND'命令替换A字符为C字符的方式！
C-1，C-3，C-5，C-10→A1（对应C-1），A2（对应C-3），A3（对应C-5），A4（对应C-10）→应该是用二维多段线连起来→然后通过‘顶点编号’来实现你的理想！→到这个网址下载“DFB二三维顶点编号自动字高自动补齐位数00格式自动图层名嵌套波总指导升级版.lsp”能顺利实现编号→再加前缀就行了！
求助，给多段线节点编号并输出对应的坐标表
http://bbs.mjtd.com/forum.php?mo ... 0572&fromuid=418631
(出处: 明经CAD社区)
DFB二三维顶点编号自动字高自动补齐位数00格式自动图层名嵌套波总指导升级版.lsp
6.28 KB, 下载次数: 7
售价: 3 个明经币[记录] 谢谢楼主的分享！
下载来更新使用 升级版升级了啥？ moshouhot 发表于 2024-12-26 10:16
升级版升级了啥？
自动补齐0→看图片→对比原版！ 非常厉害，期望增加一种按照原有数字序号大小重新编号的 排序方式，比如，C-1，C-3，C-5，C-10，.....重新从1开始编号，A1（对应C-1），A2（对应C-3），A3（对应C-5），A4（对应C-10）。类似这种 本帖最后由 寒潮大冬瓜 于 2024-12-27 00:56 编辑
我还在尝试把重新编号的图元转到新建的图层里，可惜搞不成功！
AUTOLISP如何把选择集里的对象移动到某一图层
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=184832&fromuid=418631
(出处: 明经CAD社区)
在Bao_lai于2022-2-25 20:25:18 |这里学习了“(command "change" (SSGET) "" "properties" "layer" "图层名" "" )”
谢谢楼主的分享！
下载来更新使用 差函数：XYP-DXF
页:
[1]
2