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

54525596 · 发表于 2013-5-6 21:12:52

(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 · 发表于 2013-5-6 21:23:39

(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 · 发表于 2013-5-6 21:24:19

你的括号，用错了。

zhuquanmao · 发表于 2013-5-6 21:30:32

(defun c:tt (/ a gj q1 q2 sca x1 x2 xx y1 y2 zx zz)
(setq sca (getvar "DIMSCALE"));取得标注比例
(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 (/ (* 180 (angle q1 q2)) pi)) ; 获取角度弧度转为角度
(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 (* sca 4) a gj) ; 写文字
(princ)
)

alwtyp · 发表于 2013-5-6 21:32:13

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

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

<span style="line-height: 1.5;">(defun c:tt()</span>
(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 (ABS(/ (- x2 x1) 2))) (+ y1 (ABS(/ (- y2 y1) 2)))));求中点坐标
(command "text" zz "1" a gj);写文字
)

54525596 · 发表于 2013-5-7 20:00:00

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 · 发表于 2013-5-7 20:00:32

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

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

54525596 · 发表于 2013-5-7 20:02:06

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

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

54525596 · 发表于 2013-5-7 20:04:55

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

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

账号		自动登录	找回密码
密码			注册

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

相关帖子