判断是否为CAD命令的简写

USER2128

我们可以用(getcname "ERASE")判断"ERASE"是CAD系统内置命令;
可以用(member(strcase"car"))(atoms-family 1))判断"car"是CAD内置函数；
请问：我们有何简单办法判断如："E"是命令"ERASE"的简写
谢谢!

USER2128

ghxc 发表于 2014-11-4 08:14
应该只能通过pgp了

目前还没有发现更好的方法，现采取读ACAD.PGP，看有无与所给字符匹配的。

zzyong00

搜索acad.pgp文件，查找对应的命令

自贡黄明儒

查看．Pgp文件是不是简写

USER2128

自贡黄明儒 发表于 2014-11-3 11:30
查看．Pgp文件是不是简写

请问有无更简便的方法？

ghxc

应该只能通过pgp了来自: Android客户端

USER2128

贴子浮出了水面，证明还有些朋友关心，那就将有关函数贴上：

2. ;;;=======================================================================
   
3. ;;; 检查字符串CMD是不是CAD内置命令、"acad.pgp"文件中定义过的命令简写、CAD内置函数之一, 如是返回T, 否nil.
   
4. ;| Ex:
   
5. (xxx-get-pgp "mi")  ==> T
   
6. (xxx-get-pgp "mirror")  ==> T
   
7. (xxx-get-pgp "XXX")  ==> T  ;已经加载了C:XXX函数。
   
8. (xxx-get-pgp "car")  ==> T
   
9. (xxx-get-pgp "123wer")  ==> nil
   
10. |;
    
11. (defun xxx-get-pgp (cmd / f_n o_p str rtn )
    
12.   (if (and (= (type cmd) 'STR)
    
13.       (or (<= 48 (ascii cmd) 57) (<= 65 (ascii cmd) 90) (<= 97 (ascii cmd) 122)
    
14.     (= (ascii cmd) 45) (= (ascii cmd) 95)) ;"-"、"_"、
    
15.      (setq f_n (findfile"acad.pgp"))
    
16.      (setq o_p (open f_n "r"))
    
17.      )
    
18.     (progn
    
19.       (while (and (setq str (read-line o_p))
    
20.       (or (= str "") (= (substr str 1 1) " ") (wcmatch str ";*")
    
21.           (not (wcmatch (strcase str) (strcat (strcase cmd) "`,*`**")))
    
22.           )))
    
23.       (if (and str (wcmatch (strcase str) (strcat (strcase cmd) "`,*`**")))
    
24.   (setq rtn t)
    
25.   (setq rtn nil)
    
26.   )
    
27.       (if o_p (close o_p))
    
28.       )
    
29.     (setq rtn nil)
    
30.     )
    
31.   (cond
    
32.     (rtn (princ (strcat "\n函数名"" CMD ""\t与ACAD.PGP中命令的简写重名了;")))
    
33.     ((or (= (eval (read (strcat "(type c:" cmd ")"))) 'SUBR)
    
34.    (= (eval (read (strcat "(type c:" cmd ")"))) 'USUBR)
    
35.    )
    
36. ;     (princ (strcat "\n函数名"C:" CMD ""\t已定义，并已加载到系统了;"))
    
37.      (setq rtn t)
    
38.      )
    
39.     ((getcname cmd)
    
40.      (princ (strcat "\n"" CMD ""\t是CAD系统内置命令;"))
    
41.      (setq rtn t)
    
42.      )
    
43.     ((member (strcase CMD) (atoms-family 1))
    
44.      (princ (strcat "\n"" CMD ""\t是CAD系统内置函数;"))
    
45.      (setq rtn t)
    
46.      )
    
47.     (T (setq rtn nil))
    
48.     )
    
49.   rtn)
    
50. ;;;=======================================================================
    

;;;=======================================================================<br /> ;;; 检查字符串CMD是不是CAD内置命令、"acad.pgp"文件中定义过的命令简写、CAD内置函数之一, 如是返回T, 否nil.<br /> ;| Ex:<br /> (xxx-get-pgp "mi")  ==> T<br /> (xxx-get-pgp "mirror")  ==> T<br /> (xxx-get-pgp "XXX")  ==> T  ;已经加载了C:XXX函数。<br /> (xxx-get-pgp "car")  ==> T<br /> (xxx-get-pgp "123wer")  ==> nil<br /> |;<br /> (defun xxx-get-pgp (cmd / f_n o_p str rtn )<br />   (if (and (= (type cmd) 'STR)<br />       (or (<= 48 (ascii cmd) 57) (<= 65 (ascii cmd) 90) (<= 97 (ascii cmd) 122)<br />     (= (ascii cmd) 45) (= (ascii cmd) 95)) ;"-"、"_"、<br />      (setq f_n (findfile"acad.pgp"))<br />      (setq o_p (open f_n "r"))<br />      )<br />     (progn<br />       (while (and (setq str (read-line o_p))<br />       (or (= str "") (= (substr str 1 1) " ") (wcmatch str ";*")<br />           (not (wcmatch (strcase str) (strcat (strcase cmd) "`,*`**")))<br />           )))<br />       (if (and str (wcmatch (strcase str) (strcat (strcase cmd) "`,*`**")))<br />   (setq rtn t)<br />   (setq rtn nil)<br />   )<br />       (if o_p (close o_p))<br />       )<br />     (setq rtn nil)<br />     )<br />   (cond<br />     (rtn (princ (strcat "\n函数名"" CMD ""\t与ACAD.PGP中命令的简写重名了;")))<br />     ((or (= (eval (read (strcat "(type c:" cmd ")"))) 'SUBR)<br />    (= (eval (read (strcat "(type c:" cmd ")"))) 'USUBR)<br />    )<br /> ;     (princ (strcat "\n函数名"C:" CMD ""\t已定义，并已加载到系统了;"))<br />      (setq rtn t)<br />      )<br />     ((getcname cmd)<br />      (princ (strcat "\n"" CMD ""\t是CAD系统内置命令;"))<br />      (setq rtn t)<br />      )<br />     ((member (strcase CMD) (atoms-family 1))<br />      (princ (strcat "\n"" CMD ""\t是CAD系统内置函数;"))<br />      (setq rtn t)<br />      )<br />     (T (setq rtn nil))<br />     )<br />   rtn)<br /> ;;;=======================================================================<br />

ynhh

感谢你的分享

czcxxx

感谢你的分享