yenbl 发表于 2013-8-16 16:17:41

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

哪位高手幫幫忙...

(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 发表于 2013-8-16 16:37:40

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

改变标注文字可以这样：
(defun c:nt()(command "dim1" "newtext"))
页: [1]
查看完整版本: 想改變標註數值......哪位高手幫幫忙...