;在命令行输入什么命令能判定正在运行的环境是天正？PRODUCT只显示AUTOCAD (defun c:ZZZ(/ k) (setq k (strcase (getvar "PRODUCT")));cad命令栏内输入命令PRODUCT回车得出具体39;系统变量39;值 (cond ((= k "ZWCAD") (command "S71_ZBJC"));S71_LJCC(中望坐标标注)
;在命令行输入什么命令能判定正在运行的环境是天正？PRODUCT只显示AUTOCAD
(defun c:ZZZ(/ k)
(setq k (strcase (getvar "PRODUCT")));cad命令栏内输入命令PRODUCT回车得出具体39;系统变量39;值
(cond
((= k "ZWCAD") (command "S71_ZBJC"));S71_LJCC(中望坐标标注)
((= k "TCHCAD") (command "TCheckCoord"));这里的TCHCAD实际是不能实现的
;((= k "AUTOCAD") (command "dimlinear"));dimlinear(CAD连接尺寸)
)
)
