[求助]：编程申请

goldrian

:4
1、我用晓东工具箱0.27版时的序号标注功能时，发现起始编号不能任意指定，在就是编号只能从1开始，但我在使用的时候经常需要从01或者001开始编号，比如我在输入8001到8059时候，就很麻烦。有办法搞定吗？我使用是CAD2002
2、还有我在调cad图中经常需要变比例插图，也就是x/y方向缩放比例不同。有办法能编个程序解决这一问题吗/

efan2000

序号标注时可以指定前缀，将0或者00定义为前缀就可以吧。
变比例插图的话，那就要以块的方式插入图纸。

goldrian

可是可以，但如果我输入8001～8056指定前缀维800，起始序号为1
到8009还可以，再以后就会变成80010了
又的设定一次。还有起始序号无法任意指定，好像它会检查图纸重已出现的号码。
变比例插图，每次都需要生成块，太麻烦拉，能编个程序吗？

efan2000

将下面的代码加到XDSoft\LISP下的symbol.lsp文件中，第一次执行完序号标注后，运行setno，提示“请重新输入起始序号：”，这时输入一个数字，它会自动修改原先的序号，这样就间接达到了不从1开始的序号标注。

2. 
   
3.   [FONT=courier new]
   
4. (defun c:SetNo ( / no)
   
5. (if (not $XDTB_Symbol_Prefix) (setq $XDTB_Symbol_Prefix "A"))
   
6. (setq no (getint (strcat "\n请重新输入起始序号:")))
   
7. (xdrx_setenttodb (entlast))
   
8. (xdrx_modent 1 (strcat $XDTB_Symbol_Prefix (itoa no)))
   
9. (xdrx_setXdata (entlast) "XDTB_SYM_XH" $XDTB_Symbol_Prefix no)
   
10. )
    
11.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:SetNo ( / no)<br /> (if (not $XDTB_Symbol_Prefix) (setq $XDTB_Symbol_Prefix "A"))<br /> (setq no (getint (strcat "\n请重新输入起始序号:")))<br /> (xdrx_setenttodb (entlast))<br /> (xdrx_modent 1 (strcat $XDTB_Symbol_Prefix (itoa no)))<br /> (xdrx_setXdata (entlast) "XDTB_SYM_XH" $XDTB_Symbol_Prefix no)<br /> )<br />   [/FONT]<br />

eachy

最初由 goldrian 发布
[B]可是可以，但如果我输入8001～8056指定前缀维800，起始序号为1
到8009还可以，再以后就会变成80010了
又的设定一次。还有起始序号无法任意指定，好像它会检查图纸重已出现的号码。
变比例插图，每次都需要生成块?.. [/B]

可以解决的，需要设定一个序号总长度，然后用下面的函数将不足的位数补“0”。

2. 
   
3. 获取一个整数并其作为字符串并在前端添加0以形成指定标准的字符串
   
4. 
   
5.   
   
6. 
   
7. (defun I:ZeroPad                  
   
8. (intVal                          ; integer to pad
   
9.   Pad                             ; pad level
   
10.   /                               ; local variables
    
11.   Zeros                           ; list of zeros
    
12. ) ;_ closes variable declare
    
13. (strcat
    
14.   (apply 'strcat ; make string of zero list
    
15.    (repeat (- Pad (strlen (itoa intVal))) ; repeat to pad
    
16.     (setq Zeros (cons "0" Zeros)) ; make list
    
17.    ) ;_ closes repeat
    
18.   ) ;_ closes apply
    
19.   (itoa intVal)                   ; return zero-pad string
    
20. ) ;_ closes strcat
    
21. ) ;_ closes defun I:ZeroPad
    
22. 
    
23. 
    
24. 功能
    
25. 
    
26. 获取一个整数并其作为字符串并在前端添加0以形成指定标准的字符串。如果整数大于添加0的位数，程序则返回整数字符串。
    
27. 
    
28. 参数
    
29. 
    
30. intVal：要添加0的整数。Pad：代表添加0形成的位数的整数。
    
31. 
    
32. 示例
    
33. 
    
34. (I:ZeroPad 123 4)
    
35. 
    
36. 注意
    
37. 
    
38. 以上示例将返回“0123”。
    

<br /> 获取一个整数并其作为字符串并在前端添加0以形成指定标准的字符串 <br /> <br />   <br /> <br /> (defun I:ZeroPad                  <br /> (intVal                          ; integer to pad<br />   Pad                             ; pad level<br />   /                               ; local variables<br />   Zeros                           ; list of zeros<br /> ) ;_ closes variable declare<br /> (strcat<br />   (apply 'strcat ; make string of zero list<br />    (repeat (- Pad (strlen (itoa intVal))) ; repeat to pad<br />     (setq Zeros (cons "0" Zeros)) ; make list<br />    ) ;_ closes repeat<br />   ) ;_ closes apply<br />   (itoa intVal)                   ; return zero-pad string<br /> ) ;_ closes strcat<br /> ) ;_ closes defun I:ZeroPad<br /> <br /> <br /> 功能<br /> <br /> 获取一个整数并其作为字符串并在前端添加0以形成指定标准的字符串。如果整数大于添加0的位数，程序则返回整数字符串。<br /> <br /> 参数<br /> <br /> intVal：要添加0的整数。Pad：代表添加0形成的位数的整数。<br /> <br /> 示例<br /> <br /> (I:ZeroPad 123 4) <br /> <br /> 注意<br /> <br /> 以上示例将返回“0123”。<br />

goldrian

谢谢各位！问题解决，我用它来标注消防探头太方便啦，大大的提高了我的速度，你想想一天要编上千的数字，从4055～9000，太爽！

变比例缩放图不用块又其它办法解决吗？用块太麻烦，我缩放的量很大