这句话为何不能运行

heyong · 发表于 2004-4-5 10:29:00

我的意思是用模版新建一个文件
(command "new" "coremode.dwt")
模版文件已在搜索目录下，在r14下可以，在2002下提示 "coremode.dwt"为非法命令

citykunan · 发表于 2004-4-5 15:01:00

将SDI系统变量设成0,将FILEDIA也设成0.

heyong · 发表于 2004-4-5 16:03:00

我试了还是不行，command还是把"coremode.dwt"看成是命令

alin · 发表于 2004-4-6 07:05:00

;I found this pasted by R.Robert Bell
(defun NewDwg (fqnName / oldCmdEcho)
(setq oldCmdEcho (getvar "CmdEcho"))
(setvar "CmdEcho" 0)
(cond ((= (getvar "SDI") 0)
(command "._VBAStmt"
(strcat "AcadApplication.Documents.Add \"" fqnName "\"")))
((command "._VBAStmt" (strcat "ThisDrawing.New \"" fqnName "\""))))
(setvar "CmdEcho" oldCmdEcho)
(princ))
;;;Usage: (NewDwg (findfile "acad.dwt"))

citykunan · 发表于 2004-4-6 08:37:00

(defun c:test ()
(command "sdi" "1")
(command "new" "y" "C:\\Program Files\\AutoCAD 2002\\Template\\acad.dwt")
(command "sdi" "0")
)

heyong · 发表于 2004-4-7 14:55:00

sdi 是个什么参数

这句话为何不能运行

发表回复

精选推荐