求教，如何选取炸开后尺寸文本？

千秋雪

(defun c:tt ()
  (setq ent (entsel))
  (if (= (cdr (assoc 0 (entget (car ent)))) "dimension")
    (progn
      (command "undo" "be")
      (command "explode" ent)
      (setq ss (ssget "p" '((0 . "*TEXT")))) ；选取炸开后尺寸文本
      (setq ent (entget (ssname ss 0)))
      (command "undo" "e")
      (command "u")  ；undo退反上面操作
    )
ent ；试图保持变量 ent的值，不知是否这么搞，但未成功
  )
  (setq obj (vlax-ename->vla-object (car ent)))
  (vla-GetBoundingBox obj 'pta 'ptb)
  (setq pt1 (vlax-safearray->list pta))
  (setq pt3 (vlax-safearray->list ptb))
  (setq pt2 (list (car pt3) (cadr pt1)))
  (setq pt4 (list (car pt1) (cadr pt3)))
  (command "pline" "none" pt1 "none" pt2 "none" pt3 "none" pt4 "c")

  (setq thh (cdr (assoc 1 (entget (car ent))))) ；测试，验证undo退反操作后，ent的值还在不在。
  (princ thh) ；经测试，点选文字 thh有值，点选尺寸实体， thh无值

  (princ)
)

请教各位大神，上面，undo退反操作后，如何保持作为文字选取的值？谢谢各位。

琴剑江山_10184

1. (defun c:tt (/ ENT OBJ PT1 PT2 PT3 PT4 PTA PTB SS THH)
   
2.   (setq ent (entsel))
   
3.   (if (= (cdr (assoc 0 (entget (car ent)))) "DIMENSION")
   
4.     (progn
   
5.       (command "explode" ent)
   
6.       (setq ss (ssget "p" '((0 . "*TEXT"))))
   
7.       (setq ent (ssname ss 0))
   
8.       (setq thh (cdr (assoc 1 (entget ent))))
   
9.       (setq obj (vlax-ename->vla-object ent))
   
10.       (vla-GetBoundingBox obj 'pta 'ptb)
    
11.       (setq pt1 (vlax-safearray->list pta))
    
12.       (setq pt3 (vlax-safearray->list ptb))
    
13.       (setq pt2 (list (car pt3) (cadr pt1)))
    
14.       (setq pt4 (list (car pt1) (cadr pt3)))
    
15.       (command "undo" "1")
    
16.       (command "pline" "none" pt1 "none" pt2 "none" pt3        "none" pt4 "c")      
    
17.       (princ thh)
    
18.       (princ)
    
19.     )
    
20.   )
    
21. )

(defun c:tt (/ ENT OBJ PT1 PT2 PT3 PT4 PTA PTB SS THH)<br />   (setq ent (entsel))<br />   (if (= (cdr (assoc 0 (entget (car ent)))) "DIMENSION")<br />     (progn<br />       (command "explode" ent)<br />       (setq ss (ssget "p" '((0 . "*TEXT"))))<br />       (setq ent (ssname ss 0))<br />       (setq thh (cdr (assoc 1 (entget ent))))<br />       (setq obj (vlax-ename->vla-object ent))<br />       (vla-GetBoundingBox obj 'pta 'ptb)<br />       (setq pt1 (vlax-safearray->list pta))<br />       (setq pt3 (vlax-safearray->list ptb))<br />       (setq pt2 (list (car pt3) (cadr pt1)))<br />       (setq pt4 (list (car pt1) (cadr pt3)))<br />       (command "undo" "1")<br />       (command "pline" "none" pt1 "none" pt2 "none" pt3        "none" pt4 "c")      <br />       (princ thh)<br />       (princ)<br />     )<br />   )<br /> )

千秋雪

琴剑江山_10184 发表于 2017-12-19 14:19

谢谢你，把功能部分放里面好是好，不过，针对“text" "mtext"实体，又要搞多一组功能部分的代码，这样一来显得有点长，我原想炸开后，选了文字，让它与“text" "mtext"共用那部分功能代码，我知道这样有点钻牛角尖，只是奇怪，即便undo做了退反操作，但程序未结束，变量ss 和 ent应该还在内存上，很难理解它们的值怎就没了。一点疑问，，，说了出来，有点啰嗦，，
谢谢你

xyp1964

xazhji

AutoCAD的标注样式里，就有标注文字加边框的功能，无需进行编程的。