求相对线 绘制角度生成下面效果
本帖最后由 10144189 于 2025-2-16 21:24 编辑(defun c:tt ()
(setq ss(entsel "\n请选择基准线：")
pt(getpoint "\n请选择基准点：")
ang (getreal "\n请输入旋转角度：")
pt1 (cdr (assoc 10 (entget (car ss))))
pt2 (cdr (assoc 11 (entget (car ss))))
)
(command "line" pt1 pt2 "")
(command "ROTATE" (entlast) "" pt ang)
);end defun
新手下面的代码修剪代码不会写了，有大神帮修改下吗
页:
[1]