本帖最后由 edata 于 2024-8-17 16:34 编辑
 - (vl-load-com)
- (defun loadLinetypes(ltNames filename / doc lts n)
- (setq doc(vla-get-activedocument (vlax-get-acad-object)))
- (setq lts(vla-get-linetypes doc))
- (foreach n ltNames(if (not(tblobjname "ltype" n)) (vla-load lts n filename)))
- (vlax-release-object lts)
- (vlax-release-object doc)
- (princ)
- )
- (loadLinetypes '("dashed" "border") "acadiso.lin")
|