(defun c:tl() (command "ucs" "w") (setq el (entget (car (entsel)))) (setq ang (* 180.0 (/ (cdr (assoc 50 el)) pi))) (setq pt (cdr (assoc 10 el))) (command "UCS" "o" pt "ucs" "z" ang) (setq tl (textbox el)) (setq point1 (car tl)) (setq point2 (cadr tl)) (command "rectang" " non" point1 "non" point2) (command "ucs" "w") ) ;;经测试上面的程序对单行文本有效,对多行文本框位置会出错,请各们改一下 |