狂混乱 发表于 2003-6-4 00:15:00

请教一句程序!

(setq S::STARTUP (append S::STARTUP STAR))
这个东东啥意思?
怎样改至cad2000中运行?

meflying 发表于 2003-6-4 08:44:00

这是这两个表合并的语句，S::STARTUP和START都必须是表。

你可以先将两个变量付值，然后直接将语句拷到AUTOCAD的命令行运行

狂混乱 发表于 2003-6-4 19:49:00

不成,编译报错,说是要换成defun-q命令?

这是不是个嵌套?知道的话,改写一段帮我吧!
另外,飞哥挺幸福啊,24个小时平分给两个MM。

meflying 发表于 2003-6-5 09:18:00

你把你前面的程序都贴出来啊，这样才好看问题

你认识我吗？

什么平分给两个MM？

狂混乱 发表于 2003-6-5 20:24:00

呵呵,我指的是你的flash签名.

(autoload "pr" '("pp" "dd" "cc" "xx"))
(autoload "kpr" '("ww" "ee"))
(defun star ( )
(if (= nil INIT_BONUS_ERROR) (progn
        (load "sss.lsp" "")
))
……
)
(setq S::STARTUP (append S::STARTUP star))
(princ)
页: [1]
查看完整版本: 请教一句程序!