想改變標註數值......哪位高手幫幫忙...

yenbl

哪位高手幫幫忙...

(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)

指令:                           

ll_j

组码1需要的是字符串，你给的是字符，所以出错。

改变标注文字可以这样：
(defun c:nt()(command "dim1" "newtext"))