关于如何搜索相关命令

BenjaminXM

当看别人的代码时，不明白的时候可以去找AutoLisp函数(葵花宝典).chm文件相应的知识。
但当自己看的代码还不多的时候，对很多函数还不了解的时候，自己写代码想要用到一个功能的函数，却不知道是否有这样的函数，像这种情况下，应该如何自学？如何搜索相关命令？

以上问题主要是在改编他人代码的时候，遇到的，具体问题如下：

需要将一个字符串“1，2，3，4，5”里的“，3”删除，想要得到剩下内容的新字符串“1，2，4，5”。这里不适合用substr命令，因为我删除的对象自己并不知道“，3”在哪里。
遇到这个问题后，应该如何找寻有关字符串的所有函数？
这个具体的问题是否有函数可以解决？

原代码如下：

2. (defun C:fe (/ ES EN EL i fl clay)
   
3. (princ "冻结自己.")
   
4. (setq ES (ssget)
   
5.     i 0
   
6.     EN ""
   
7.     EL nil
   
8.     FL nil)
   
9. (while (/= EN nil)
   
10.   (setq EN (ssname ES i)
    
11.       EL (cons EN EL)
    
12.       i (1+ i)
    
13.     )
    
14.   )
    
15. (setq EL (cdr EL)
    
16.        FL (cdr (assoc ' 8 (entget (car EL))))
    
17.      EL (cdr EL)
    
18.   )
    
19. (repeat (- i 2)
    
20.    (setq EN (cdr (assoc ' 8 (entget (car EL))))
    
21.        FL (strcat EN "," FL)
    
22.        EL (cdr EL)
    
23.     )
    
24.   )
    
25.   
    
26. (command "LAYER" "F" (eval FL) "")
    
27. 
    
28. (princ))

(defun C:fe (/ ES EN EL i fl clay)<br /> (princ "冻结自己.")<br /> (setq ES (ssget)<br />     i 0 <br />     EN "" <br />     EL nil <br />     FL nil)<br /> (while (/= EN nil)<br />   (setq EN (ssname ES i) <br />       EL (cons EN EL) <br />       i (1+ i)<br />     )<br />   )<br /> (setq EL (cdr EL) <br />        FL (cdr (assoc ' 8 (entget (car EL))))<br />      EL (cdr EL)<br />   )<br /> (repeat (- i 2)<br />    (setq EN (cdr (assoc ' 8 (entget (car EL))))<br />        FL (strcat EN "," FL) <br />        EL (cdr EL)<br />     )<br />   )<br />   <br /> (command "LAYER" "F" (eval FL) "")<br /> <br /> (princ))

这个代码是用来冻结选中的图层，变量FL代表的是字符串，比如：“1,2,3,4,5"，但冻结对于当前层不可操作，所以我要把当前层的图层”3“排除掉，想变成”1，2，4，5"。是否可以解决？

鱼与熊掌

(vl-remove (getvar 'clayer) fz)

lucas_3333

搜索 "删除表中指定的元素"
来个简单的

1. (defun mRemoveItem (item lst)
   
2.   (vl-remove-if '(lambda (x) (= x item)) lst)
   
3. )

(defun mRemoveItem (item lst)<br />   (vl-remove-if '(lambda (x) (= x item)) lst)<br /> )

_$ (MREMOVEITEM 3 '(1 2 3 3))
(1 2)

发贴时请选择提问即可 ,不要使用[不死猫] ,这个标签是个人专属标签!

BenjaminXM

鱼与熊掌 发表于 2015-9-5 08:47
(vl-remove (getvar 'clayer) fz)

感谢你提供的帮助。
vl-remove排除的是表fz中的(getvar 'clayer)元素，而我上面的代码里，fz并不是表，而是字符串（由图层和逗号组成的），fz设定为字符串是方便最后一条(command "LAYER" "F" (eval FL) "")应用。所以vl-remove对于字符串不起作用。
谢谢你的帮助，不知道我是否表达清楚了。

BenjaminXM

lucas_3333 发表于 2015-9-5 08:54
搜索 "删除表中指定的元素"
来个简单的

感谢你提供的帮助。
我上面的代码里，fz并不是表，而是字符串（由图层和逗号组成的），fz设定为字符串是方便最后一条(command "LAYER" "F" (eval FL) "")应用。你所提供的函数对于字符串不起作用。

发贴时请选择提问即可 ,不要使用[不死猫] ,这个标签是个人专属标签!
感谢你指正，由于是新手，不太会上论坛。第一次发贴的时候，系统提示”请选择主题类别“，我看到下面是提问，提问下面有四位高手，所以我理解成提问问题要分成四个片区，分别由四位高手来主持管理，于是我就都选了[不死猫]。下回发贴时会注意。我原先那样点取的意思是[不死猫]提问问题，是这个意思吧。

下回我要提问，直接点取提问就好了，是吧？

谢谢你的帮助。

lucas_3333

BenjaminXM 发表于 2015-9-5 09:35
感谢你提供的帮助。
我上面的代码里，fz并不是表，而是字符串（由图层和逗号组成的），fz设定为字符串是 ...

提问直接点取提问就好, 这次应该是Gu_xl版主帮你改过来了, 下次注意好了
没看你的代码, 工作忙死了,看代码就头痛, 你可以用字符串转表

2. ;; String to List  -  Lee Mac
   
3. ;; Separates a string using a given delimiter
   
4. ;; str - [str] String to process
   
5. ;; del - [str] Delimiter by which to separate the string
   
6. ;; Returns: [lst] List of strings
   
7. 
   
8. (defun LM:str->lst ( str del / pos )
   
9.     (if (setq pos (vl-string-search del str))
   
10.         (cons (substr str 1 pos) (LM:str->lst (substr str (+ pos 1 (strlen del))) del))
    
11.         (list str)
    
12.     )
    
13. )

;; String to List  -  Lee Mac<br /> ;; Separates a string using a given delimiter<br /> ;; str - [str] String to process<br /> ;; del - [str] Delimiter by which to separate the string<br /> ;; Returns: [lst] List of strings<br /> <br /> (defun LM:str->lst ( str del / pos )<br />     (if (setq pos (vl-string-search del str))<br />         (cons (substr str 1 pos) (LM:str->lst (substr str (+ pos 1 (strlen del))) del))<br />         (list str)<br />     )<br /> )

llsheng_73

其实你选择孤时候就可以过滤掉当前图层的东东，根本就不会出现后边的问题
(setq es(ssget(list(cons 8(strcat"~"(getvar'clayer)))))
        i 0
       en"")
至于el和fl，因为它们已经被定义为局部变量，没必要为它们赋初值nil
紧接的while不如直接(repeat(sslength es)
                                  ...)
能准确计算循环次数的情况下，repeat比别的循环更具优势

BenjaminXM

llsheng_73 发表于 2015-9-5 22:26
其实你选择孤时候就可以过滤掉当前图层的东东，根本就不会出现后边的问题
(setq es(ssget(list(cons 8(str ...

平时还是注意区分下字符的半角与全角，有时人懒了可能直接复制去进行测试或者调试
这点确定是应该要注意，以后会做到位。

你的回答已经全部理解了，思路没有打开，一直想在后面折腾，按你的想法的确非常直接有效。
对于“~”，((8 . "~Supt-建筑"))，这个代表的意思是非“Supt-建筑”图层吗？头一次见到这种表达。波浪符是通配符，表示匹配此字符串以外的所有字符串吧。

谢谢~

edata

关于字符串参考wcmatch函数。。
ssget应用参见，比较全面。
ssget  后跟mode 的部分理解(不断更新)
http://bbs.mjtd.com/forum.php?mo ... &fromuid=338795

entmake创建图元必要条件(慢慢更新)
http://bbs.mjtd.com/forum.php?mo ... &fromuid=338795

【分享系列1】grread函数应用例子大汇总，源码分享！
http://bbs.mjtd.com/forum.php?mo ... &fromuid=338795

[函数]我整理的很多有用的通用函数，有别人写的，也有本人写的
http://bbs.mjtd.com/forum.php?mo ... &fromuid=338795

[分享]Lisp源码3000
http://bbs.mjtd.com/forum.php?mo ... &fromuid=338795
整理收藏的Lee Mac程序 源码分享
http://bbs.mjtd.com/forum.php?mo ... &fromuid=338795

BenjaminXM

edata 发表于 2015-9-6 20:56
关于字符串参考wcmatch函数。。
ssget应用参见，比较全面。
ssget  后跟mode 的部分理解(不断更新)

关于字符串参考wcmatch函数。。
这个是用来解决我最开始提出的问题吗？应该如何解决？wcmatch这个函数将模式字符串与某指定的字符串进行匹配比较，是否是通过这个函数来告诉我有关通配符~的意义？

以下给出的连接，非常感谢。有一个疑问想咨询一下，作为一个新手，现在这个阶段是开始尝试解决一些问题而自己写代码，遇到不明白不会的时候再去找答案，这种模式是否合适。还是先多看别人写的代码，把别人的代码都看差不多的时候，自然而然就可以写出代码？你从新手到现在这个水平，走的是哪个模式？花了多长的时间？

发的那么多链接我是否要先停下来认真看一遍？Lisp源码3000看到目录就有点怵了。

还请指导一下学习方法，谢谢。