社区 › AutoLISP/Visual LISP 编程技术 › 求助：非闭合多段线两端同时延伸给定距离的编程思路？谢谢！

Gu_xl 发表于 2013-7-7 21:43:53

xhq1954425 发表于 2013-7-7 21:22 static/image/common/back.gif
你要是出手那还说啥就是强大！一个顶三呀

呵呵，动画做得非常漂亮！

soly2006 发表于 2013-7-7 23:34:29

Gu_xl 发表于 2013-7-7 21:43 static/image/common/back.gif
呵呵，动画做得非常漂亮！

老大没用过美图吧，呵呵。

xhq1954425 发表于 2013-7-8 05:13:48

ZZXXQQ 发表于 2013-7-7 21:00 static/image/common/back.gif
使用命令LENGTHEN也行。
(command "LENGTHEN" "DE"端点 ... "")

对ZZXXQQ版主对我多次出手相助表示谢意！

xhq1954425 发表于 2013-7-8 05:18:43

本帖最后由 xhq1954425 于 2013-7-8 05:20 编辑

在用户坐标系下（三维）有时只是一端延伸，再加上两句就行了，再谢Gu_xl版主
(defun c:tt ()
;(initget 7)
(command "_.UCS" "W")
(setq d (getreal "\n延伸距离:"))
(setq e (car(entsel "\n选择曲线:")))
(command "_lengthen" "de" d)
(command (list e (vlax-curve-getStartPoint e)) (list e (vlax-curve-getEndPoint e)) "")
(command "_.UCS" "P")
(princ)
)

Gu_xl 发表于 2013-7-8 09:28:44

xhq1954425 发表于 2013-7-8 05:18 static/image/common/back.gif
在用户坐标系下（三维）有时只是一端延伸，再加上两句就行了，再谢Gu_xl版主
(defun c:tt ()
...

将点用(trans pt 0 1)转到ucs即可！无需改变坐标系！修改后代码间8楼！

xhq1954425 发表于 2013-7-8 12:49:30

本帖最后由 xhq1954425 于 2013-7-8 12:52 编辑

Gu_xl 发表于 2013-7-8 09:28 static/image/common/back.gif
将点用(trans pt 0 1)转到ucs即可！无需改变坐标系！修改后代码间8楼！
首先向您致敬！我要不断向您学习（编程技术+诲人不倦的高尚品德）……你这个好使！谢谢！

skg123 发表于 2022-5-9 17:25:06

vormittag 发表于 2013-7-7 19:26
如果首尾两端都是直线就好搞一些。
起终点的切线矢量通过vlax-curve-getFirstDeriv 可以取得，沿伸以后的 ...

延伸圆弧是最烦人，总是一个方向延伸

查看完整版本: 求助：非闭合多段线两端同时延伸给定距离的编程思路？谢谢！