如何自定义写入文本的值

zhoufen564555

(defun c:xx()
     (setvar "cmdecho" 0) ;指令执行过程不响应
     (PRINC "\n框选写入文字功能，写入: 123")(PRINC)
(setq mkj (getvar 'OSMODE)) (setvar "osmode" 0)               
     (setq p1 (getpoint "\n-->请指定文字的左下角点： "))
     (setq p3 (getcorner p1 "\n-->请指定文字的对角点： "))
     (setq p2 (list (car p1)(cadr p3)))
     (setq p4 (list (car p3)(cadr p1)))
     (setq gg "123")
     (setq cp (inters p1 p3 p2 p4));求出交点
     (setq d (distance p1 p2));计算距离
     (setq d1 (distance p1 p4));计算距离
     (if (< d1 d)
     (setq hd (/ (distance p1 p2) 2))
     (setq hd (/ (distance p1 p4) 2))
     )
     (if (> d1 d)
     (setq th (/ (distance p1 p2) 2))
     (setq th (/ (distance p1 p4) 2))
     )
     (setq nhd (- hd (* 0.12 (getvar "dimscale"))))
     (setq newcp (polar cp (* 1.5 pi) (/ th 2)))
     (setq fp1 (polar newcp pi nhd))
     (setq fp2 (polar newcp 0 nhd))
     (command "text" "f" fp1 fp2 th GG)
   (setvar "clayer" AA)(setvar "osmode" mkj)
     (PRINC "\n写入文本完成！")(PRINC))

zhoufen564555

框选写入文本，不过定义不了写入的文字值，高手帮忙修改下，谢谢！

Lisphk

1. (defun c:xx ()
   
2.   (setvar "cmdecho" 0)                       ; 指令执行过程不响应
   
3.   (PRINC "\n框选写入文字功能，写入: 123")
   
4.   (PRINC)
   
5.   (setq mkj (getvar 'OSMODE))
   
6.   (setvar "osmode" 0)
   
7. ;  (setq gg "123")
   
8.   (setq gg (getstring "\n输入文字:"))
   
9.   (setq p1 (getpoint "\n-->请指定文字的左下角点： "))
   
10.   (setq p3 (getcorner p1 "\n-->请指定文字的对角点： "))
    
11.   (setq p2 (list (car p1) (cadr p3)))
    
12.   (setq p4 (list (car p3) (cadr p1)))
    
13.   (setq cp (inters
    
14.              p1
    
15.              p3
    
16.              p2
    
17.              p4
    
18.            )
    
19.   )                                       ; 求出交点
    
20.   (setq d (distance p1 p2))               ; 计算距离
    
21.   (setq d1 (distance p1 p4))               ; 计算距离
    
22.   (if (< d1 d)
    
23.     (setq hd (/ (distance p1 p2) 2))
    
24.     (setq hd (/ (distance p1 p4) 2))
    
25.   )
    
26.   (if (> d1 d)
    
27.     (setq th (/ (distance p1 p2) 2))
    
28.     (setq th (/ (distance p1 p4) 2))
    
29.   )
    
30.   (setq nhd (- hd (* 0.12 (getvar "dimscale"))))
    
31.   (setq newcp (polar cp (* 1.5 pi) (/ th 2)))
    
32.   (setq fp1 (polar newcp pi nhd))
    
33.   (setq fp2 (polar newcp 0 nhd))
    
34.   (command "text" "f" fp1 fp2 th GG)
    
35.   (setvar "clayer" AA)
    
36.   (setvar "osmode" mkj)
    
37.   (PRINC "\n写入文本完成！")
    
38.   (PRINC)
    
39. )
    
40. 
    

(defun c:xx ()<br />   (setvar "cmdecho" 0)                       ; 指令执行过程不响应<br />   (PRINC "\n框选写入文字功能，写入: 123")<br />   (PRINC)<br />   (setq mkj (getvar 'OSMODE))<br />   (setvar "osmode" 0)<br /> ;  (setq gg "123")<br />   (setq gg (getstring "\n输入文字:"))<br />   (setq p1 (getpoint "\n-->请指定文字的左下角点： "))<br />   (setq p3 (getcorner p1 "\n-->请指定文字的对角点： "))<br />   (setq p2 (list (car p1) (cadr p3)))<br />   (setq p4 (list (car p3) (cadr p1)))<br />   (setq cp (inters<br />              p1<br />              p3<br />              p2<br />              p4<br />            )<br />   )                                       ; 求出交点<br />   (setq d (distance p1 p2))               ; 计算距离<br />   (setq d1 (distance p1 p4))               ; 计算距离<br />   (if (< d1 d)<br />     (setq hd (/ (distance p1 p2) 2))<br />     (setq hd (/ (distance p1 p4) 2))<br />   )<br />   (if (> d1 d)<br />     (setq th (/ (distance p1 p2) 2))<br />     (setq th (/ (distance p1 p4) 2))<br />   )<br />   (setq nhd (- hd (* 0.12 (getvar "dimscale"))))<br />   (setq newcp (polar cp (* 1.5 pi) (/ th 2)))<br />   (setq fp1 (polar newcp pi nhd))<br />   (setq fp2 (polar newcp 0 nhd))<br />   (command "text" "f" fp1 fp2 th GG)<br />   (setvar "clayer" AA)<br />   (setvar "osmode" mkj)<br />   (PRINC "\n写入文本完成！")<br />   (PRINC)<br /> )<br /> <br />