有关TEXT命令的问题，请帮忙！

EPISODE

为线（直线或多段线的一段）加上标注，遍了一段程序，如下：
(defun C:ADDNOTE (/ osvar start end middle rotate insert text)
  (setq osvar (getvar "osmode"))
  (setvar "osmode" 1)
  (setq start (getpoint "\n选取第1个点,"))
  (setq end (getpoint start " 选取第2个点"))
  (setq middle (list (+ (car start) (/ (- (car end) (car start)) 2))
                     (+ (cadr start) (/ (- (cadr end) (cadr start)) 2))
                     0
               )
  )
  (setq rotate (angle start end))
  (setq insert (polar middle (+ rotate (angtof "90")) 5))
  (setvar "osmode" 0)
  (command "text" insert 5 (angtos rotate) "note")
  (setq text (entget (entlast)))
  (setq text (subst (cons 72 1) (assoc 72 text) text))
  (setq text (subst (cons 73 1) (assoc 73 text) text))
  (entmod text)
  (setvar "osmode" osvar)
)
可是，标注“note”字符串跑到坐标系原点去了，是程序出错？还是什么问题？在2000、2004都试过，没辙了，请高手帮忙看看！

呆呆

我改了但是不知道对不对

(defun C:ADDNOTE (/ osvar start end middle rotate insert text)
  (setq osvar (getvar "osmode"))
  (setvar "osmode" 1)
  (setq start (getpoint "\n选取第1个点,"))
  (setq end (getpoint start " 选取第2个点"))
  (setq middle (list (+ (car start) (/ (- (car end) (car start)) 2))
                     (+ (cadr start) (/ (- (cadr end) (cadr start)) 2))
                     0
               )
  )
  (setq rotate (* (/ (angle start end) pi) 180))
  (setq insert (polar middle (+ (angle start end) pi) 5))
  (setvar "osmode" 0)
  (command "text" insert "5" (* (/ (angle start end) pi) 180) "note")
  (setvar "osmode" osvar)
)

BDYCAD

你的程序好象沒有出錯. 但可能在
(setq text (subst (cons 72 1) (assoc 72 text) text))
  (setq text (subst (cons 73 1) (assoc 73 text) text))
  (entmod text)
這三句的問題吧. 請教樓主這三句是用來做什麼作用的?

EPISODE

谢谢各位！
TO BDYCAD：
  (setq text (subst (cons 72 1) (assoc 72 text) text)) ； 水平居中
  (setq text (subst (cons 73 1) (assoc 73 text) text)) ； 垂直居中
  (entmod text)                                                     ； 更新TEXT的DEFINITION TABLE

BDYCAD

那這三句不要可以的, 呵呵 : )

EPISODE

要那三句是为了改变标注字符串的对齐方式。
也确实是那三句出了问题，但语法上没问题。
联想起我曾经报告过的用VBA做“OFFSET”会使原多段线跑到坐标系原点，推断可能也是出了BUG。
现在没办法，只好先绕过去，办法如下：
(defun C:ADDNOTE (/ osvar start end middle rotate insert text)
  (setq osvar (getvar "osmode"))
  (setvar "osmode" 1)
  (setq start (getpoint "\n选取第1个点,"))
  (setq end (getpoint start " 选取第2个点"))
  (setq middle (list (+ (car start) (/ (- (car end) (car start)) 2))
                     (+ (cadr start) (/ (- (cadr end) (cadr start)) 2))
                     0
               )
  )
  (setq rotate (angle start end))
  (setq insert (polar middle (+ rotate (angtof "90")) 5))
  (setvar "osmode" 0)
  (command "TEXT" "J" "BC" insert 5 (angtos rotate) "note")
  (setvar "osmode" osvar)
)

meflying

你用了对齐方式，却没有设置对二对齐点，这样试试：

2. 
   
3. (defun C:ADDNOTE (/ osvar start end middle rotate insert text pt pte)
   
4.   (setq osvar (getvar "osmode"))
   
5.   (setvar "osmode" 1)
   
6.   (setq start (getpoint "\n选取第1个点,"))
   
7.   (setq end (getpoint start " 选取第2个点"))
   
8.   (setq middle (list (+ (car start) (/ (- (car end) (car start)) 2))
   
9.                      (+ (cadr start) (/ (- (cadr end) (cadr start)) 2))
   
10.                      0
    
11.                )
    
12.   )
    
13.   (setq rotate (angle start end))
    
14.   (setq insert (polar middle (+ rotate (angtof "90")) 5))
    
15.   (setvar "osmode" 0)
    
16.   (command "text" insert 5 (angtos rotate) "note")
    
17.   (setq text (entget (entlast)))
    
18.   (setq pt (cdr (assoc 10 text)))
    
19.   (setq pte (polar pt rotate (cdr (assoc 41 text))))
    
20.   (setq text (subst (cons 11 pte) (assoc 11 text) text))
    
21.   (setq text (subst (cons 72 1) (assoc 72 text) text))
    
22.   (setq text (subst (cons 73 1) (assoc 73 text) text))
    
23.   (entmod text)
    
24.   (setvar "osmode" osvar)
    
25.   (princ)
    
26. )
    
27. 
    

<br /> (defun C:ADDNOTE (/ osvar start end middle rotate insert text pt pte)<br />   (setq osvar (getvar "osmode"))<br />   (setvar "osmode" 1)<br />   (setq start (getpoint "\n选取第1个点,"))<br />   (setq end (getpoint start " 选取第2个点"))<br />   (setq middle (list (+ (car start) (/ (- (car end) (car start)) 2))<br />                      (+ (cadr start) (/ (- (cadr end) (cadr start)) 2))<br />                      0<br />                )<br />   )<br />   (setq rotate (angle start end))<br />   (setq insert (polar middle (+ rotate (angtof "90")) 5))<br />   (setvar "osmode" 0)<br />   (command "text" insert 5 (angtos rotate) "note")<br />   (setq text (entget (entlast)))<br />   (setq pt (cdr (assoc 10 text)))<br />   (setq pte (polar pt rotate (cdr (assoc 41 text))))<br />   (setq text (subst (cons 11 pte) (assoc 11 text) text))<br />   (setq text (subst (cons 72 1) (assoc 72 text) text))<br />   (setq text (subst (cons 73 1) (assoc 73 text) text))<br />   (entmod text)<br />   (setvar "osmode" osvar)<br />   (princ)<br /> )<br /> <br />

EPISODE

我也怀疑是因为没设置“对齐点”，可是对“对齐点”不了解，也试了，没成功，所以想到绕过去，不过绕过去的办法也很简单哦，至少省了7条语句！
谢谢meflying！
结论是：不出错，学不到基本的东西！不交流，学不到真正的东西！

meflying

其实可以用entmake建立TEXT对象，那样比较好些：

2. 
   
3. (defun C:ADDNOTE (/ start end middle rotate insert)
   
4.   (setq start (getpoint "\n选取第1个点,"))
   
5.   (setq end (getpoint start " 选取第2个点"))
   
6.   (setq middle (list (+ (car start) (/ (- (car end) (car start)) 2))
   
7.                      (+ (cadr start) (/ (- (cadr end) (cadr start)) 2))
   
8.                      0
   
9.                )
   
10.   )
    
11.   (setq rotate (angle start end))
    
12.   (setq insert (polar middle (+ rotate (angtof "90")) 5))
    
13. 
    
14.   (entmake (list '(0 . "TEXT") '(100 . "AcDbEntity")
    
15.                  '(67 . 0) '(410 . "Model") '(100 . "AcDbText")
    
16.                  (cons 10 insert)
    
17.                  '(40 . 5.0)
    
18.                  '(1 . "note")
    
19.                  (cons 50 rotate)
    
20.                  '(41 . 1.0) '(51 . 0.0) '(71 . 0) '(72 . 1)
    
21.                  (cons 11 (polar Insert rotate 5)) '(210 0.0 0.0 1.0) '(100 . "AcDbText") '(73 . 1))
    
22.   )
    
23.   (princ)
    
24. )
    

<br /> (defun C:ADDNOTE (/ start end middle rotate insert)<br />   (setq start (getpoint "\n选取第1个点,"))<br />   (setq end (getpoint start " 选取第2个点"))<br />   (setq middle (list (+ (car start) (/ (- (car end) (car start)) 2))<br />                      (+ (cadr start) (/ (- (cadr end) (cadr start)) 2))<br />                      0<br />                )<br />   )<br />   (setq rotate (angle start end))<br />   (setq insert (polar middle (+ rotate (angtof "90")) 5))<br /> <br />   (entmake (list '(0 . "TEXT") '(100 . "AcDbEntity")<br />                  '(67 . 0) '(410 . "Model") '(100 . "AcDbText")<br />                  (cons 10 insert)<br />                  '(40 . 5.0)<br />                  '(1 . "note")<br />                  (cons 50 rotate)<br />                  '(41 . 1.0) '(51 . 0.0) '(71 . 0) '(72 . 1)<br />                  (cons 11 (polar Insert rotate 5)) '(210 0.0 0.0 1.0) '(100 . "AcDbText") '(73 . 1))<br />   )<br />   (princ)<br /> )<br />

EPISODE

非常感谢！