想依倍數統一改變標註數值......哪位高手幫幫忙...

yenbl

哪位高手幫幫忙...

我在圖面上某個部分.以圓圈框起來....再把圓圈及其內的所有物件.拷貝搬移後.再放大數倍...標上尺寸後跟實際尺寸不一樣..
所以想寫一程式......框選放大祥圖(含標註)...在選原位置圓圈..程式算出倍數..在依倍數改正標註數值..........這是我想做的.....

可是功力不夠....... .....

(defun c:dim_sca()                                                                 
(setq ss (ssget))                                                               
(setq i 0 cir nil)                                                               
(setq nn (sslength ss))                                                         
(repeat nn                                                                       
   (setq ename (ssname ss i))                                                     
   (setq en (entget ename))                                                      
   (setq enf (cdr (assoc 0 en)))                                                  
   (if (= enf "CIRCLE")                                                           
     (progn                                                                       
       (setq r1 (cdr (assoc 40 en)))                                             
       (if cir                                                                    
         (if (> r1 cir) (setq cir r1))                                            
         (setq cir r1)                                                            
       )                                                                          
     )                                                                           
   )                                                                              
   (setq i (+ 1 i))                                                               
)                                                                                
(setq en2 (entsel "\n選擇原位置外框圓 : "))                                      
(setq dxf (entget (car en2)))                                                   
(setq nam (cdr (assoc 0 dxf)))                                                   
(if (= nam "CIRCLE")                                                            
   (progn                                                                        
     (setq cir2 (cdr (assoc 40 dxf)))                                             

     (setq r_sca (fix (/ cir cir2)))                                             
   )                                                                              
)                                                                                
(setq i 0)                                                                       
(repeat nn                                                                       
   (setq ename (ssname ss i))                                                     
   (setq en (entget ename))                                                      
   (setq enf (cdr (assoc 0 en)))                                                  
   (if (= enf "DIMENSION")                                                        
     (progn                                                                       
       (setq dh (assoc 42 en))                                                   
       (setq oldh (assoc 1 en))                                                   
       (setq nh (/ (cdr dh) r_sca))                                               
       (setq newh (cons 1 nh))                                                   
       (setq en (subst newh oldh en))                                             
       (entmod en)                                                               
     )                                                                           
   )                                                                              
   (setq i (+ 1 i))                                                               
)                                                                                
)                                                                                 

=====================================
AutoCAD顯示錯誤

選擇原位置外框圓 : ; 錯誤: 損壞的 DXF 群組: (1 . 3.6)

指令: