[求助]解锁dim标注数值，怎么编写？

cxs259

以下是锁定dim标注数值的lsp,可作参考？

(defun C:TT1 (/ ENT ENTT OBJ)
  (setq ENT (nentselp "\n选取标註: "))
  (if (and ENT
    (= "DIMENSION"
       (cdr (assoc 0 (entget (setq ENTT (last (last ENT))))))
    )
      )
    (progn
      (vlax-for OBJ
      (vla-item
        (vla-get-blocks
   (vla-get-activedocument (vlax-get-acad-object))
        )
        (cdr (assoc 2 (entget ENTT)))
      )
 (if (equal (vla-get-objectname OBJ) "AcDbMText")
   (setq TXT (vla-get-textstring OBJ))
 )
      )
      (vla-put-textoverride
 (vlax-ename->vla-object ENTT)
 TXT
      )
    )
  )
  (princ)
)

yoyoho

(defun c:TRDIM (/ ent pt1 pt2 pt3 pt9 ent1)
 (setq ent (entget (car (entsel))))
           ;選擇線段圖元,將其描述串列置於ent
 (setq pt1 (cdr (assoc 42 ent)))
           ;取尺寸線標註長度(描述串列)置於pt1
; (setq pt2 (cdr (assoc 1 ent)))
           ;取尺寸線標註長度修改後(描述串列)置於pt2
; (setq pt3 (cdr (assoc 3 ent)))
           ;取尺寸線標註長度修改後(描述串列)置於pt3
 (setq pt9 "")
 (setq ent1 (subst (cons 1 pt9) (assoc 1 ent) ent))
         ;以新終點座標點對(dotted pair)替換ent中的舊終點座標點對
 (entmod ent1) ;更新圖形資料庫中該線段的資料
(princ)
)
 (prompt " ------ <<c:TRDIM>>------")
 (prin1)

 

yoyoho

(defun C:TT2 (/ ENT ENTT OBJ)                                            
  (setq ENT (nentselp "\n选取标注: "))                                   
  (if (and ENT                                                           
    (= "DIMENSION"                                                       
       (cdr (assoc 0 (entget (setq ENTT (last (last ENT))))))            
    )                                                                    
      )                                                                  
    (progn                                                               
      (vlax-for OBJ                                                      
      (vla-item                                                          
        (vla-get-blocks                                                  
   (vla-get-activedocument (vlax-get-acad-object))                       
        )                                                                
        (cdr (assoc 2 (entget ENTT)))                                    
      )                                                                  
 (if (equal (vla-get-objectname OBJ) "AcDbMText")                        
   (setq TXT (vla-get-textstring OBJ))                                   
 )                                                                       
      )                                                                  
      (vla-put-textoverride                                              
 (vlax-ename->vla-object ENTT)                                           
; TXT   将TXT改成""                                                                  
  ""                                                                     
      )                                                                  
    )                                                                    
  )                                                                      
  (princ)                                                                
)                                                                        

cxs259

ok了，感谢楼上的热心！

669423907

两位的都是经典的好程序，不知能否改成多选呢？
用于局部放大！