cad中怎样通过lisp调用dcl 详细点
(defunc:hello()(setindex_value(load_dialog"hello.dcl")(if(not(new_dialog"hello"index_...
(defun c:hello()
(set index_value(load_dialog"hello.dcl")
(if(not(new_dialog"hello"index_value))
(exit)
)
(start_dialog)
(unload_dialog index_value)
(princ)
)
hello:dialog{
label="sample dialog box";
:text{
label="hello,world";
}
ok_only;
} 展开
(set index_value(load_dialog"hello.dcl")
(if(not(new_dialog"hello"index_value))
(exit)
)
(start_dialog)
(unload_dialog index_value)
(princ)
)
hello:dialog{
label="sample dialog box";
:text{
label="hello,world";
}
ok_only;
} 展开
2个回答
展开全部
查看AutoCAD的帮助中“acad_devXXX.chm”中的帮助说明中“Interacting with the Dialog Box from AutoLISP Code”的内容,有详细的调用说明。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询