求助，用lisp脚本自动画带文字的直线，在直线上方创建如图文字。

gogozb

需要创建带文字的直线，文字两边为相等的直线，上方写固定文本，两边直线上方也同样写固定文本。菜鸟一枚，望大佬相助。

gogozb

2. ( defun c:ttt()
   
3. ;;;  ( defun c:ttt( /p1 p2 p3 p4 pz pzs string jl jlb pw)
   
4. ;;;(setvar "orthomode" 1);开正交
   
5. (if (= (getvar "orthomode") 0)
   
6.         (progn
   
7.                 (setvar "orthomode" 1);开正交
   
8.                 (princ "\n正交已打开")
   
9.         )
   
10. )
    
11. (setq p1 (getpoint "\n 起点:");起点
    
12.       p4 (getpoint p1 "\n 终点:");终点,有动态效果
    
13.       ;pz (list (+ (/ (- (car p4) (car p1)) 2) (car p1)) (cadr p4));中点
    
14.           pz (list (/ (+ (car p1) (car p4)) 2.0) (/ (+ (cadr p1) (cadr p4)) 2.0));中点
    
15.           ;jl字符串占用实际长度距离
    
16.       String "GSTY-24D1.3"
    
17.       Tbox (textbox (list (cons 1 String)))
    
18.       jl (distance (car Tbox) (cadr Tbox))
    
19.           ;文字的起点位置
    
20.       jlb (+ (/ jl 2) 0.5)
    
21.           ;左边直线末端
    
22.       p2 (list  (- (car pz) jlb)  (cadr pz) )
    
23.           ;将文字的起点下调1.5
    
24.       pw (list  (car p2) (- (cadr p2) 1.5))
    
25.           ;右边直线的起点
    
26.       p3 (list  (+ (car pz) jlb)  (cadr pz) )
    
27.           ;二级分光箱的起点
    
28.       p5 (list (car p4) (-(cadr p4) 2))
    
29.       ;上方文字
    
30.       pzs (list (car pz)(+ (cadr p4) 4))
    
31.       
    
32. )
    
33. ;;;(print jlb)  
    
34. (VL-CMDF "text" "m" pz  2.5  0  string )
    
35. (VL-CMDF "Pline" p1 "W" 0.5 0.5 p2 "")
    
36. (VL-CMDF "Pline" p3 "W" 0.5 0.5 p4 "")
    
37. ;;;(VL-CMDF "insert" "YYJIF" "x" p4 "y" p4 "r" 0 p4 "")
    
38. ;;;(VL-CMDF "insert" "YYJIF" p5 1 1 0)
    
39. (VL-CMDF "insert" "XLDDJ" p5 1 1 0)
    
40. (VL-CMDF "text" "m"  pzs  2.5  0  "钉50" )
    
41. ;;;  以下两行语句测试中点
    
42. ;;;  (command "Pline" p1 p4 "W" 0.5 0.5 "")
    
43. ;;;  (command "circle" pz 5)
    
44. (setvar "orthomode" 0);开正交
    
45. (princ)
    
46. )
    

( defun c:ttt()<br /> ;;;  ( defun c:ttt( /p1 p2 p3 p4 pz pzs string jl jlb pw)<br /> ;;;(setvar "orthomode" 1);开正交<br /> (if (= (getvar "orthomode") 0)<br />         (progn<br />                 (setvar "orthomode" 1);开正交<br />                 (princ "\n正交已打开")<br />         )<br /> ) <br /> (setq p1 (getpoint "\n 起点:");起点<br />       p4 (getpoint p1 "\n 终点:");终点,有动态效果<br />       ;pz (list (+ (/ (- (car p4) (car p1)) 2) (car p1)) (cadr p4));中点<br />           pz (list (/ (+ (car p1) (car p4)) 2.0) (/ (+ (cadr p1) (cadr p4)) 2.0));中点<br />           ;jl字符串占用实际长度距离<br />       String "GSTY-24D1.3"<br />       Tbox (textbox (list (cons 1 String)))<br />       jl (distance (car Tbox) (cadr Tbox))<br />           ;文字的起点位置<br />       jlb (+ (/ jl 2) 0.5)<br />           ;左边直线末端<br />       p2 (list  (- (car pz) jlb)  (cadr pz) )<br />           ;将文字的起点下调1.5<br />       pw (list  (car p2) (- (cadr p2) 1.5))<br />           ;右边直线的起点<br />       p3 (list  (+ (car pz) jlb)  (cadr pz) )<br />           ;二级分光箱的起点<br />       p5 (list (car p4) (-(cadr p4) 2))<br />       ;上方文字<br />       pzs (list (car pz)(+ (cadr p4) 4))<br />       <br /> )<br /> ;;;(print jlb)  <br /> (VL-CMDF "text" "m" pz  2.5  0  string )<br /> (VL-CMDF "Pline" p1 "W" 0.5 0.5 p2 "")<br /> (VL-CMDF "Pline" p3 "W" 0.5 0.5 p4 "")<br /> ;;;(VL-CMDF "insert" "YYJIF" "x" p4 "y" p4 "r" 0 p4 "")<br /> ;;;(VL-CMDF "insert" "YYJIF" p5 1 1 0)<br /> (VL-CMDF "insert" "XLDDJ" p5 1 1 0)<br /> (VL-CMDF "text" "m"  pzs  2.5  0  "钉50" )<br /> ;;;  以下两行语句测试中点<br /> ;;;  (command "Pline" p1 p4 "W" 0.5 0.5 "")<br /> ;;;  (command "circle" pz 5)<br /> (setvar "orthomode" 0);开正交<br /> (princ)<br /> )<br />

瞎弄的不完美，请问大佬们还有没有更好的方法，最近开始学autolisp，好多概念不太明白。