（完成）[编程申请]：字符串形式为 Ya?b改成Yc?b，其中a、b、c为任意正整数

lengliqun

对以字母Y开头的字符串操作，
字符串形式为 Ya?b改成Yc?b，其中a、b、c为任意正整数，
1、当a≥4时，若b<14则将b改为14
2、a与c的关系为a=cx2
有附件可供调试（cad2002 默认全选）谢谢。
*-*c *-*c *-*c *-*c *-*c *-*c *-*c *-*c *-*c *-*c *-*c

xyp1964

2. [FONT=courier new](load "xyp_lib")
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
   
6. 1.在acad.lsp中增加(load"xyp_lib")
   
7. 2.在每个程序内增加(load"xyp_lib")
   
8. 3.在command下，输入(load"xyp_lib")
   
9. 4.在菜单.mnl中增加(load"xyp_lib")
   
10. 5.将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
12. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
13. [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]
    
14. 
    
15. 程序功能：
    
16. 对以字母Y开头的字符串操作，
    
17. 字符串形式为 Ya?b改成Yc?b，其中a、b、c为任意正整数，
    
18. 1、当a≥4时，若b<14则将b改为14
    
19. 2、a与c的关系为a=cx2
    
20. |;
    
21. (defun c:test ()
    
22.   (CMDLA0)
    
23.   (setq        ss (ssget '((0 . "TEXT")))
    
24.         i  -1
    
25.   )
    
26.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
27.     (setq tx (dxf 1 (entget s1)))
    
28.     (if        (= (substr tx 1 1) "Y")
    
29.       (progn
    
30.         (setq sln (strlen tx)
    
31.               ls (vl-string-position (ascii "?") tx)
    
32.               a          (substr tx 2 (- ls 1))
    
33.               b          (substr tx (+ ls 3))
    
34.         )
    
35.         (if (>= (atof a) 4)
    
36.           (progn
    
37.             (setq a (strcat (rtos (/ (atof a) 2.0) 2 0) "x2")
    
38.             )
    
39.             (if        (< (atof b) 14)
    
40.               (setq b "14")
    
41.             )
    
42.           )
    
43.         )
    
44.         (setq tx (strcat "Y" a "?" b))
    
45.         (sub_upd s1 1 tx)
    
46.       )
    
47.     )
    
48.   )
    
49.   (CMDLA1)
    
50. )[/FONT]

[FONT=courier new](load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：<br /> 1.在acad.lsp中增加(load"xyp_lib")<br /> 2.在每个程序内增加(load"xyp_lib")<br /> 3.在command下，输入(load"xyp_lib")<br /> 4.在菜单.mnl中增加(load"xyp_lib")<br /> 5.将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]<br /> <br /> 程序功能：<br /> 对以字母Y开头的字符串操作，<br /> 字符串形式为 Ya?b改成Yc?b，其中a、b、c为任意正整数，<br /> 1、当a≥4时，若b<14则将b改为14<br /> 2、a与c的关系为a=cx2<br /> |;<br /> (defun c:test ()<br />   (CMDLA0) <br />   (setq        ss (ssget '((0 . "TEXT")))<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq tx (dxf 1 (entget s1)))<br />     (if        (= (substr tx 1 1) "Y")<br />       (progn<br />         (setq sln (strlen tx)<br />               ls (vl-string-position (ascii "?") tx)<br />               a          (substr tx 2 (- ls 1))<br />               b          (substr tx (+ ls 3))<br />         )<br />         (if (>= (atof a) 4)<br />           (progn<br />             (setq a (strcat (rtos (/ (atof a) 2.0) 2 0) "x2")<br />             )<br />             (if        (< (atof b) 14)<br />               (setq b "14")<br />             )<br />           )<br />         )<br />         (setq tx (strcat "Y" a "?" b))<br />         (sub_upd s1 1 tx)<br />       )<br />     )<br />   )<br />   (CMDLA1)<br /> )[/FONT]

lengliqun

CAD2002测试有小问题同，如Y2?12变成Y2?2，Y2?14变成Y2?4而我要求不变，只有当?前的数字＞2时才改变，一楼的文字没表达清楚，请下载附件测试一下，请改改。

xyp1964

最初由 lengliqun 发布
[B]CAD2002测试有小问题同，如Y2?12变成Y2?2，Y2?14变成Y2?4而我要求不变，请改改。 [/B]

2004测试通过！

xyp1964

2. [FONT=courier new];;;以]替代?的情况
   
3. (defun c:test ()
   
4.   (CMDLA0)
   
5.   (setq        ss (ssget '((0 . "TEXT")))
   
6.         i  -1
   
7.   )
   
8.   (while (setq s1 (ssname ss (setq i (1+ i))))
   
9.     (setq tx (dxf 1 (entget s1)))
   
10.     (if        (= (substr tx 1 1) "Y")
    
11.       (progn
    
12.         (setq sln (strlen tx)
    
13.               ls  (vl-string-position (ascii "]") tx) ;以]替代?
    
14.               a          (substr tx 2 (- ls 1))
    
15.               b          (substr tx (+ ls 2))        ;3改为2，]的字符长为1，?的字符长为2
    
16.         )
    
17.         (if (>= (atof a) 4)
    
18.           (progn
    
19.             (setq a (strcat (rtos (/ (atof a) 2.0) 2 0) "x2")
    
20.             )
    
21.             (if        (< (atof b) 14)
    
22.               (setq b "14")
    
23.             )
    
24.           )
    
25.         )
    
26.         (setq tx (strcat "Y" a "]" b))
    
27.         (sub_upd s1 1 tx)
    
28.       )
    
29.     )
    
30.   )
    
31.   (CMDLA1)
    
32. )[/FONT]

[FONT=courier new];;;以]替代?的情况<br /> (defun c:test ()<br />   (CMDLA0)<br />   (setq        ss (ssget '((0 . "TEXT")))<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq tx (dxf 1 (entget s1)))<br />     (if        (= (substr tx 1 1) "Y")<br />       (progn<br />         (setq sln (strlen tx)<br />               ls  (vl-string-position (ascii "]") tx) ;以]替代?<br />               a          (substr tx 2 (- ls 1))<br />               b          (substr tx (+ ls 2))        ;3改为2，]的字符长为1，?的字符长为2<br />         )<br />         (if (>= (atof a) 4)<br />           (progn<br />             (setq a (strcat (rtos (/ (atof a) 2.0) 2 0) "x2")<br />             )<br />             (if        (< (atof b) 14)<br />               (setq b "14")<br />             )<br />           )<br />         )<br />         (setq tx (strcat "Y" a "]" b))<br />         (sub_upd s1 1 tx)<br />       )<br />     )<br />   )<br />   (CMDLA1)<br /> )[/FONT]

lengliqun

原来如此，谢谢了。cad2002/2004测试，为什么不能用ALL全选，若框选全部图形也不运行或运行后没改变，请下载附件一试，谢谢。

xyp1964

画图不规范，一会儿“]”，一会儿又“[”。