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

viz528

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

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 "") ;标示距离点位置

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

Joseflin

用Nearest抓点吧。