如何转化低版本的建新文档LISP程序到高版本去

meflying · 发表于 2003-9-3 09:49:00

完全兼容，不用转换。
如果仅用AUTOLISP，则高低都可以兼容

spring · 发表于 2003-9-3 12:18:00

要看看你的程序裡面有沒有涉及到版本問題

e2002 · 发表于 2003-9-3 14:26:00

200x的多文档特性要求你使用ActiveX方式的VisualLISP来新开文档

lizhoufi · 发表于 2003-9-11 08:13:00

复制代码
(defun c:v111 (/ name n k n0 n1 n2)
  (setq       name
      (getstring
         "\n１、请输入您欲新建立的图纸名称(应含路径,如: C:\\MY\\T1 ):"
      )
  )
  (setq n (strlen name))
  (setq k 1)
  (while (<= k n)
(setq n1 (substr name k 1))
(cond ((= n1 "\\")
         (setq n1 "/")
         (setq n0 (substr name 1 (- k 1)))
         (setq n2 (substr name (+ k 1)))
         (setq name (strcat n0 n1 n2))
      )
)
(setq k (+ k 1))
  )
  (setq name (strcat name "=c:/ht/bzt/v111"))
  (command "new" name)
)
以上是源程序代码，在r12中可用，在2000中不可用，若用activeX接口技术，该如何改变该程序,请指教。

meflying · 发表于 2003-9-11 08:34:00

新建文件用这样
(vl-load-com)
(defun c:test( / doc)
  (setq doc (vla-add (vla-get-documents (vlax-get-acad-object))))
  (vla-saveas doc "e:\\wjh\\study\\autolisp\\1.dwg"  acR15_DWG)
  (vla-activate doc)
)
;acR15_DWG可根据你需要版本存储

lizhoufi · 发表于 2003-9-13 08:45:00

如果仍要保持原来的命令行提示方式，并且调用模板并重新命名？该程序如何改变？

meflying · 发表于 2003-9-13 09:58:00

(vl-load-com)
(defun c:test( / doc)
  (setq doc (vla-get-documents (vlax-get-acad-object)))
  (setq doc (vla-add doc "c:/ht/bzt/v111"))
  (vla-saveas doc "e:\\wjh\\study\\autolisp\\1.dwg"  acR15_DWG)
  (vla-activate doc)
)