我目前有一个安装程序,可以在AutoCAD的完整版本中向AutoCAD添加支持路径目录。
有一个称为CADSTA的第三方应用程序,使AutoCAD Lt能够运行lisp命令,但不能使用VLA
我想知道是否有可能在没有VLA的情况下运行纯lisp驱动的例程来完成同样的事情?
我当前使用但不适用于AutoCAD LT的CADSTA的示例代码
- (defun c:SMC-setup (/ FilePrefs addEnviron EnvironBase acadEnviron)
- (setq FilePrefs (vla-get-files
- (vla-get-preferences (vlax-get-acad-object))
- )
- )
- (setq acadEnviron (vla-get-supportpath FilePrefs))
- (setq
- EnvironBase "C:\\Program Files\"
- )
- (setq addEnviron
- '("Shadow Multi Cast" "Shadow Multi Cast\\Data" );;;add any others you want to this list
- )
- (if (not (vl-string-search
- (strcat EnvironBase (car addEnviron))
- acadEnviron
- );;;make sure we haven't already done this
- )
- (progn
- (mapcar
- '(lambda (x)
- (setq acadEnviron (strcat acadEnviron ";" EnvironBase x))
- )
- addEnviron
- )
- (vla-put-supportpath FilePrefs acadEnviron)
- (princ "\n....Shadow Multi Cast Installed")
- );progn
- (princ
- "\n....Shadow Multi Cast already Installed...nothing done."
- )
- );if
- (princ)
- )
|