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

hw8810

想知道当前加载lisp的是桌子CAD还是浩辰、中望，有什么方法区分吗？这样可以做到不同的CAD利用不同的函数，隐藏函数国产的CAD貌似不支持呢。

03.29****************************************
我发现我理解错了，我是想区别软件然后看加不加载隐藏函数的fas。除了桌子，其他的好像不支持隐藏函数的。那这样就不是写在lisp里面了，是在打包vlx的时候要进行什么操作？

ludaweb

(getvar "program")
"acad"
"gcad"
"ZWCAD"

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 /> )

vitalgg

1. ;; @lisp 针对不同CAD的代码处理
   
2. (cond
   
3.   (is-gstarcad
   
4.     ;; 浩辰CAD下的处理代码
   
5.   )
   
6.   (is-bricscad
   
7.     ;; brics CAD下的处理代码
   
8.   )
   
9.   (is-zwcad
   
10.     ;; 中望CAD下的处理代码
    
11.   )
    
12.   (is-autocad
    
13.     ;; AutoCAD下的处理代码
    
14.   )
    
15.   (t ;; 其它CAD
    
16.   
    
17.   ))
    
18. ;; 语言处理
    
19. 
    
20. (cond
    
21. ((= "zh_CN" @:lang)
    
22.   ;; 简体中文
    
23. )
    
24. 
    
25. ((= "zh_TW" @:lang)
    
26.   ;; 繁体中文
    
27. )
    
28. 
    
29. ((= "vi" @:lang)
    
30.   ;; 越南文
    
31. ) ((= "en" @:lang)
    
32.   ;; 英文
    
33. )
    
34. (t ;; 其它
    
35. 
    
36. ))
    

;; @lisp 针对不同CAD的代码处理<br /> (cond<br />   (is-gstarcad<br />     ;; 浩辰CAD下的处理代码<br />   )<br />   (is-bricscad <br />     ;; brics CAD下的处理代码<br />   )<br />   (is-zwcad<br />     ;; 中望CAD下的处理代码<br />   )<br />   (is-autocad <br />     ;; AutoCAD下的处理代码<br />   )<br />   (t ;; 其它CAD<br />   <br />   ))<br /> ;; 语言处理<br /> <br /> (cond <br /> ((= "zh_CN" @:lang)<br />   ;; 简体中文<br /> )<br /> <br /> ((= "zh_TW" @:lang)<br />   ;; 繁体中文<br /> )<br /> <br /> ((= "vi" @:lang)<br />   ;; 越南文<br /> ) ((= "en" @:lang)<br />   ;; 英文<br /> )<br /> (t ;; 其它<br /> <br /> ))<br />

liuyun242

(getvar "GCADVER")  (getvar "ACADVER") (getvar "ZRXVERNUM")

hw8810

liuyun242 发表于 2023-3-13 16:58
(getvar "GCADVER")  (getvar "ACADVER") (getvar "ZRXVERNUM")

这是获取CAD版本吗？

liuyun242

是的，你可以试试

hw8810

liuyun242 发表于 2023-3-13 17:31
是的，你可以试试

试了前后两个返回nil，中间那个返回的版本号好像不同软件是一样的

d1742647821

2楼正解~~~~~~~~~~~~~~~~

hw8810

ludaweb 发表于 2023-3-13 19:16
(getvar "program")
"acad"
"gcad"

这个可以，感谢

hw8810

vitalgg 发表于 2023-3-13 19:37

大佬这是什么函数？没见过呀