Lisp选项
我已经阅读了很长一段时间的所有帖子，很高兴成为这个伟大网站的一员，并拥有所有贡献用户的专业知识。虽然我没有遇到任何lisp帖子，在DCL面板和生成按钮中完成输入数据后，或选择模型空间中的一个点以生成项目后，将重新加载lisp
这样的命令行是否可能？如果需要从dcl选择框中选择另一个项目，最好不要将其关闭，并且必须在cad命令行中重新键入lisp命令，并对所谓的lisp重新编码，以便能够生成另一个项目。 ROBP，
我不确定是否完全理解您的问题，但：
恐怕不可能保持dcl面板打开。
但是，如果您的选择是在动作互动程序中完成的
如果保存所有
瓷砖的值。
ymg公司
输入数据完成且生成的项目自动完成后，dcl是否可以重新打开，并且不必在cad命令行中再次键入lisp？
例如，我从这个网站帖子中尝试了DH_V0.4，这很好，但如果我需要图形中的另一种类型的头，我必须调用lisp，因此如果dcl在用户未完成选择后重新打开，并且在用户完成选择并生成所需项目之前，不必再次调用lisp，这将节省时间。
希望以上内容有助于实现问题的目的。
最好的
R 我只是猜测。。。
(defun c:test ( / dcl rb:write flag dcl_location ent )
(defun rb:write ( filename textlist write / fname line lst )
(setq fname (open filename (if write "w" "a")))
(foreach x textlist
(write-line x fname)
)
(setq fname (close fname))
(if (findfile filename)
t nil
)
)
(if (not (findfile (setq dcl_location "c:\\temp\\temp.dcl")))
(rb:write dcl_location
'("main"
": dialog {"
" label = \"testing\";"
" : boxed_column {"
" : text {"
" label = \"<object type>\";"
" key = \"txt\";"
" }"
" : button {"
" label = \"pick object\";"
" key = \"button\";"
" }"
" } cancel_button;"
"}") t
)
)
(defun load-dcl ( / dcl )
(setq dcl (load_dialog dcl_location))
(if (new_dialog "main" dcl)
(progn
(and ent
(set_tile "txt"
(cdr (assoc 0 (entget ent)))
)
)
(action_tile "button" "(done_dialog 2)")
(setq flag (start_dialog))
(unload_dialog dcl)
(and (eq 2 flag)
(setq ent (car (entsel "\nSpecify object to select: ")))
(load-dcl)
)
) (alert "fail")
)
)
(load-dcl)
)
谢谢Dan的意见，让我们看看其他人会回复什么，然后我们会继续跟进 这是可行的。我只是在猜测你想要什么。我只是不知道我理解正确
我只希望DCL和lisp在选择并生成另一个头部类型后重新打开。在我完成第一个头部类型后，你可能想查找我今年早些时候发布的一个头部类型（开发）。如果我可以将命令行添加到这两个类型中，这将是一个巨大的成就 丹的腿，
在取消之前，您的示例会一直执行此操作。
根据项目需要，你可能需要
将一些值初始化为之前的值
退出以获取您的输入。
ymg公司
例如，如果要从该站点获取DH_V0.4 lisp，我如何在选择后重新打开，并生成项目以使dcl在生成项目后重新打开，并生成另一个没有ahev的项目，以在cad命令行中重新键入lisp。
此外，您提议的推荐可以添加到我在这个网站上发布的（开发）推荐中。
如果您有时间查看dev并验证它是否可以实现，那将非常好。
你可以随时将自己添加为贡献者，并将自己的名字添加到贡献者中。并张贴给所有其他人使用。
最好的
罗伯特
页:
[1]
2