怎样把自动获取的尺寸批量改为人为修改的状态？

yang77

怎样把自动获取的尺寸批量改为人为修改的状态？？

图形是按1：1画出，标注出的尺寸能不能转为人为修改状态？原来是"<>"就是自动获取的尺寸，现在想一次把多个尺寸改为经过人为修改的状态，以防放大后数值会发生变化，一个一个地改太费时间。因为很多东西直接画在模型空间里，用图形空间不方便，所以想寻找这么一个方法，请教大家了，谢谢

dunkel

所要求的这个功能, 需要代码可以实现吧. 不过, 如果只是应对缩放造成的数值变换, 可以在缩放之后, 根据缩放比例设置尺寸标注样式里长度标注因子来进行调整的. 比如, 如果图形放大到 2 倍, 还要求原来 100 的尺寸标注仍然为 100, 那可以将 DimLFac 置为 0.5

ZZXXQQ

3. ;明经 ZZXXQQ 尺寸替代 2007.10.2
4. (DEFUN C:TT ()
5.   (PRINC "\nSelect a Dimtion 选择尺寸:")
6.   (IF (SETQ SS (SSGET '((0 . "DIMENSION")))) (PROGN
7.    (SETQ I -1)
8.    (REPEAT (SSLENGTH SS)
9.     (SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I))))
10.           TP (CDR (ASSOC 100 (REVERSE ENT))))
11.     (IF (OR (= TP "AcDbRotatedDimension") (= TP "AcDbAlignedDimension"))
12.   (SETQ L (RTOS (CDR (ASSOC 42 ENT)) 2 3))
13. )
14.     (IF (OR (= (SETQ TMPTX (CDR (ASSOC 1 ENT))) "<>") (= TMPTX "")) (PROGN
15.      (SETQ ENT (SUBST (CONS 1 L) (ASSOC 1 ENT) ENT))
16.      (ENTMOD ENT)
17.     ))
18.    )
19.   ))
20.   (PRINC)
21. )

;明经 ZZXXQQ 尺寸替代 2007.10.2 (DEFUN C:TT ()   (PRINC "\nSelect a Dimtion 选择尺寸:")   (IF (SETQ SS (SSGET '((0 . "DIMENSION")))) (PROGN    (SETQ I -1)    (REPEAT (SSLENGTH SS)     (SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I))))           TP (CDR (ASSOC 100 (REVERSE ENT))))     (IF (OR (= TP "AcDbRotatedDimension") (= TP "AcDbAlignedDimension"))   (SETQ L (RTOS (CDR (ASSOC 42 ENT)) 2 3)) )     (IF (OR (= (SETQ TMPTX (CDR (ASSOC 1 ENT))) "<>") (= TMPTX "")) (PROGN      (SETQ ENT (SUBST (CONS 1 L) (ASSOC 1 ENT) ENT))      (ENTMOD ENT)     ))    )   ))   (PRINC) )

yang77

十分感谢两位的帮忙,我在这里也找到了答案,对比一下看看:

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=17707