Question

一个关于auto lisp 提取直线角度的问题

我是auto lisp初学，想实现一个类似CAD格式刷命令的功能，源对象选取一条直线提取他的角度，将这个角度应用在目标对象文字上，请问怎么写程序？ 看了你的关于“auto lisp中已知直线两点，如何画与直线平行的文字”这个问题的回答，感觉有些思路，但还是一头雾水，谢谢了

Answer 1

提取直线角度，然后改变文字角度。写了一个代码，给你参考：

(defun c:tes ( / ang obj)
 (vl-load-com)
 (if (and (setq obj (entsel "\n请选择直线"))
          (setq obj (vlax-ename->vla-object (car obj)));变体
          (= (vla-get-ObjectName obj) "AcDbLine");确认是直线
          (setq ang (vla-get-Angle obj));提取直线角度
          (setq obj (entsel "\n请选择文字"))
          (setq obj (vlax-ename->vla-object (car obj)));变体
          (= (vla-get-ObjectName obj) "AcDbText");确认是文字
     )
  (vla-put-Rotation obj ang);改变文字角度
 )
 (princ)
)