不打开文件获取LTSCAL_CAD中文技术交流网

不打开文件获取LTSCAL

;; 从ObjectDBX文档获取LTSCALE
(defun HH:GetLTScaleFromDBXDoc (HHdbxDoc)
(setq HHresult
(vl-catch-all-apply
'(lambda ()
;; 尝试获取系统变量LTSCALE
(setq HHLTScale (vl-catch-all-apply 'vla-GetVariable (list HHdbxDoc "LTSCALE")))
(if (or (null HHLTScale) (vl-catch-all-error-p HHLTScale))
"N/A" ;; 获取失败返回N/A
(rtos HHLTScale 2 2) ;; 成功获取则格式化输出
)
)
)
)
(if (vl-catch-all-error-p HHresult)
"N/A" ;; 任何错误都返回N/A
HHresult
)
)

以上方式无法正确获取未打开文件的ltscale，请大神指点

网友答: 要通过系统变量获取，需要是CLTScale。LTScale自身是CAD内置command，DBX中不能用

下一篇：没有了