[求助]修改坐标标注LISP
<p>程序来自网络，程序如下</p><p><font face="Verdana">(defun c:zx( / ucsfl os p0 pxx pyy px py pp ppp paa pbb entl a b le sc len alph alf </font></p>
<p><font face="Verdana">alfa p1 p2 p3 p11 p22 p21 t1 t2)<br/> (command "undo" "begin")<br/> (setq CHO (getvar "CMDECHO")) ;CMDECHO系统变量为1时，当使用command命令时反</font></p>
<p><font face="Verdana">馈提示和输入，如为0则不反馈<br/> (setvar "CMDECHO" 0)<br/> ;(command "style" "standard" "txt,hztxt" "" "" "" "" "" "")<br/>(setq ucsfl (getvar "ucsfollow"))<br/>(setvar "ucsfollow" 0)<br/>(command "ucs" "world") ;转到世界坐标系<br/>(setq os (getvar "osmode"))</font></p>
<p><font face="Verdana">(while (equal h nil)<br/> (setq h (getreal "\n 请输入字体高度:"))<br/>;(command "LAYER" "Make" "gaobz" "")<br/> ) <br/>(setvar "osmode" 37) ;1端点，4圆心，32交点，可组合。<br/>(initget 1 "h")<br/>(setq p0 (getpoint "\n H/<选择插入点:>"))<br/>(while (eq p0 "h") <br/> (setq hh (getreal "\n 请输入字体高度:"))<br/> (if (/= nil hh) (setq h hh))<br/>(setq p0 (getpoint "\n 请选择插入点:"))<br/>)<br/>(setq pxx (car p0))<br/>(setq pyy (nth 1 p0))<br/>(setq px (rtos pxx 2 3))<br/>(setq py (rtos pyy 2 3))<br/>(setvar "osmode" 0)<br/>(setq pp (getpoint "\n 请选择引出点:")) ;引出点pp<br/>(command "line" p0 pp nill)<br/>(command "ucs" "p") ;返回用户坐标系<br/>(command "line" "" pause "")</font></p><font face="Verdana">
<p><br/>(setq entl (entget (entlast)))<br/>(setq a (assoc 10 entl))<br/>(setq b (assoc 11 entl))<br/>(setq pa (cdr a)) ;引出点pa<br/>(setq ppp (cdr b)) ;引出点pb<br/>(setq paa (trans pa 0 1))<br/>(setq pbb (trans ppp 0 1)) ;引出点的用户坐标<br/>(setq le (distance paa pbb)) ;两点间距离 <br/>(setq len (* 9.5 h))<br/>(setq sc (/ len le))<br/>(if (< le len)<br/> (progn <br/> (command "scale" (entlast) "" paa sc "")<br/> )<br/>)<br/>(setq alph (angle paa pbb)) ;引出两点的弧度alph <br/>(setq alf (* 180.0 (/ alph pi))) ;求出角度值alf<br/>(setq p1 (polar paa alph h)) <br/>(setq p2 (polar p1 alph (* 5 h))) ;p2决定线长<br/>(setq p3 (polar p2 alph 1000))<br/>(setq ent (entlast))<br/>(command "break" ent p2 p3) ;将多余的线剪掉<br/>(if (>= alf 105) <br/>(if (>= alf 255)<br/> (progn<br/> (setq pd p1)<br/> (setq alfa alf)<br/> (setq p11 (polar pd (+ 1.5708 alph) (* 0.1 h)))<br/> (setq p12 (polar pd (+ 4.7124 alph) (* 1.1 h)));定出文本起点<br/> )<br/> (progn<br/> (setq p21 (polar p2 (+ pi alph) h)) ;<br/> (setq p11 (polar p21 (- alph 1.5708) (* 0.1 h)))<br/> (setq p12 (polar p21 (+ alph 1.5708) (* 1.1 h)));定出文本起点<br/> (setq alfa (+ alf 180))<br/> )<br/> )<br/> ;当alf大于105时<br/> (progn<br/> (setq pd p1)<br/> (setq alfa alf)<br/> (setq p11 (polar pd (+ 1.5708 alph) (* 0.1 h)))<br/> (setq p12 (polar pd (+ 4.7124 alph) (* 1.1 h)));定出文本起点<br/> )<br/>)<br/>(setq t1 (strcat "X=" py))<br/>(setq t2 (strcat "Y=" px))<br/>(command "text" p11 h alfa t1)<br/>(command "text" p12 h alfa t2)<br/>(setvar "osmode" os) ;返回原捕捉模式<br/>(setvar "ucsfollow" ucsfl)<br/> (command "undo" "end")<br/> (setvar "CMDECHO" CHO)<br/> (princ)<br/>)<br/>;----------------------------------------------------------------------------------</p>
<p></font> 效果如下图：</p>
<div><img style="WIDTH: 530px; HEIGHT: 359px" height="251" src="file:///D:/Program%20Files/qq/Users/99215573/Image/G%4MGZ4%_OTVVFA`$K40JEQ.jpg" width="202"/> </div>
<div> </div>
<div> <font color="#ff0000" size="5">问题如下：</font></div>
<p><font face="Verdana" color="#ff0000" size="5">X=,Y= 距离左端点有一个字高的水平距离，现想把它改成0.1的字高就可以了，应该怎么修改以上的程序呢？谢谢！</font></p>
页:
[1]