[求助]：[1014]如何设定聚合线或曲线测量起点位置?

tctabc

[求助]：[1014]如何设定聚合线或曲线测量起点位置?
我想写各可以标示聚合线或曲线由起点开始指定距离并标示出点位.
但却发现线有起点,终点的问题?
不知道该怎样处理呢?
希望各位高手可以帮忙解答一下
谢谢~

2. 
   
3. (setq EN (CAR(ENTSEL "\n 选取聚合线:")))
   
4. (setq Obj (vlax-ename->vla-object EN))
   
5. (SETQ ST (GETPOINT "\n 设定起点:"))
   
6. (SETQ DT (GETREAL "\n 输入距离值:"))
   
7. (setq PT (vlax-curve-getPointAtDist Obj DT))
   
8. (COMMAND "POINT" PT "") ;标示距离点位置
   

<br /> (setq EN (CAR(ENTSEL "\n 选取聚合线:")))<br /> (setq Obj (vlax-ename->vla-object EN))<br /> (SETQ ST (GETPOINT "\n 设定起点:"))<br /> (SETQ DT (GETREAL "\n 输入距离值:"))<br /> (setq PT (vlax-curve-getPointAtDist Obj DT))<br /> (COMMAND "POINT" PT "") ;标示距离点位置<br />

雨箭风刀

加个判断，总长=d , pt点距离起点＝d1,距离终点=d2
d1<d2,原程序不用变
d2<d1,(vlax-curve-getPointAtDist Obj DT)改为(vlax-curve-getPointAtDist Obj (- d dt)))

tctabc

楼主的答案好像没写完的样子
d1 d2 ?
不知道可以再说清楚点吗?
谢谢

xyz518mm

您看看这样行吗?
另外请问如果要一次输入多个距离值
来执行该怎样改进呢?   
[PHP]
(DEFUN C:TS ()
    (SETQ EN (CAR (ENTSEL "\n 选取聚合线:")))
    (SETQ OBJ (VLAX-ENAME->VLA-OBJECT EN))
    (COMMAND "_.osnap" "ENDP")
    (SETQ SPT (GETPOINT "\n 设定起点:"))
    (SETQ DST (GETREAL "\n 输入距离值:"))
    (SETQ PLD1 (VLAX-CURVE-GETDISTATPOINT OBJ SPT))
    (SETQ OBJLA (VLA-GET-LENGTH OBJ))
    (IF (= PLD1 0.0)
        (SETQ PLT (VLAX-CURVE-GETPOINTATDIST OBJ DST)
              DD  (VLAX-CURVE-GETDISTATPOINT OBJ PLT)
        )
        (SETQ NDST (- OBJLA DST)
              PLT  (VLAX-CURVE-GETPOINTATDIST OBJ NDST)
        )
    )
    (SETVAR "OSMODE" 0)
    (COMMAND "POINT" PLT "")
)
[/PHP]