需要调整文字高度和
大家好，需要一些紧急帮助来调整lisp例程，以便能够输入文本的高度和箭头的大小。
程序如下：
<p>;*****************************************************************</p><p>; 008</p><p>; Automatic coordinate labeling</p><p>; Edwin Prakoso</p><p>; http://cad-notes.com</p><p>;</p><p>; Limitation Will use current leader style </p><p>; and current units setting</p><p>;</p><p>;*****************************************************************</p><p>;*****************************************************************</p><p>; </p><p>;</p><p>;</p><p>;</p><p>; lbxy</p><p>;</p><p>;</p><p>;</p><p>;</p><p>(defun c:lbxy (/p x y ptcoord textloc)</p><p>(while</p><p> (setq p (getpoint "\nPick Point: "))</p><p> (setq textloc (getpoint "\nPick Label Location: "))</p><p> (setq x (rtos (car p)))</p><p> (setq y (rtos (cadr p)))</p><p> (setq ptcoord (strcat x ", " y))</p><p> (command "_LEADER" p textloc "" ptcoord "")</p><p>)</p><p>)</p><p>;</p><p></p> 您可以通过首先设置样式来指定要使用的文本（具有高度），然后对箭头大小也执行相同的操作来实现这些需求，但它将是mleaderstyle，而不仅仅是文本样式。
事先做好准备，你的日常活动只需要修改一两行即可。 文字的高度和箭头的大小可以从当前文字样式和尺寸样式中进行修改。
HTH公司
莫斯塔法 或者试试这个。
(defun c:test(/ P1 P2 TEXTLOC X Y)
(setvar "dimasz"(getint "\n arrow size:"))
(setvar "DIMTXT"(getint "\n txt size:"))
(while
(setq p1 (getpoint "\npoint 1:"))
(setq p2 (getpoint p1 "\npoint 1:"))
(setq textloc (getpoint p2 "\ntextloc :"))
(setq x (rtos (car p1)))
(setq y (rtos (cadr p1)))
(setq x (strcat "X="x))
(setq y (strcat "y="y))
(command "qleader" p1 p2 textloc "" x y""))
)
页:
[1]