[求助]：怎样能使滑动条的数值改变

mhy007

设计了一个AutoLISP小程序，拖动滑动条的时候，旁边的编辑框
会出现相应的数字。问题是我要的是图纸编号，编号如是一位数
则在前面加两个零，如007，如是两位数则在前面加一个零，如068，如是三位数则不用加了。现在只能做到一位数只显示1～9
而不是001～009，两位数只显示10～99，而不是010～099。在
DCL里把滑动条的最小值设为001，最大值为999也不行。我想要
的效果是一拉滑动条，相应的编辑框就显示001、002、009、068、099、100、…等，然后图纸上就会写出相应的字符串。首先谢谢
各位大虾的帮助！

zhynt

另外加一条件判断，如果是１～９前面加“００”如果是１０～９９前面加“０”，如果是１００～９９９不需要判断。
如：
设变量a为上述值,且是一整数值，则：
(if (< a 10)
(setq a (strcat "00" (rtos a)))
)
(if (and (> a 9) (< a 100))
(setq a (strcat "0" (rtos a)))
)

aeo

2. 
   
3. (defun extendstr ( str len new)
   
4. (while(< (strlen str)len)(setq str(strcat new str)))
   
5. str
   
6. )

<br /> (defun extendstr ( str len new)<br /> (while(< (strlen str)len)(setq str(strcat new str)))<br /> str<br /> )

(extendstr "34"8 "0")--->"00000034"
(extendstr "34"1 "0")--->"34"
(extendstr "34"8 "Z")--->"ZZZZZZ34"

mhy007

在zhynt、aeo两位斑竹的热心帮助下，问题终于顺利解决了，再次感谢zhynt、aeo！这真是一个好网站！