（结构用）梁编号加减数字

海盗曹

2. 
   
3. (princ "\n梁编号加减数字=W_bhjj=【海盗曹跬步+13/2012.04.27】")
   
4. (defun c:w_bhjj (/ a b c ss i e o str n p m x y z dxf text)
   
5.   (setq b (getstring "\n请选择类型<1=加/2=减>(默认为+):"))
   
6.   (setq c (getreal "\n请输入数字(默认为1):"))
   
7.   (setq ss (ssget '((0 . "TEXT") (1 . "*L* *x*,*L* *X*"))))
   
8.   (repeat (setq i (sslength ss))
   
9.     (setq e (ssname ss (setq i (1- i))))
   
10.     (setq dxf (entget e))
    
11.     (setq text (cdr (assoc 1 dxf)))
    
12.     (setq search (vl-string-search "LL" text))
    
13.     (if (/= search nil)
    
14.       (alert "\n!!!请注意!!!\n目前暂不支持连梁(LL)修改,请按确定退出\n除LL类其他编号已修改")
    
15.       (progn
    
16. (setq o (vlax-ename->vla-object e))
    
17. (setq str (vla-get-textstring o))
    
18. (setq n (vl-string-position (ascii "L") str))
    
19. (setq p (vl-string-position (ascii "(") str))
    
20. (setq m (substr str (+ n 2) (- (- p n) 1)))
    
21. (setq x (atof m))
    
22. (if (= c nil)
    
23.    (setq c 1)
    
24. )
    
25. (if (= b "2")
    
26.    (setq y (- x c))
    
27.    (setq y (+ x c))
    
28. )
    
29. (setq a (fix y))
    
30. (setq z (itoa a))
    
31. (setq newstr (strcat (substr str 1 (+ n 1)) z (substr str
    
32.              (+ p 1)
    
33.              (strlen str)
    
34.             )
    
35.        )
    
36. )
    
37. (if (= b "2")
    
38.    (command "CHANGE" "p" "" "P" "c" "4" "")
    
39.    (command "CHANGE" "p" "" "P" "c" "1" "")
    
40. )
    
41. (vla-put-textstring o newstr)
    
42.       )
    
43.     )
    
44.   )
    
45.   (princ "\n梁编号加减数字=W_bhjj=【海盗曹跬步+13/2012.04.27】")
    
46.   (princ)
    
47. )
    

<br /> (princ "\n梁编号加减数字=W_bhjj=【海盗曹跬步+13/2012.04.27】")<br /> (defun c:w_bhjj (/ a b c ss i e o str n p m x y z dxf text)<br />   (setq b (getstring "\n请选择类型<1=加/2=减>(默认为+):"))<br />   (setq c (getreal "\n请输入数字(默认为1):"))<br />   (setq ss (ssget '((0 . "TEXT") (1 . "*L* *x*,*L* *X*"))))<br />   (repeat (setq i (sslength ss))<br />     (setq e (ssname ss (setq i (1- i))))<br />     (setq dxf (entget e))<br />     (setq text (cdr (assoc 1 dxf)))<br />     (setq search (vl-string-search "LL" text))<br />     (if (/= search nil)<br />       (alert "\n!!!请注意!!!\n目前暂不支持连梁(LL)修改,请按确定退出\n除LL类其他编号已修改")<br />       (progn<br /> (setq o (vlax-ename->vla-object e))<br /> (setq str (vla-get-textstring o))<br /> (setq n (vl-string-position (ascii "L") str))<br /> (setq p (vl-string-position (ascii "(") str))<br /> (setq m (substr str (+ n 2) (- (- p n) 1)))<br /> (setq x (atof m))<br /> (if (= c nil)<br />    (setq c 1)<br /> )<br /> (if (= b "2")<br />    (setq y (- x c))<br />    (setq y (+ x c))<br /> )<br /> (setq a (fix y))<br /> (setq z (itoa a))<br /> (setq newstr (strcat (substr str 1 (+ n 1)) z (substr str<br />              (+ p 1)<br />              (strlen str)<br />             )<br />        )<br /> )<br /> (if (= b "2")<br />    (command "CHANGE" "p" "" "P" "c" "4" "")<br />    (command "CHANGE" "p" "" "P" "c" "1" "")<br /> )<br /> (vla-put-textstring o newstr)<br />       )<br />     )<br />   )<br />   (princ "\n梁编号加减数字=W_bhjj=【海盗曹跬步+13/2012.04.27】")<br />   (princ)<br /> )<br />

vladimirputin

都是很好的代码，谢谢楼主分享。

love_cq

支持一下海盗，学习了。

【KAIXIN】

虽然程序太......但实现功能是第一位！支持一下

海盗曹

【KAIXIN】 发表于 2012-4-27 18:18
虽然程序太......但实现功能是第一位！支持一下

初级选手，适合自己用,多谢K大支持~

cnks

支持一下海盗

海盗曹

cnks 发表于 2012-4-27 22:15
支持一下海盗

谢谢支持，我继续努力，向各位高手看齐~

vvcd

呵呵，不错，结构正需要这样得

e2002

好多年前写过这个，一直都在用。

海盗曹

e2002 发表于 2012-5-18 16:51
好多年前写过这个，一直都在用。

可否上源码学习一下，还有请教，LL如何搞~

springwillow

支持一下海盗！