AutoCAD Lisp-如何垂直绘制Y

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

（定义c:xy（/pt pt1 pt2 x y xy）
（设置点（获取点“\n点：”）
（setq x（实时操作系统（车载pt）））
（setq y（实时操作系统（cadr pt）））
；x-领头羊Horizontal
（setq pt1（获取点pt“\n水平：”）
（命令“leader”pt pt1“x”）
；y-垂直引线
（setq pt2（获取点pt“\n关键：”）
（命令“领导”pt pt2“y”）
（普林斯）

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

虽然我希望Y坐标垂直绘制如下：

---

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

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

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

---

或者，使用_dimcologite命令而不是_LEADER，以便标注文字具有关联性并自动更新。

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

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

或者，使用_dimcologite命令而不是_LEADER，以便标注文字具有关联性并自动更新