编辑'；看'；共m个
嘿，伙计们，又是我。我正在使用auto lisp标记X和Y坐标，我很满意（谢谢你们）
我只是想补充一些小的调整。
http://s15.postimage.org/5y2u6w2aj/autolisp.jpg
上述坐标由lisp程序本身获取。
下面的坐标是我想要lisp的样子。我基本上画了一条线，然后一个箭头指向该点，并重新调整文本大小以适应。
(defun c:dimo ( / p )
(while (setq p (getpoint "\nSpecify Point <Exit>: "))
(command "_.dimordinate" "_non" p "_T" (strcat "X=" (rtos (car p) 2 0) "Y=" (rtos (cadr p) 2 0)))
)
(princ)
)
这就是我正在使用的代码。
谢谢 只需更改文本样式的高度，即当前暗样式，以满足您的需要。 “箭头和线条”看起来更整洁，这是怎么回事？
编辑：更改了文字的高度，谢谢。 来自标注样式的同一对话框。
在命令行键入：dimstyle并查看选项卡（符号和箭头） 我换了箭头，没什么不同。它是像更改标注样式那样简单，还是因为它是一个自动lisp，我必须将其放入程序本身？ DIMORTIONS命令没有箭头，因此您当然不会看到任何差异
您可能需要使用Qleader或Mleader来处理箭头的大小。 对不起，我不知道那个命令，我试着玩弄它，但没用 下面是一个供您考虑的示例：
[颜色=绿色]；；创建一个MLeader对象，其中两个顶点显示坐标；；相对于当前UCS表示的第一个选定点的，单位为；；小数格式四舍五入到最接近的整数。；；由Lee Mac 2012（defunc:pt（/ml p1 p2 sp）（setqsp（vlax get property（vla get activedocument（vlax get acad object）（=1（'cvport））(while（和[setqp1（getpoint“\n点击点：）（setqp2（getpoint“\n点击引线端点：p1））（vla put text string（setqml（vlax invokesp'addmleader（append（transp1 1 0）（transp2 1 0））（strcat“X=（rtos（carp1 2 0）“Y=（rtos（cadrp1 0））（if([颜色=蓝色]
页:
[1]