加载程序后弹出alert

chengx2000 · 发表于 2011-7-14 21:34

今天加载一个绘制图框的软件，和平常一样先"load"tt""（假设命令和文件名都是tt吧），刚加载完就自动跳出一个alert的提示，起初我没太在意，但是后来一想很意外：我用load函数只是加载了这个程序而已，我并没有执行这个程序啊，没有道理会弹出一个提示信息啊？望高手解答一二。

ljpnb · 发表于 2011-7-14 22:05

可能程序DEFUN以外有一句alert语句,用来作提示用的...

chengx2000 · 发表于 2011-7-14 22:19

回复 ljpnb 的帖子

还是不太明白，加载文件后只有执行程序才可能出东西啊，不会自己蹦出来吧。

669423907 · 发表于 2011-7-14 22:31

(command "circle")
这样就会自己蹦出来啦！

ljpnb · 发表于 2011-7-14 22:32

把这个保存成一个LISP文件,再加载试试
(defun c:tt()
  (princ "aaaa")
  (princ)
  )
(alert "\n弹出一个框!")

ZZXXQQ · 发表于 2011-7-14 22:34

一般加载程序时如果所有代码都在(defun ……)之内，则加载时并不执行，load函数返回最后定义的程序名。如果想在加载时就立即运行代码，可以不用defun，加载时程序立即执行所写的代码。
所以有时可以这样写：
(defun c:xx ()
……
)
(princ "程序已经加载");在命令行写出字串，如果用alert函数，就会弹出对话框。
(princ);抑制上一行的返回值

669423907 · 发表于 2011-7-14 22:38

回复 ljpnb 的帖子

谢谢 ljpnb大师！又学了一招！

chengx2000 · 发表于 2011-7-14 22:40

回复 ZZXXQQ 的帖子

谢谢ljpnb和版主ZZXXQQ，受教了！

zwqgdhl · 发表于 2011-7-15 01:22

刚试过，哈哈哈，真的是高手呀，这都可以想得出来，牛

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

[函数] 加载程序后弹出alert

浏览过的版块