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

lizhoufi

meflying

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

spring

lizhoufi发表于2003-9-3 9:46:00如何转化低版本的建新文档LISP程序到高版本去

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

e2002

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

lizhoufi

1. 程序代码内容

复制代码

(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

新建文件用这样
(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

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

meflying

(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)
)

BDYCAD

樓上, 有些LISP文件以是一堆亂碼.不知能不能轉成可以志看得明白的源代碼. 如這個文件.大家
參考參考.





-------------------------------------------------------------------------------
向廣大人民群眾學習

meflying

这不是繁简体问题，这是一个受保护的LISP文件，你是无法看到其内容的