下面设将cad设置一直以2004格式保存dwg
 - ;;;保存cad版本格式...
- (vl-catch-all-apply '(lambda nil
- ;;;begin
- (setq $opensave (vla-get-OpenSave(vla-get-preferences(vla-get-application(vlax-get-acad-object)))))
- ;;;获取版本
- (if (/= (vla-get-saveastype $opensave) ac2004_dwg)
- (vla-put-saveastype $opensave ac2004_dwg)
- )
- ;;;end
- ))
|