.....................................

贱人 · 发表于 2005-5-4 14:07:00

本帖最后由贱人于 2025-4-18 16:01 编辑

.....................................

f5612140 · 发表于 2005-5-4 14:35:00

(defun c:bg()
(initget "1 2 3 4")
(setq num (getkword "\n输入类型:"))
(cond ((= num "1")(c:bg1))
((= num "2")(c:bg2))
((= num "3")(c:bg3))
((= num "4")(c:bg4))
)
(prin1)
)

贱人 · 发表于 2005-5-4 16:43:00

本帖最后由贱人于 2025-4-18 16:01 编辑

.....................................

无痕 · 发表于 2005-5-4 18:55:00

copy bg*.lsp bg.lsp

hosoyo · 发表于 2005-5-4 22:57:00

都写在一个LSP文件里

程序bg1 bg2 bg3 bg4不用定义c:了

gcho · 发表于 2009-7-22 16:56:00

看看

bridgewind · 发表于 2009-10-4 02:06:00

太复杂了吧，感觉可以简化

czb203 · 发表于 2011-11-18 19:49:03

感觉很不错的样子哦谢谢楼主

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

[讨论] .....................................

浏览过的版块