斜线如何沿斜线方向拉伸

注册

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

kwok

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

lite

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

edata

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

kwok

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

根据老大说用画圆方式，写了个简单的，其它线都可以对样条曲线无效。
我这个是先画圆再删，有没有办法不让圆显示出来，下面这个画的圆会显示一下，感觉有点怪.
(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

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

lite

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

如果是要使整个图形（包含矩形）长度或宽度整体伸缩到某一尺寸，有什么好的办法？