麻烦师傅们帮看下小弟这个小程序，怎么运行不了

54525596

(defun c:tt()
(setq gj (getstring "\n请输入文字："))
(setq zx (car (entsel "\n请选择直线：")))
（setq xx (entget zx)）
(setq q1 (cdr (assoc 10 xx)))
(setq q2 (cdr (assoc 11 xx)));获取端点坐标
(setq a (angle q1 q2));获取角度
(setq x1 (car q1))
(setq y1 (cadr q1))
(setq x2 (car q2))
(setq y2 (cadr q2))
(setq zz (list (/ (+ x1 x2) 2) (/ (+ y1 y2) 2)));求中点坐标
(command "text" zz "1" a gj);写文字
)
老提示二维，三维，NIL，，我刚学的。谢谢。

vlisp2012

(defun c:tt()
(setq gj (getstring "\n请输入文字："))
(setq zx (car (entsel "\n请选择直线：")))
(setq xx (entget zx))
(setq q1 (cdr (assoc 10 xx)))
(setq q2 (cdr (assoc 11 xx)));获取端点坐标
(setq a (angle q1 q2));获取角度
(setq x1 (car q1))
(setq y1 (cadr q1))
(setq x2 (car q2))
(setq y2 (cadr q2))
(setq zz (list (/ (+ x1 x2) 2) (/ (+ y1 y2) 2)));求中点坐标
(command "text" zz "1" a gj);写文字
)

vlisp2012

你的括号，用错了。

zhuquanmao

1. (defun c:tt (/ a gj q1 q2 sca x1 x2 xx y1 y2 zx zz)
   
2.   (setq sca (getvar "DIMSCALE"));取得标注比例
   
3.   (setq gj (getstring "\n请输入文字："))
   
4.   (setq zx (car (entsel "\n请选择直线：")))
   
5.   (setq xx (entget zx))
   
6.   (setq q1 (cdr (assoc 10 xx)))
   
7.   (setq q2 (cdr (assoc 11 xx)))               ; 获取端点坐标
   
8.   (setq a (/ (* 180 (angle q1 q2)) pi))               ; 获取角度  弧度转为角度
   
9.   (setq x1 (car q1))
   
10.   (setq y1 (cadr q1))
    
11.   (setq x2 (car q2))
    
12.   (setq y2 (cadr q2))
    
13.   (setq zz (list (/ (+ x1 x2) 2) (/ (+ y1 y2) 2))) ; 求中点坐标
    
14.   (command "text" zz (* sca 4) a gj)               ; 写文字
    
15.   (princ)
    
16. )
    

(defun c:tt (/ a gj q1 q2 sca x1 x2 xx y1 y2 zx zz)<br />   (setq sca (getvar "DIMSCALE"));取得标注比例<br />   (setq gj (getstring "\n请输入文字："))<br />   (setq zx (car (entsel "\n请选择直线：")))<br />   (setq xx (entget zx))<br />   (setq q1 (cdr (assoc 10 xx)))<br />   (setq q2 (cdr (assoc 11 xx)))               ; 获取端点坐标<br />   (setq a (/ (* 180 (angle q1 q2)) pi))               ; 获取角度  弧度转为角度<br />   (setq x1 (car q1))<br />   (setq y1 (cadr q1))<br />   (setq x2 (car q2))<br />   (setq y2 (cadr q2))<br />   (setq zz (list (/ (+ x1 x2) 2) (/ (+ y1 y2) 2))) ; 求中点坐标<br />   (command "text" zz (* sca 4) a gj)               ; 写文字<br />   (princ)<br /> )<br />

alwtyp

你想把文字写在哪？直线的中间？我运行出来的要离直线好远

alwtyp

2. <span style="line-height: 1.5;">(defun c:tt()</span>
   
3. (setq gj (getstring "\n请输入文字："))
   
4. (setq zx (car (entsel "\n请选择直线：")))
   
5. (setq xx (entget zx))
   
6. (setq q1 (cdr (assoc 10 xx)))
   
7. (setq q2 (cdr (assoc 11 xx)));获取端点坐标
   
8. (setq a (angle q1 q2));获取角度
   
9. (setq x1 (car q1))
   
10. (setq y1 (cadr q1))
    
11. (setq x2 (car q2))
    
12. (setq y2 (cadr q2))
    
13. (setq zz (list (+ x1 (ABS(/ (- x2 x1) 2))) (+ y1 (ABS(/ (- y2 y1) 2)))));求中点坐标
    
14. (command "text" zz "1" a gj);写文字
    
15. )

<span style="line-height: 1.5;">(defun c:tt()</span><br /> (setq gj (getstring "\n请输入文字："))<br /> (setq zx (car (entsel "\n请选择直线：")))<br /> (setq xx (entget zx))<br /> (setq q1 (cdr (assoc 10 xx)))<br /> (setq q2 (cdr (assoc 11 xx)));获取端点坐标<br /> (setq a (angle q1 q2));获取角度<br /> (setq x1 (car q1))<br /> (setq y1 (cadr q1))<br /> (setq x2 (car q2))<br /> (setq y2 (cadr q2))<br /> (setq zz (list (+ x1 (ABS(/ (- x2 x1) 2))) (+ y1 (ABS(/ (- y2 y1) 2)))));求中点坐标<br /> (command "text" zz "1" a gj);写文字<br /> )

54525596

vlisp2012 发表于 2013-5-6 21:23
(defun c:tt()
(setq gj (getstring "\n请输入文字："))
(setq zx (car (entsel "\n请选择直线：")))

谢谢你。初学者，需要你们这样的教师教一下，但是我把你这份复制到我的文字里面，一个一个对的，我也改了（setq xx (entget zx)）这个，，但我的就运行不了，用你的就运行得了，不过还是得谢谢你。呵呵。我是想写文字在直线上，平行直线，但用的(setq a (angle q1 q2))这个算法不行，，呵呵，

54525596

alwtyp 发表于 2013-5-6 21:32
你想把文字写在哪？直线的中间？我运行出来的要离直线好远

远倒不远呀，就是文字角度不与直线平行，我想要的是这样的结果

54525596

alwtyp 发表于 2013-5-6 21:51

用了你这个，你的才是离得远呀？？？

54525596

alwtyp 发表于 2013-5-6 21:51

哦，我发现了，只要把显示区缩小，就会出现这种情况，为什么？？？？