[求助] 改原稍歪的直线为水平或垂直线的简单方法？

ckfq

　　原画歪了些的直线，要改为水平或垂直线时，调用状态栏的“极轴”按钮的虚线来校对纠正，较吃力，虽然“对象捕捉”已经全部选用了，也没用，用“夹点”纠正时，直线也常纠偏了，因此，我常常是把原稍歪的直线删除了，再调用“正交”按钮，重画这条水平或垂直线，但我总觉得这不是简便的方法。

　　请教高手：　改原稍歪的直线为水平或垂直线的简单方法？谢谢！

Joseflin

ROTATE(r)→select all→ref=兩端點→new=0or90

ckfq

Joseflin发表于2008-4-18 15:47:00ROTATE(r)→select all→ref=兩端點→new=0or90

　　感谢Joseflin老师的启发点拨，我按照您的方法，可以十分准确地、较快地改原歪斜的直线为水平或垂直线了，由于不必象我原方法，要反复校对重画，可以一次性地准确完成，所以速度快了。

　　不知还有没有其它的简单的方法？

phoenixdjq

可以以这条线的一个端点画条水平线，然后用align

想再快就要编个程序了，那就简单

程序用几句话，就解决了，就不贴了，本论坛就有

ckfq

phoenixdjq发表于2008-4-21 21:59:00可以以这条线的一个端点画条水平线，然后用align想再快就要编个程序了，那就简单程序用几句话，就解决了，就不贴了，本论坛就有

　谢谢phoenixdjq老师的解答！程序用几句话，就解决了，不知在本论坛的位置，主题？盼老师能提供链接的网址，并把这个程序写在这里，及说明使用的方法，谢谢！

phoenixdjq

不知道是不是你要的

如果有问题再联系

(defun c:tp()
(setq zu (entsel "\n请选择直线(靠近旋转点一端):"))
(setq ent (car zu))
(setq mbd (cadr zu))
(setq jidian (osnap mbd "end" ))
(command "._rotate" ent "" jidian "r" jidian mbd pause)
)