判断是否为CAD命令的简写

USER2128 · 发表于 2014-11-3 10:56:20

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

USER2128 · 发表于 2014-11-5 22:51:49

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

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

zzyong00 · 发表于 2014-11-3 11:29:48

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

自贡黄明儒 · 发表于 2014-11-3 11:30:53

查看．Pgp文件是不是简写

USER2128 · 发表于 2014-11-3 14:12:19

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

请问有无更简便的方法？

ghxc · 发表于 2014-11-4 08:14:44

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

USER2128 · 发表于 2014-11-7 08:09:12

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

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

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

ynhh · 发表于 2015-11-5 09:56:04

感谢你的分享

czcxxx · 发表于 2015-11-5 12:09:05

感谢你的分享

账号		自动登录	找回密码
密码			注册

[已解答] 判断是否为CAD命令的简写

点评

本帖被以下淘专辑推荐: