请问lisp有办法获取是什么CAD吗？浩辰or中望or。。。？

vitalgg

hw8810 发表于 2023-3-14 16:16
大佬这是什么函数？没见过呀

@lisp 核心的部分代码。加载 @lisp 时对CAD软件的厂商 进行初步测定。
然后在后面的应用中就可以针对不同的CAD软件写差异化代码了。

1. (setq @:products '("AutoCAD" "GstarCAD" "ZWCAD" "BricsCAD"))
   
2. (setq fasext ".fas")
   
3. (setq is-gstarcad nil
   
4.       is-bricscad nil
   
5.       is-zwcad nil
   
6.       is-autocad nil
   
7.       @:cad-platform (getvar "product"))
   
8. "中望，浩辰特殊定义"
   
9. (cond
   
10. ((string-equal "GstarCAD" (getvar "product"))
    
11.   ;;(or (findfile "icad.pgp")(findfile "gcad.pgp"))
    
12.   (setq @:pgp-file "gcad.pgp")
    
13.   (setq @:locale "chs")
    
14.   (setq is-gstarcad T)
    
15.   (setq is-gcad T))
    
16. ((string-equal "ZWCAD" (getvar "product"))
    
17.   (setq @:pgp-file "ZWCAD.pgp")
    
18.   (setq @:locale "chs")
    
19.   (if (> (read (getvar "zrxvernum")) 2017)
    
20.       (setq fasext ".zelx"))
    
21.   (setq is-zwcad T))
    
22. ((string-equal "bricscad" (getvar "product"))
    
23.   (setq @:pgp-file "default.pgp")
    
24.   (setq is-bricscad T)
    
25.   (setq fasext ".des")
    
26.   (setq @:locale (strcase (getvar "locale") T)))
    
27. ((string-equal "autocad" (getvar "product"))
    
28.   (setq @:pgp-file "acad.pgp")
    
29.   (setq is-autocad t)
    
30.   (cond
    
31.    ((= (getvar "syscodepage") "ANSI_936")
    
32.     (setq @:locale "chs"))
    
33.    ((= (getvar "syscodepage") "ANSI_950")
    
34.     (setq @:locale "cht"))
    
35.    (t (setq @:locale (strcase (getvar "locale") T)))
    
36.   ))
    
37. (t  (setq @:locale "chs")(setq @:pgp-file "acad.pgp"))
    
38. )

(setq @:products '("AutoCAD" "GstarCAD" "ZWCAD" "BricsCAD"))<br /> (setq fasext ".fas")<br /> (setq is-gstarcad nil<br />       is-bricscad nil<br />       is-zwcad nil<br />       is-autocad nil<br />       @:cad-platform (getvar "product"))<br /> "中望，浩辰特殊定义"<br /> (cond<br /> ((string-equal "GstarCAD" (getvar "product"))<br />   ;;(or (findfile "icad.pgp")(findfile "gcad.pgp"))<br />   (setq @:pgp-file "gcad.pgp")<br />   (setq @:locale "chs")<br />   (setq is-gstarcad T)<br />   (setq is-gcad T))<br /> ((string-equal "ZWCAD" (getvar "product"))<br />   (setq @:pgp-file "ZWCAD.pgp")<br />   (setq @:locale "chs")<br />   (if (> (read (getvar "zrxvernum")) 2017)<br />       (setq fasext ".zelx"))<br />   (setq is-zwcad T))<br /> ((string-equal "bricscad" (getvar "product"))<br />   (setq @:pgp-file "default.pgp")<br />   (setq is-bricscad T)<br />   (setq fasext ".des")<br />   (setq @:locale (strcase (getvar "locale") T)))<br /> ((string-equal "autocad" (getvar "product"))<br />   (setq @:pgp-file "acad.pgp")<br />   (setq is-autocad t)<br />   (cond<br />    ((= (getvar "syscodepage") "ANSI_936")<br />     (setq @:locale "chs"))<br />    ((= (getvar "syscodepage") "ANSI_950")<br />     (setq @:locale "cht"))<br />    (t (setq @:locale (strcase (getvar "locale") T)))<br />   ))<br /> (t  (setq @:locale "chs")(setq @:pgp-file "acad.pgp"))<br /> )

zml84

[/url]

[url=https://mp.weixin.qq.com/s/RKJUciJVD1DdfL9F8gpDsQ]

[url=https://mp.weixin.qq.com/s/RKJUciJVD1DdfL9F8gpDsQ][/url]