转发一个老程序：工程桩自动编号并提取坐标程序(超强排序)

spp_wall

支持支持，有画梅花桩的插件不

寒潮大冬瓜

20060510412 发表于 2021-12-24 09:27
不过我感觉有一点可以改进，那个字高没有必要人为指定，根据图形的尺寸自动考虑应该更合适，例如圆形直径 ...

其实可以考虑用多段线顶点编号来实现桩号编制！多段线的连接次序就是编号的次序！
求助，给多段线节点编号并输出对应的坐标表
http://bbs.mjtd.com/forum.php?mo ... &fromuid=418631
(出处: 明经CAD社区)
本帖最后由 寒潮大冬瓜 于 2024-12-26 15:28 编辑
DFB二、三维顶点编号→自动字高+自动通过多段线顶点数量确定补齐位数00格式+自动图层名嵌套→波总指导升级版
只要闭着眼睛点击多段线就行了，不用理会参数输入……
(波多菠萝蜜951096036QQ群437857444群主)
(defun WB20240808(SJ12 SS93 / index1 sjg10 sjg18 ss98);自定义函数开始 SS93 SJ12
        (setq SJ12(itoa SJ12));编号序号转为字符串
        (setq SS98(itoa SS93));顶点个数转为字符串
        (setq SJG18(strlen SS98));以整数形式返回一个字符串中字符的个数
        (setq SJG10(strlen SJ12));以整数形式返回一个字符串中字符的个数
……
;Yw20240803获取块或直线多段线等图元外围对角坐标及其对角长度
(DEFUN Yw20240803(en / ll strxa strxab strxb strya stryab stryab-min stryb th2 ur)
        (vla-getboundingbox (vlax-ename->vla-object en) 'll 'ur)
        (setq ll (vlax-safearray->list ll)
……
DFB二三维顶点编号自动字高自动补齐位数00格式自动图层名嵌套波总指导升级版.lsp
6.28 KB, 下载次数: 7
售价: 3 个明经币  [记录]

20060510412

yanshengjiang 发表于 2021-12-23 23:21
你有兴趣可以试试看

不过我感觉有一点可以改进，那个字高没有必要人为指定，根据图形的尺寸自动考虑应该更合适，例如圆形直径的0.5倍。
像字高这类参数，在没有生成图形之前，必须试几次才能知道合适的大小，这样就很繁琐。
如果有需要设置确切的字高，自动生成文字之后，再批量调整字高，效率也要高很多。

Wanda

路过支持一下开源

kx820506

感谢楼主无私奉献，

bg3xs

这个是不是要配套的dcl文件，才能运行呀。

天宇飞翔12

支持支持

luqzcm

支持支持

htlaser

路过支持一下开源作者  

20060510412

学习一下，怎么实现不用dcl文件也可以操作窗口。

yanshengjiang

20060510412 发表于 2021-12-23 15:02
学习一下，怎么实现不用dcl文件也可以操作窗口。

dcl是用lsp写出的  实际也就有dcl文件