求教getpoint设置

chenbh2

求教getpoint设置
当点选时绘制线段为缩小4倍(不想1:1绘制),这没有问题.
而当输入数字后,线段为输入长度,文字则扩大了4倍,有没
有办法输入文字后线段相应缩短,写入文字为输入的文字

ZZXXQQ

2. ;;******************************************************************hqd绘制墙吊
   
3. (defun c:hqd ()
   
4. (setq p1 (getpoint "\n墙吊取点 :"))
   
5. (while (setq p2 (getpoint p1 "\n墙吊终端 :"))
   
6.   (setq cdd (* (distance p1 p2) 4))
   
7.   (setq wbx (rtos cdd 2 0));此函数将返回 3D p1 p2 之间的距离。
   
8.   (setq ang (angle p1 p2))
   
9.   (setq p3 (polar (polar p1 ang (/ cdd 8)) (+ (/ pi 2) ang) 2.2))
   
10.   (command ".pLINE" "non" p1 "non" p2 "")
    
11.   (command "text" "MC" p3 2.5 (/ (* ang 180) pi) wbx);文字高度2.5 旋转0
    
12.   (setq p1 p2)
    
13. )
    
14. (prin1)
    
15. )
    

;;******************************************************************hqd绘制墙吊<br /> (defun c:hqd ()<br /> (setq p1 (getpoint "\n墙吊取点 :"))<br /> (while (setq p2 (getpoint p1 "\n墙吊终端 :"))<br />   (setq cdd (* (distance p1 p2) 4))<br />   (setq wbx (rtos cdd 2 0));此函数将返回 3D p1 p2 之间的距离。<br />   (setq ang (angle p1 p2))<br />   (setq p3 (polar (polar p1 ang (/ cdd 8)) (+ (/ pi 2) ang) 2.2))<br />   (command ".pLINE" "non" p1 "non" p2 "")<br />   (command "text" "MC" p3 2.5 (/ (* ang 180) pi) wbx);文字高度2.5 旋转0<br />   (setq p1 p2)<br /> )<br /> (prin1)<br /> )<br />

程序中字高始终是2.5，文字为线长的4倍。但不明白最后一句的意思