本帖最后由 carrot1983 于 2015-9-19 19:36 编辑
;;==============================================分割线
http://www.theswamp.org/index.php?topic=35714.0
根据以上网址的lisp代码,稍改一下。 - (defun GET-VAR ()
- (setq TESTVAR1 "Apple")
- (setq TESTVAR2 1.0)
- (setq TESTVAR3 (list 1.0 1.0 1.0))
- (setq
- TESTVAR4 (list (cons "A" 1) (cons "B" 2.0) (cons "C" "Charlie"))
- )
- )
- (GET-VAR)
- (VL-ACAD-DEFUN 'GET-VAR)
如果是编译后的VLX,编译模式是 独立命名空间 (:SEPARATE-NAMESPACE . t),就不行。
有没有办法?
|