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

54525596

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

哦，，你的是好的，，哈哈。。。学习学习

54525596

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

要的就是这个效果。。谢谢。。

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)));求中点坐标
(setq wzjd (hdzjd (angle q1 q2 )))
;;;(command "text" zz "1" a gj);写文字
(command "text"
                    "j"
                    "m"
                    zz
                    (getvar "textsize")
                    wzjd
                    gj   
                    
           )
)

(defun hdzjd(pt)
(setq du (/ (* pt 180) pi))
  )

54525596

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

(defun c:tt()
  (setq gj (getstring "\n请输入文字："))

  (if（setq ss (ssget '(0."line"))）

（progn

  (setq i 0)

  (repeat (sslength ss)

     (setq en (entget (ssname ss i)))

     (setq q1 (cdr (assoc 10 en)))

     (setq q2 (cdr (assoc 11 en)))               ; 获取端点坐标

     (setq a (/ (* 180 (angle q1 q2)) pi))

     (setq x2 (car q2))

     (setq y2 (cadr q2))

     (setq zz (list (/ (+ x1 x2) 2) (/ (+ y1 y2) 2))) ; 求中点坐标

     (setq i (+ i 1))

     (command "text" zz "1.5" a gj)  ; 写文字
     
);退出progn

);退出repeat

);退出IF  
     

)
师傅，那样的方法可以了，我现在想用选择集来更完善一下做，但做出来又不知道是什么原因错了？呵呵。。提示错误点参数。。。麻烦师傅再帮看下，顺便说说错的原因。谢谢了。。。。