[求助]：求编程：批量固定住尺寸标注上的数字（内详）

星期八

画详图需要，我先不切割，按实际层高将墙身画好，再切割多余部分。
我需要固定住尺寸标注上的数字，即使拉伸或者剪切尺寸标注，数字不会改变。
但是，我不想手动将尺寸标注里的文字值“<>”改为实际数值，这样太麻烦，而且有很多尺寸标注要固定数字。
麻烦大家编个程序，或者朋友对画墙身的尺寸标注有什么好的建议？
谢谢！

zxq0220

固定尺寸文字的程序：

2. 
   
3. (DEFUN C:FIXDIM ()
   
4. (SETVAR "CMDECHO" 0)
   
5. (IF (SETQ SB (SSGET '((0 . "*DIM*")))) (PROGN
   
6.   (SETQ SL (SSLENGTH SB) I 0)
   
7.   (REPEAT SL
   
8.    (SETQ ENT (ENTGET (SSNAME SB I)) I (1+ I))
   
9.    (SETQ SP (CDR (ASSOC 13 ENT))
   
10.          EP (CDR (ASSOC 14 ENT))
    
11.          ANG (CDR (ASSOC 50 ENT)))
    
12.    (IF (OR (EQUAL ANG 0.0 0.00001) (EQUAL ANG PI 0.00001))
    
13.     (SETQ L (ABS (- (CAR SP) (CAR EP))))
    
14.     (SETQ L (ABS (- (CADR SP) (CADR EP))))
    
15.    )
    
16.    (SETQ ENT (SUBST (CONS 1 (RTOS L 2 3)) (ASSOC 1 ENT) ENT))
    
17.    (ENTMOD ENT)
    
18.   )
    
19. ))
    
20. (SETVAR "CMDECHO" 1)
    
21. (PRINC)
    
22. )
    

<br /> (DEFUN C:FIXDIM ()<br /> (SETVAR "CMDECHO" 0)<br /> (IF (SETQ SB (SSGET '((0 . "*DIM*")))) (PROGN<br />   (SETQ SL (SSLENGTH SB) I 0)<br />   (REPEAT SL<br />    (SETQ ENT (ENTGET (SSNAME SB I)) I (1+ I))<br />    (SETQ SP (CDR (ASSOC 13 ENT))<br />          EP (CDR (ASSOC 14 ENT))<br />          ANG (CDR (ASSOC 50 ENT)))<br />    (IF (OR (EQUAL ANG 0.0 0.00001) (EQUAL ANG PI 0.00001))<br />     (SETQ L (ABS (- (CAR SP) (CAR EP))))<br />     (SETQ L (ABS (- (CADR SP) (CADR EP))))<br />    )<br />    (SETQ ENT (SUBST (CONS 1 (RTOS L 2 3)) (ASSOC 1 ENT) ENT))<br />    (ENTMOD ENT)<br />   )<br /> ))<br /> (SETVAR "CMDECHO" 1)<br /> (PRINC)<br /> )<br />

li809

改尺寸的测量比例就行了

zxq0220

1、将代码粘贴到记事本中，另存为FIXDIM.LSP文件。
2、进入ACAD用(LOAD"FIXDIM")加载程序。
3、键入FIXDIM运行程序。
4、选取要固定的尺寸后回车。