如何实现打印功能？
本帖最后由 angei83 于 2024-10-14 16:54 编辑工作之余学习看了一个月autolisp入门视频，学了个一知半解，想要实现自己的功能太难，在此请教各位大佬。
最终是想实现批量打印的功能，想先实现简单的打印功能，不知道如何进行了。
想请教各位大佬，打印的函数是什么？打印名称是否可以自己动获取？有没有相关的程序代码让我参考一下，谢谢。
以下是我的lsp文件：
(defun c:pp1()
(setvar "cmdecho" 0)
(setq dlg_id (load_dialog "G:\\AutoLISP入门实例视频教程\\练习\\ppd\\ppd"))
(if (< dlg_id 0) (exit))
(if (not (new_dialog "pldy" dlg_id)) (exit))
(action_tile "but_s" "(getdata) (done_dialog 2)")
(action_tile "accept" "(done_dialog 1)")
(action_tile "cancel" "(done_dialog 0)")
(setq std (start_dialog))
(unload_dialog dlg_id)
(cond ((= std 1) (princ "确定"))
((= std 0) (princ "取消"))
)
(princ)
)
以下是我的DCL
pldy:dialog{
label="打印选项";
:popup_list{
label="选择打印机";
edit_width=30;
list="Adobe PDF\nAutoCAD PDF (General Documentation).pc3\nDWF6 ePlot.pc3";
value=0;
}
:popup_list{
label="选择纸张";
edit_width=5;
list="A3\nA4";
value=1;
}
:button{
label="选择打印窗口>";
key="but_s";
}
spacer_1;
:radio_row{
label="图形方向";
:radio_button{
label="横向";
value=1;
}
:radio_button{
label="纵向";
}
}
spacer_1;
ok_cancel;
}
页:
[1]