求简单程序一个

429014673

通过框选两个标注(直标或斜标，两尺寸有可能真值有可能是通过修改成其它值)尺寸，真值那个小的尺寸快速改为80，大的那个改为500。不用移动物体，单单改数值即可。谢谢

ljpnb

不太理解,小尺寸改为80后,物体的大小是不是也要调整为80.还是单单只改标注尺寸的值就可以了....

429014673

回复 ljpnb 的帖子

不用移物体，改尺寸文字就行

ucuc2003

养成好习惯，还是建议1:1做图

429014673

回复 ucuc2003 的帖子

这两个尺寸是当其它用的，现在只求这一程序，不影响读图看图，有时图纸这样的尺寸存在是有它的意义的，要不Cad原尺寸可以改为假值就无它的意义了。

429014673

哪位高手过来帮帮忙呀

429014673

哪位高手过来帮帮忙呀

ljpnb

2. 
   
3. (defun c:test ()
   
4.   (setq ss (ssget '((0 . "DIMENSION"))))
   
5.   (if (= (sslength ss) 2)
   
6.     (progn
   
7.       (setq dxf1 (entget (ssname ss 0))
   
8.             dxf2 (entget (ssname ss 1))
   
9.       )
   
10.       (setq d1 (cdr (assoc 42 dxf1))
    
11.             d2 (cdr (assoc 42 dxf2))
    
12.       )
    
13.       (if (< d2 d1)
    
14.         (setq dxf3 dxf2
    
15.               dxf2 dxf1
    
16.               dxf1 dxf3
    
17.         )
    
18.       )
    
19.       (setq dxf1 (subst (cons 1 (rtos 80)) (assoc 1 dxf1) dxf1))
    
20.       (entmod dxf1)
    
21.       (setq dxf2 (subst (cons 1 (strcat "@" (rtos 500)))(assoc 1 dxf2)dxf2))
    
22.       (entmod dxf2)
    
23.     )
    
24.   )
    
25.   (princ)
    
26. )
    

<br /> (defun c:test ()<br />   (setq ss (ssget '((0 . "DIMENSION"))))<br />   (if (= (sslength ss) 2)<br />     (progn<br />       (setq dxf1 (entget (ssname ss 0))<br />             dxf2 (entget (ssname ss 1))<br />       )<br />       (setq d1 (cdr (assoc 42 dxf1))<br />             d2 (cdr (assoc 42 dxf2))<br />       )<br />       (if (< d2 d1)<br />         (setq dxf3 dxf2<br />               dxf2 dxf1<br />               dxf1 dxf3<br />         )<br />       )<br />       (setq dxf1 (subst (cons 1 (rtos 80)) (assoc 1 dxf1) dxf1))<br />       (entmod dxf1)<br />       (setq dxf2 (subst (cons 1 (strcat "@" (rtos 500)))(assoc 1 dxf2)dxf2))<br />       (entmod dxf2)<br />     )<br />   )<br />   (princ)<br /> )<br />

429014673

回复 ljpnb 的帖子

帮我修改下程序,在500前加一个@,谢谢...

ljpnb

8楼修改过了