高手求助，怎样把一条直线摆正（水平或垂直）

hrbzxl · 发表于 2004-12-5 19:17:00

在特性中修改

pybpyb888 · 发表于 2004-12-5 20:53:00

你是孙恒远？

popsun · 发表于 2004-12-7 00:36:00

取得起点和终点的坐标

取得线的长度

从起点画一条水平或垂直的线

删除原来那根线

mmh1 · 发表于 2010-7-17 10:43:00

(defun c:nn2()
(setq sel (entsel "\n选择想要垂直的线:"))
(SETQ dxf (ENTGET (car sel)))
(setq P1 (cdr (assoc 10 DXF)))
(setq P2 (cdr (assoc 11 DXF)))
(command "rotate" sel "" p2 "r" p2 p1 90 "")
(princ)
)

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