二次开发:获取某个打印机纸张列表出错,在AutoCAD却正常,帮看看。
(vla-put-CanonicalMediaName layout (nth index (GetPaperList2 configName)))
;;;获得某打印机纸张类型列表, 例:(setq PaperSizes (GetPaperList2 "PublishToWeb JPG.pc3" ))
(defun GetPaperList2 (configName / app canpapersizearr canpapersizelist canpapersizevar app doc layout)
(vl-load-com)
(setq app (vlax-get-acad-object) doc (vla-get-activedocument app) layout (vla-get-activelayout doc))
(vla-put-configname layout configName) ;将打印机设为当前打印机
(vla-RefreshPlotDeviceInfo layout)
(setq CanPaperSizeVar (vla-GetCanonicalMediaNames (vla-item (vla-get-layouts doc) "Model"))
CanPaperSizeArr (vlax-variant-value CanPaperSizeVar)
CanPaperSizeLIst (vlax-safearray->list CanPaperSizeArr))
)
没有找到相关结果
已邀请:
1 个回复
lena
赞同来自:
个人开发的简单插件或单一问题。
渠道:通过邮件描述您的问题(标题写明语言如 lisp VB .net 等,内容详细描述您的问题,附带Demo最好),发送至support_dev@gstarcad.com
服务:浩辰开发工程师定期处理邮件问题。