将尺寸值改为可变数值 程序求修改

CTC

这个  将尺寸值改为可变数值  程序只能针对线性尺寸的值改为变数值，如何把角度，半径，直径也改为变数值呢？？谢谢

2. (DEFUN C:DDGG ()
   
3.        (princ "\n选择尺寸:" )
   
4.        (setq s (ssget))
   
5.        (setq n (sslength s))
   
6.        (setq k 0)
   
7.        (while (< k n)
   
8.               (setq name (ssname s k))
   
9.               (setq a (entget name))
   
10.               (setq b (assoc '0 a))
    
11.               (setq b (cdr b))
    
12.               (if (= b "DIMENSION" ) (progn
    
13.                             (setq h2 (assoc '1 a))
    
14.                             (setq h1 (cons 1 "" ))
    
15.                             (setq a (subst h1 h2 a))
    
16.                             (entmod a)
    
17.               ));end if
    
18.               (setq k (+ k 1))
    
19.        );end while
    
20. );end DEFUN

(DEFUN C:DDGG ()<br />        (princ "\n选择尺寸:" )<br />        (setq s (ssget))<br />        (setq n (sslength s))<br />        (setq k 0)<br />        (while (< k n)<br />               (setq name (ssname s k))<br />               (setq a (entget name))<br />               (setq b (assoc '0 a))<br />               (setq b (cdr b))<br />               (if (= b "DIMENSION" ) (progn<br />                             (setq h2 (assoc '1 a))<br />                             (setq h1 (cons 1 "" ))<br />                             (setq a (subst h1 h2 a))<br />                             (entmod a)<br />               ));end if<br />               (setq k (+ k 1))<br />        );end while<br /> );end DEFUN

ll_j

试试：

1. (defun c:nt() (command ".dimedit" "n"))

(defun c:nt() (command ".dimedit" "n"))

ucuc2003

没看明白什么意思..

CTC

ll_j 发表于 2013-5-23 13:34
试试：

不是标注新的文字或数值，而是把全部的标注文字（角度，半径，直径，线性尺寸）改为那种手动改动那些尺寸

ZZXXQQ

2. (defun C:DDGG ()
   
3. (princ "\n选择尺寸:" )
   
4. (if (setq s (ssget '((0 . "DIMENSION")))) (progn
   
5.   (setq k -1)
   
6.   (repeat (sslength s)
   
7.    (setq a (entget (ssname s (setq k (1+ k)))))
   
8.    (entmod (subst (cons 1 "") (assoc 1 a) a))
   
9.   );repeat
   
10. ));if
    
11. (princ)
    
12. );defun
    

(defun C:DDGG ()<br /> (princ "\n选择尺寸:" )<br /> (if (setq s (ssget '((0 . "DIMENSION")))) (progn<br />   (setq k -1)<br />   (repeat (sslength s)<br />    (setq a (entget (ssname s (setq k (1+ k)))))<br />    (entmod (subst (cons 1 "") (assoc 1 a) a))<br />   );repeat<br /> ));if<br /> (princ)<br /> );defun<br />

xiabin68

原来改为空就要的啊来自: Android客户端

ZZXXQQ

2. ;将尺寸值改为固定数值
   
3. (defun C:CHDIM1 ()
   
4. (if (and (princ "\nselect object:")
   
5.           (setq s (ssget '((0 . "DIMENSION"))))) (progn
   
6.   (setq k 0)
   
7.   (repeat (sslength s)
   
8.    (setq a (entget (ssname s k)))
   
9.    (setq a (subst (cons 1 (rtos (cdr(assoc 42 a)) 2 0)) (assoc 1 a) a))
   
10.    (entmod a)
    
11.    (setq k (1+ k))
    
12.   )
    
13. ))
    
14. (princ)
    
15. )
    

;将尺寸值改为固定数值<br /> (defun C:CHDIM1 ()<br /> (if (and (princ "\nselect object:")<br />           (setq s (ssget '((0 . "DIMENSION"))))) (progn<br />   (setq k 0)<br />   (repeat (sslength s) <br />    (setq a (entget (ssname s k)))<br />    (setq a (subst (cons 1 (rtos (cdr(assoc 42 a)) 2 0)) (assoc 1 a) a))<br />    (entmod a)<br />    (setq k (1+ k))<br />   )<br /> ))<br /> (princ)<br /> )<br />