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

xazhji · 发表于 2003-9-23 09:56:00

好像这个程序不全呀！少 (seterr) ....

BDYCAD · 发表于 2003-9-23 11:54:00

這個只是做程序運行的一些設置.
(defun seterr()
(setvar "cmdecho" 0)
(setq #olderr *error*)
(setq *error* myerr)
(setq #oldos (getvar "osmode"))
(command "_.undo" "begin")
)

----------------------------------
我愛CAD.

xazhji · 发表于 2003-9-23 11:57:00

Command: txt
Unknown command "CHKVAL". Press F1 for help.
; error: quit / exit abort

Command: dt
Unknown command "CHKVAL". Press F1 for help.
; error: quit / exit abort

BDYCAD · 发表于 2003-9-23 13:33:00

把那句(command "CHKVAL")去掉看看.

meflying · 发表于 2003-9-23 13:44:00

肯定不行的，这是一个有对话框的程序，可没给出对话框文件

xazhji · 发表于 2003-9-23 14:21:00

请前生同志帮忙把程序贴全，如何？

BDYCAD · 发表于 2003-9-23 14:21:00

對話框丟啦. 找不到了.

前生 · 发表于 2003-9-23 16:49:00

xazhji发表于2003-9-23 14:21:00请前生同志帮忙把程序贴全，如何？

你理解错了.我将前面的同志的加密的程序还原了而已.不是我的

lizhoufi · 发表于 2003-9-24 15:41:00

可是我的程序在R12中可用，就是因为2000的多文档特性，所以程序运行NEW命令时出现错误。另外你所附的动画我不能打开，所以。。。。。。。

meflying · 发表于 2003-9-24 16:07:00

用winrar解压后直接运行就可以了，是EXE文件

账号		自动登录	找回密码
密码			注册