请问怎么样可以直接复制尺寸数值

819534890

用炸开的方式提取。
做了一个简单的。

1. ;提取标注中的文字
   
2. (defun C:t1(/ ss ss1 ss2 pt )
   
3. (while (setq ss (entsel "请选择标注:\n"))
   
4. (setq    ss1 (car ss)
   
5.                      pt (cadr ss)
   
6. )
   
7. (if (= (cdr (assoc 0 (entget ss1)) )  "DIMENSION")
   
8.                 (progn
   
9. (setq ss (ssadd ss1))
   
10. (command ".EXPLODE" ss)
    
11. (setq ss1 (ssget "P" '((0 . "*text"))))
    
12. (setq ss2 (entget (ssname ss1 0)))
    
13. (command "undo" "")
    
14. (entmake ss2)
    
15. (setq ss1 (entlast))
    
16. (command "_move" ss1 "" pt pause)
    
17.    )
    
18. )
    
19. )
    
20. )

;提取标注中的文字<br /> (defun C:t1(/ ss ss1 ss2 pt )<br /> (while (setq ss (entsel "请选择标注:\n"))<br /> (setq    ss1 (car ss)<br />                      pt (cadr ss)<br /> )<br /> (if (= (cdr (assoc 0 (entget ss1)) )  "DIMENSION")<br />                 (progn<br /> (setq ss (ssadd ss1))<br /> (command ".EXPLODE" ss)<br /> (setq ss1 (ssget "P" '((0 . "*text"))))<br /> (setq ss2 (entget (ssname ss1 0)))<br /> (command "undo" "")<br /> (entmake ss2)<br /> (setq ss1 (entlast))<br /> (command "_move" ss1 "" pt pause) <br />    )<br /> )<br /> )<br /> )

lzg8877

强大 多谢啦