[编程申请]：梁号加减工具

小鱼儿

在cad图中，有时要求增加或减少梁号，能否设计一个lisp程序，解决一下加减梁号后梁号的自动排序问题。例如，图中有2KL1,2KL2,2KL3,2KL4,2KL5,.......2KLn,现要求在2KL3后插入一梁，即原2KL4自动变成2KL5,原2KL5自动变成2KL6,依次类推。我的思路是先提示选字符串2KL，得出相符的字符串2KL后的数字字符串,存入一个变量，然后提示增加或减少的梁数，
通过运算，然后更新。请高手帮我实现。

eachy

最初由 小鱼儿 发布
[B]在cad图中，有时要求增加或减少梁号，能否设计一个lisp程序，解决一下加减梁号后梁号的自动排序问题。例如，图中有2KL1,2KL2,2KL3,2KL4,2KL5,.......2KLn,现要求在2KL3后插入一梁，即原2KL4自动变成2KL5,原2KL5自动?.. [/B]

工具箱中有【序号标注】功能，其实可以将梁号转化为程序认识的带前缀的“序号”，就可以用序号插入删除工具了。

2. 
   
3. ;;PKPM梁转序号工具
   
4. (defun c:XDTB_PKPM_LtoXH (/ ss e)
   
5.   (setq ss (ssget "x" '((0 . "text") (1 . "2KL*"))))
   
6.   (xdrx_setsstodb ss 0)
   
7.   (while (setq e (xdrx_getentdata 0))
   
8.     (xdrx_setxdata
   
9.       e
   
10.       "XDTB_SYM_XH"
    
11.       "2KL"
    
12.       (read (substr (xdrx_getentdxf 1) 4))
    
13.     )
    
14.   )
    
15.   (setq $XDTB_Symbol_Prefix "2KL")
    
16.   (princ)
    
17. )

<br /> ;;PKPM梁转序号工具<br /> (defun c:XDTB_PKPM_LtoXH (/ ss e)<br />   (setq ss (ssget "x" '((0 . "text") (1 . "2KL*"))))<br />   (xdrx_setsstodb ss 0)<br />   (while (setq e (xdrx_getentdata 0))<br />     (xdrx_setxdata<br />       e<br />       "XDTB_SYM_XH"<br />       "2KL"<br />       (read (substr (xdrx_getentdxf 1) 4))<br />     )<br />   )<br />   (setq $XDTB_Symbol_Prefix "2KL")<br />   (princ)<br /> )

小鱼儿

有无不挂接xd工具箱的lisp程序。

eachy

最初由 小鱼儿 发布
[B]有无不挂接xd工具箱的lisp程序。 [/B]

有现成的为什么不用？
或者你将工具箱序号的程序改成纯VLISP/LISP的，有必要吗？

bsq

最初由 eachy 发布
[B][QUOTE]最初由 小鱼儿 发布
[B]在cad图中，有时要求增加或减少梁号，能否设计一个lisp程序，解决一下加减梁号后梁号的自动排序问题。例如，图中有2KL1,2KL2,2KL3,2KL4,2KL5,.......2KLn,现要求在2KL3后插入?.. [/B]

eachy兄，我是个菜鸟，这个LISP如何用？能不能祥细的介绍？先谢谢了！

戴玉兵

我采用TSSD工具。

水印永远~~

帮助钢结构设计有什么工具

e2002

几个月前,也是因为实在是无法忍受在图中东找西早,就写了一个这样的"梁号重排"
....hehe...不过还要进一步完善一些再发出.

小鱼儿

快点发吧，我等不及了。

yangdengmao

发出来后能免费吗？我太穷!

Galand

最初由 戴玉兵 发布
[B]我采用TSSD工具。 [/B]

TssD可以做到这一点吗？