（XD::DOC:GetCMD）获得LISP文件中定义的C:命令名字符串表

Lispboy

1. (defun XD::DOC:GetCMD (fn / cmd lst x)
   
2.   (if (and
   
3.         (xdrx_string_regexps ".lsp$" fn)
   
4.         (setq fn (findfile fn))
   
5.         (setq lst (xd::list:fromfile fn))
   
6.       )
   
7.     (progn
   
8.       (setq lst (mapcar
   
9.                    '(lambda (x)
   
10.                       (if (and
    
11.                             (not (xdrx_string_regexps "(?<=^;).+" x))
    
12.                             (setq cmd (xdrx_string_regexps "(?<=^\\(defun [cC]:).+(?=[ ]*\\()"
    
13.                                                            x
    
14.                                       )
    
15.                             )
    
16.                           )
    
17.                         (xdrx_string_trimright (car cmd))
    
18.                       )
    
19.                     )
    
20.                    lst
    
21.                  )
    
22.       )
    
23.       (vl-remove nil lst)
    
24.     )
    
25.   )
    
26. )

(defun XD::DOC:GetCMD (fn / cmd lst x)<br />   (if (and<br />         (xdrx_string_regexps ".lsp$" fn)<br />         (setq fn (findfile fn))<br />         (setq lst (xd::list:fromfile fn))<br />       )<br />     (progn<br />       (setq lst (mapcar<br />                    '(lambda (x)<br />                       (if (and<br />                             (not (xdrx_string_regexps "(?<=^;).+" x))<br />                             (setq cmd (xdrx_string_regexps "(?<=^\\(defun [cC]:).+(?=[ ]*\\()"<br />                                                            x<br />                                       )<br />                             )<br />                           )<br />                         (xdrx_string_trimright (car cmd))<br />                       )<br />                     )<br />                    lst<br />                  )<br />       )<br />       (vl-remove nil lst)<br />     )<br />   )<br /> )

命令: (xd::doc:getcmd "xdtb_tools.lsp")
("XDTB_2PDash" "XDTB_BalconyHide1" "XDTB_MB_BalconyHide" "XDTB_CopyWithDoteInt"
"ssgetf" "xdtb_dwgcut" "XDTB_EntChgClr" "XDTB_EntChgClr" "XDTB_EntityInfo"
"XDTB_ECopy" "XDTB_FASTARC" "XDTB_XMove" "XDTB_GCopy" "XDTB_FreeCopy"
"XDTB_FreeMove" "XDTB_RegionErase" "XDTB_RegionCopy" "XDTB_GetScope"
"XDTB_Copy+1" "XDTB_Copy+1" "xdtb_polyRealClose" "XDTB_SETUPUNIT"
"XDTB_SETUPDrawScale" "tt-old" "tt-old" "tt-old" "tt-old" "XDTB_ATTLock"
"XDTB_BGNCOLOR" "xdtb_fitLinetype" "tt-old" "XDTB_DWGCUT" "XDTB_DWGCLIP"
"xdtb_regmirror" "XDTB_UCSOBJ" "XDTB_Ecopy1" "XDTB_EMove1" "XDTB_XStretch"
"XDTB_SORTEdit" "tt1" "tt1" "tt1" "XDTB_MLeaderDrag" "XDTB_MLeaderFX"
"xdtb_mleaderdragfx" "XDTB_MLeaderBaseFx" "XDTB_MleaderEdit"
"XDTB_MLeaderBAlign" "XDTB_LayoutZE")

sh_h

谢谢楼主分享！！！

yjch

好好学习天天向上，思考