AutoCAD Lisp - 如何垂直绘制 Y答案

【问题标题】：AutoCAD Lisp - How to get Y drawn verticallyAutoCAD Lisp - 如何垂直绘制 Y
【发布时间】：2013-05-20 13:03:44
【问题描述】：

我目前正在使用以下 Lisp 代码来显示原点的 X 和 Y 坐标：

(defun c:xy(/ pt pt1 pt2 x y  xy)

(setq pt (getpoint "\nPoint : "))
(setq x(rtos(car pt)))
(setq y(rtos(cadr pt)))

; x- leader horizontaal                                
(setq pt1 (getpoint pt "\nHORIZONTAL: "))
(command "leader" pt pt1 "" x "" )

; y- leader verticaal                                
(setq pt2 (getpoint pt "\nVERTICAL: "))
(command "leader" pt pt2  "" y "" ) )

(princ)

脚本当前显示Y坐标（6050.00）如下：

虽然我希望像这样垂直绘制 Y 坐标：

有没有可能通过 Lisp 实现这一点？如果是这样，我需要做出哪些改变？

【问题讨论】：

标签： lisp coordinates autocad autolisp

【解决方案1】：

您可以在放置第二个引线之前根据需要旋转 UCS：

(command "_UCS" "_Z" "90d")

或者，使用 _DIMORDINATE 命令代替 _LEADER，以便标注文本具有关联性并自动更新。

【讨论】：