注册 发表于 2014-3-15 09:06:24

斜线如何沿斜线方向拉伸

一根或n根斜线，其与当前ucs的x轴不平行，如何才能实现沿斜线方向拉伸一定距离？

kwok 发表于 2014-3-15 11:00:40

如果是直线的话，直接用 LENGTHEN延伸，可以设定量可动态.

lite 发表于 2014-3-15 13:26:17

这是很常见的，而且图形是斜的，经常要沿着非ucs的x轴或y轴拉伸，图形也不一定就只有线段，还包含多段线图形。还有就是往往要拉伸的距离并不是从拉伸端要拉伸的距离，而是要使整个图形长度或宽度伸缩到某一尺寸，使用cad中的strech命令有点鸡肋和繁琐，而且还要先转换ucs来与拉伸方向对齐，不知道大家有什么好的思路或方法？谢谢！！！

edata 发表于 2014-3-15 13:50:51

如果是我，我会采用画圆的方式 ，然后延伸。

kwok 发表于 2014-3-15 17:27:20

本帖最后由 kwok 于 2014-3-17 14:32 编辑

edata 发表于 2014-3-15 13:50 static/image/common/back.gif
如果是我，我会采用画圆的方式 ，然后延伸。
根据老大说用画圆方式，写了个简单的，其它线都可以对样条曲线无效。
我这个是先画圆再删，有没有办法不让圆显示出来，下面这个画的圆会显示一下，感觉有点怪.
(defun C:tt (/ en pt cc dd)
(setq dd (getdist "\n指定延伸距离<10>:"))
(if (= dd nil)(setq dd 10))
(while
(setq en (entsel "\n选择线:"))
(setq pt (osnap (cadr en ) "endp"))
(command ".CIRCLE" pt dd)
(setq cc (entlast))
(command ".EXTEND" cc "" pt "")
(entdel cc)
)
(princ)
)

namezg 发表于 2014-3-15 20:35:44

改动ucs坐标，然后再改回来。

lite 发表于 2014-3-16 10:53:28

edata 发表于 2014-3-15 13:50 static/image/common/back.gif
如果是我，我会采用画圆的方式 ，然后延伸。

如果是要使整个图形（包含矩形）长度或宽度整体伸缩到某一尺寸，有什么好的办法？
页: [1]
查看完整版本: 斜线如何沿斜线方向拉伸