本帖涉嫌侵权
看不到
~~~~~~~~~~~~
yanshengjiang 发表于 2023-12-20 10:53
本帖涉嫌侵权
yanshengjiang大侠好！发给源码我学习学习好吧？462463943@qq.com
二三维顶点编号波总指导升级版(自动获取多段线顶点个数变为012格式)
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=190841&fromuid=418631
(出处: 明经CAD社区)
20060510412 发表于 2021-12-24 09:27
不过我感觉有一点可以改进，那个字高没有必要人为指定，根据图形的尺寸自动考虑应该更合适，例如圆形直径 ...
其实可以考虑用多段线顶点编号来实现桩号编制！多段线的连接次序就是编号的次序！
求助，给多段线节点编号并输出对应的坐标表
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=190572&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 个明经币[记录]