流_星 发表于 2014-9-15 22:25:43

关于geomcal.arx

本帖最后由 流_星 于 2014-9-15 22:26 编辑

geomcal.arx 与2013相同是什么.ARX，因为cad2013找不到geomcal.arx

流_星 发表于 2014-9-23 17:31:28

(if (or        (= (type c:cal) 'LIST)    ;R14
        (= (type c:cal) 'SUBR)    ;R15
        (= (type c:cal) nil)      ;R16
    )
(if (and (not(member "GEOMCAL.ARX" (mapcar (function strcase) (arx))))
       (not(member "GEOMCAL.CRX" (mapcar (function strcase) (arx)))))
    (cond ((findfile "GEOMCAL.CRX") (arxload (findfile "GEOMCAL.CRX") nil))
          ((findfile "GEOMCAL.ARX") (arxload (findfile "GEOMCAL.ARX") nil))))
)

vladimirputin 发表于 2017-4-7 14:34:50

不错的代码， 谢谢分享啊
页: [1]
查看完整版本: 关于geomcal.arx