在ssget中如何添加设置功能

hubeiwdlue

想写一个后缀函数，思路是这样的，先选择一个文字，选择中添加一个设置功能，用来设置步长。然后通过正则表达式提取后缀数字部分，将文字分离成前部字符串和后缀字符串两部分，每点选一次其他文字，后缀字符串+1个步长，然后和前部字符串合并，通过组码替换掉点选文字的内容。

现在问题是initget关键字对ssget无效，设置这个步骤无法完成。请大神们帮我看看，这个要怎么搞。

2. ;[功能]更改图元、图元表、选择集DXF组码以修改实体属性
   
3. ;[用法](xyp-SubUpd 实体名 DXF码 新值)
   
4. (defun xyp-SubUpd (ename code val / ent x y i s1)
   
5.   (cond ((= (type ename) 'ENAME)
   
6.   (setq ent (entget ename))
   
7.   (if (and (= (type code) 'LIST) (= (type val) 'LIST))
   
8.     (mapcar '(lambda (x y) (xyp-SubUpd ename x y)) code val)
   
9.     (progn
   
10.       (if (= (xyp-get-dxf code ename) nil)
    
11.         (entmod (append ent (list (cons code val))))
    
12.         (entmod (subst (cons code val) (assoc code ent) ent))
    
13.       )
    
14.       (entupd ename)
    
15.     )
    
16.   )
    
17. )
    
18. ((= (type ename) 'PICKSET)
    
19.   (setq i -1)
    
20.   (while (setq s1 (ssname ename (setq i (1+ i))))
    
21.     (xyp-SubUpd s1 code val)
    
22.   )
    
23. )
    
24. ((= (type ename) 'LIST)
    
25.   (foreach s1 ename (xyp-SubUpd s1 code val))
    
26. )
    
27.   )
    
28.   ename
    
29. )
    
30. ;[功能]根据DXF组码表、图元名，对应点对列表
    
31. ;[用法](xyp-get-DXF DXF码 图元名)
    
32. (defun xyp-get-DXF (code ename / ent lst a)
    
33.   (if (= (type code) 'LIST)
    
34.     (progn
    
35.       (setq ent        (entget ename)
    
36.             lst        '()
    
37.       )
    
38.       (foreach a code
    
39.         (setq lst (cons (list a (cdr (assoc a ent))) lst))
    
40.       )
    
41.       (reverse lst)
    
42.     )
    
43.     (if        (= code -3)
    
44.       (cdr (assoc code (entget ename '("*"))))
    
45.       (cdr (assoc code (entget ename)))
    
46.     )
    
47.   )
    
48. )
    
49. ;[功能]提取字符串尾部数字
    
50. ;[用法](wbstr String),String为字符串
    
51. (defun wbstr (String / regex S tmp str1)
    
52. (setq regex (vlax-create-object "Vbscript.RegExp")) ;引用正则表达式控件
    
53. (vlax-put-property regex "IgnoreCase" 0) ;不忽略大小写
    
54. (vlax-put-property regex "Global" 1) ;匹配方式，全文字匹配
    
55. (vlax-put-property regex "Multiline" 1) ;多行模式
    
56. (vlax-put-property regex "Pattern" "[0-9]+(?=[^0-9]*$)")
    
57. (setq s (vlax-invoke-method regex "Execute" String))
    
58.   ;;将规则运用到STR字符，得到提取出的文字内容
    
59.   (setq ent (VLAX-FOR tmp s (vlax-get-property tmp "value")))
    
60.   (vlax-release-object regex)
    
61.   (setq ent (atoi ent))
    
62.   ent
    
63. )
    
64. ;;后缀主函数
    
65. (defun c:hz(/ SS DZ EN TXT N2 TXT-WB N-WB TXT1 EN_XG TXT2)
    
66.   (if (null *dz*) (setq *dz* 1))
    
67.   (while
    
68.     (progn
    
69.       (initget 2 "S")
    
70.       (setq ss (ssget ":E:S" (car (list '((0 . "*text")) (princ (strcat "\n参照文本或:[设置步长(S)_" (rtos *dz* 2 2)"]"))))));;参照文本或设置步长
    
71.       (cond
    
72.       ((and (eq (type ss) 'STR)(eq (strcase ss) "S"))
    
73.                 (initget (+ 2 4));非零非负
    
74.                 (setq *dz* (cond ((getint (strcat "\n输入步长<" (rtos *dz* 2 2) ">:"))) (*dz*)))
    
75.         T;;继续循环
    
76.              )
    
77.       ((and ss (eq (type ss) 'PICKSET))
    
78.         (setq en (ssname ss 0))
    
79.         (setq txt (xyp-get-DXF 1 en))
    
80.         (setq n2 (strlen txt))
    
81.         (setq txt-wb (wbstr txt));;获得尾部数字，整形
    
82.         (setq n-wb (strlen (itoa txt-wb)))
    
83.         (setq txt1 (substr txt 1 (- n2 n-wb)));;获得尾部数字前的字符串
    
84.         (while (setq en_xg (car(entsel"\n选择修改文本")))
    
85.           (setq txt-wb (itoa(+ txt-wb *dz*)));尾部数字+步长
    
86.           (setq txt2 (strcat txt1 txt-wb))
    
87.           (xyp-SubUpd en_xg 1 txt2)
    
88.           (setq txt-wb (atoi txt-wb))
    
89.         )
    
90.       nil;;结束循环
    
91.       )
    
92.     )))
    
93.   (princ)
    
94. )

;[功能]更改图元、图元表、选择集DXF组码以修改实体属性<br /> ;[用法](xyp-SubUpd 实体名 DXF码 新值)<br /> (defun xyp-SubUpd (ename code val / ent x y i s1)<br />   (cond ((= (type ename) 'ENAME)<br />   (setq ent (entget ename))<br />   (if (and (= (type code) 'LIST) (= (type val) 'LIST))<br />     (mapcar '(lambda (x y) (xyp-SubUpd ename x y)) code val)<br />     (progn<br />       (if (= (xyp-get-dxf code ename) nil)<br />         (entmod (append ent (list (cons code val))))<br />         (entmod (subst (cons code val) (assoc code ent) ent))<br />       )<br />       (entupd ename)<br />     )<br />   )<br /> )<br /> ((= (type ename) 'PICKSET)<br />   (setq i -1)<br />   (while (setq s1 (ssname ename (setq i (1+ i))))<br />     (xyp-SubUpd s1 code val)<br />   )<br /> )<br /> ((= (type ename) 'LIST)<br />   (foreach s1 ename (xyp-SubUpd s1 code val))<br /> )<br />   )<br />   ename<br /> )<br /> ;[功能]根据DXF组码表、图元名，对应点对列表<br /> ;[用法](xyp-get-DXF DXF码 图元名)<br /> (defun xyp-get-DXF (code ename / ent lst a)<br />   (if (= (type code) 'LIST)<br />     (progn<br />       (setq ent        (entget ename)<br />             lst        '()<br />       )<br />       (foreach a code<br />         (setq lst (cons (list a (cdr (assoc a ent))) lst))<br />       )<br />       (reverse lst)<br />     )<br />     (if        (= code -3)<br />       (cdr (assoc code (entget ename '("*"))))<br />       (cdr (assoc code (entget ename)))<br />     )<br />   )<br /> )<br /> ;[功能]提取字符串尾部数字<br /> ;[用法](wbstr String),String为字符串<br /> (defun wbstr (String / regex S tmp str1)<br /> (setq regex (vlax-create-object "Vbscript.RegExp")) ;引用正则表达式控件<br /> (vlax-put-property regex "IgnoreCase" 0) ;不忽略大小写<br /> (vlax-put-property regex "Global" 1) ;匹配方式，全文字匹配<br /> (vlax-put-property regex "Multiline" 1) ;多行模式<br /> (vlax-put-property regex "Pattern" "[0-9]+(?=[^0-9]*$)")<br /> (setq s (vlax-invoke-method regex "Execute" String))<br />   ;;将规则运用到STR字符，得到提取出的文字内容<br />   (setq ent (VLAX-FOR tmp s (vlax-get-property tmp "value")))<br />   (vlax-release-object regex)<br />   (setq ent (atoi ent))<br />   ent<br /> )<br /> ;;后缀主函数<br /> (defun c:hz(/ SS DZ EN TXT N2 TXT-WB N-WB TXT1 EN_XG TXT2)<br />   (if (null *dz*) (setq *dz* 1))<br />   (while <br />     (progn <br />       (initget 2 "S")<br />       (setq ss (ssget ":E:S" (car (list '((0 . "*text")) (princ (strcat "\n参照文本或:[设置步长(S)_" (rtos *dz* 2 2)"]"))))));;参照文本或设置步长<br />       (cond <br />       ((and (eq (type ss) 'STR)(eq (strcase ss) "S"))<br />                 (initget (+ 2 4));非零非负<br />                 (setq *dz* (cond ((getint (strcat "\n输入步长<" (rtos *dz* 2 2) ">:"))) (*dz*)))<br />         T;;继续循环<br />              )<br />       ((and ss (eq (type ss) 'PICKSET))<br />         (setq en (ssname ss 0))<br />         (setq txt (xyp-get-DXF 1 en))<br />         (setq n2 (strlen txt))<br />         (setq txt-wb (wbstr txt));;获得尾部数字，整形<br />         (setq n-wb (strlen (itoa txt-wb)))<br />         (setq txt1 (substr txt 1 (- n2 n-wb)));;获得尾部数字前的字符串<br />         (while (setq en_xg (car(entsel"\n选择修改文本")))<br />           (setq txt-wb (itoa(+ txt-wb *dz*)));尾部数字+步长<br />           (setq txt2 (strcat txt1 txt-wb))<br />           (xyp-SubUpd en_xg 1 txt2)<br />           (setq txt-wb (atoi txt-wb))<br />         )<br />       nil;;结束循环<br />       )<br />     )))<br />   (princ)<br /> )

飞雪神光

http://bbs.mjtd.com/forum.php?mo ... FC%D7%D6%B5%C4ssget

hubeiwdlue

飞雪神光 发表于 2023-10-31 18:15
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=71545&highlight=%B4%F8%B9%D8%BC%FC%D7%D6%B5%C4ssget

谢谢飞雪神光，也谢谢飞诗大神。关于(Fsxm-ssget msg kwd fil)的应用，fil这个参数填写'((0 . "*text"))之类的都没问题，前面控制鼠标的部分，比如":E:S"，是否能写进去，如果能，应该怎么写进去呢。

飞雪神光

这有个优化过的http://bbs.mjtd.com/forum.php?mo ... amp;highlight=ssget

hubeiwdlue

飞雪神光 发表于 2023-10-31 19:44
这有个优化过的http://bbs.mjtd.com/forum.php?mod=viewthread&tid=185377&highlight=ssget

谢谢拉。