求助：非闭合多段线两端同时延伸给定距离的编程思路？谢谢！

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

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

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

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

Gu_xl 发表于 2013-7-7 21:43
呵呵，动画做得非常漂亮！

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

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

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

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

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

本帖最后由 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" "

")
(princ)
)

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

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

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

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

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

Gu_xl 发表于 2013-7-8 09:28
将点用(trans pt 0 1)转到ucs即可！无需改变坐标系！修改后代码间8楼！

首先向您致敬！我要不断向您学习（编程技术+诲人不倦的高尚品德）……你这个好使！谢谢！

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

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

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

账号		自动登录	找回密码
密码			注册

[已解答] 求助：非闭合多段线两端同时延伸给定距离的编程思路？谢谢！

本帖子中包含更多资源