[编程申请]：请高手们帮忙编一个程序

lsjzhj2004

程序要求实现能修改尺寸标注里文字的横向间距和文字的宽度，主要用于调整标注尺寸的美观。例如

xyp1964

2. [FONT=courier new]
   
3. ;;; 改变尺寸标注文本的间距和宽度
   
4. (defun c:test482 (/ ss i)
   
5.   (cmdla0)
   
6.   (prompt "\n选择标注尺寸: ")
   
7.   (setq        NO1 (UREAL 7 "" "间距" 0.7)
   
8.         no2 (UREAL 7 "" "宽度" 0.85)
   
9.         ss  (ssget '((0 . "dimension")))
   
10.         i   -1
    
11.   )
    
12.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
13.     (setq a (strcat "{\\W" (rtos no1 2 2) ";\\T" (rtos no2 2 2) ";<>}"))
    
14.     (xyp-SubUpd s1 1 a)
    
15.   )
    
16.   (cmdla1)
    
17. )[/FONT]

[FONT=courier new]<br /> ;;; 改变尺寸标注文本的间距和宽度<br /> (defun c:test482 (/ ss i)<br />   (cmdla0)<br />   (prompt "\n选择标注尺寸: ")<br />   (setq        NO1 (UREAL 7 "" "间距" 0.7)<br />         no2 (UREAL 7 "" "宽度" 0.85)<br />         ss  (ssget '((0 . "dimension")))<br />         i   -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq a (strcat "{\\W" (rtos no1 2 2) ";\\T" (rtos no2 2 2) ";<>}"))<br />     (xyp-SubUpd s1 1 a)<br />   )<br />   (cmdla1)<br /> )[/FONT]