桩号标注为什么开头会重复两次

wanhongron

网上下载的某位大侠的多段线桩号标注程序，很好用，但是仔细看才发现开始桩号重复标注了两次，虽然影响不大，总觉得别扭。

caaooo

去掉红色的，希望你能找到在哪
外提一句，这个代码满low的


     (setq pt1 (vlax-curve-getStartPoint en))
     (setq pt1 (vlax-curve-getEndPoint en))
      )
   (if (= fx 1.0)
    (setq zhz 0)
    (setq zhz (vlax-curve-getDistAtPoint en (vlax-curve-getEndPoint en)))
     )
     (setq zhz (+ zhz (* qszh fx)))
   (setq zhz (* zhz fx))
    (xrbz)
     (setq nn 0)
     (while
     (setq pt1 (vlax-curve-getPointAtDist en (abs(- (* nn (* dist fx)) pzh))))
     (setq zhz (* nn (* dist fx)))
     (setq zhz (+ zhz (- qszh pzh)))
     (xrbz)
     (setq nn (1+ nn))
     )

wanhongron

caaooo侠，去掉了，还是一样重复，也不影响使用

寒潮大冬瓜

求助，给多段线节点编号并输出对应的坐标表
http://bbs.mjtd.com/forum.php?mo ... &fromuid=418631
(出处: 明经CAD社区)
建议参考一下：
本帖最后由 寒潮大冬瓜 于 2024-12-26 15:28 编辑
DFB二、三维顶点编号→自动字高+自动通过多段线顶点数量确定补齐位数00格式+自动图层名嵌套→波总指导升级版
只要闭着眼睛点击多段线就行了，不用理会参数输入……
(波多菠萝蜜951096036QQ群437857444群主)
(deun 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

caaooo

wanhongron 发表于 2025-10-10 16:40
caaooo侠，去掉了，还是一样重复，也不影响使用

我试过的，满足你的需求

bhxhenshuai

wanhongron 发表于 2025-10-10 16:40
caaooo侠，去掉了，还是一样重复，也不影响使用

我也试了个把循环前面的（xrbz）这个函数删掉就可以了

香远益清

(xrbz) 一共有三处，把最上面的一处删除即可。

wanhongron

香远益清