[VLISP函数]打印机系列

hells1 · 发表于 2008-3-16 22:32:55

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

好东西啊，谢谢。

791221ni · 发表于 2008-4-28 06:29:40

(setq aobj (vlax-get-Acad-Object)
      adoc (vla-get-ActiveDocument aobj)
      alob (vla-get-ActiveLayout adoc))

   (vla-RefreshPlotDeviceInfo  alob)

   (vla-Put-Configname alob "pdffactory pro");;;设定打印机配置名称
   (vla-Put-StyleSheet alob "monochrome.ctb");;;;设定布局或打印布局的样式图纸。
   (vla-Put-CanonicalMediaName alob "a4");;;;以名称设定图纸大小。

   (vla-Put-PaperUnits alob 1)    ;;可确定用于用户界面中的布局或打印配置的显示的单位 0=inches 1=millimeters
   (vla-Put-PlotHidden alob 0)    ;;设定打印期间是否隐藏对象 1 hidden
   (vla-Put-PlotViewportBorders alob 0)  ;;设定视口边界是否能被打印 0 default
   (vla-Put-PlotViewportsFirst  alob 1)  ;;设定图纸空间视口中的所有几何图形是否要先打印 1 default
   (vla-Put-PlotWithPlotStyles  alob 1)  ;;设定对象是否以应用至对象的和绘图样式表中定义的绘图样式进行绘制 1 default
   (vla-Put-PlotWithLineweights alob 1) ;;设定对象是以打印文件中指定的线宽打印，还是以图形文件中的线宽打印 1 default
   (vla-Put-ScaleLineweights alob 0)  ;;设定当打印布局时线宽是否要和其余的元素一起调整比例 0 default
   (vla-Put-ShowPlotStyles    alob 0)  ;;设定是否在打印中使用打印样式
   (vla-Put-UseStandardScale alob 1)  ;;设定打印是否使用标准或自定义的比例。
   (vla-Put-PlotType &n bsp; alob 1);;设定布局或打印配置的类型。012345=DisplayExtentsLimitsViewWindowLayout
   (vla-Put-CenterPlot       alob 0)    ;; center plot

   (setq orig (vlax-make-safearray vlax-vbdouble (cons 0 1)))
   (vlax-make-variant (vlax-safearray-fill orig (list 0 0)))    ;; plot origin in millimeters
   (vla-Put-PlotOrigin alob orig);;;设定是否在介质中央打印。

   (vla-Put-PlotRotation alob 1)          ;;设定配置或打印配置的旋转角度。 90 degrees
   (vla-Put-StandardScale  alob 0)          ;;设定打印比例 0 = to fit

   (vla-put-NumberOfCopies (setq plto (vla-get-plot adoc)) #number#);;;设定要打印的份数。

   (vlax-invoke-method plto 'PlotToDevice #pc3filenmae#)

晓希 · 发表于 2008-11-26 21:25:53

这个难题不知何时能够解决。感谢楼主。

显示全部楼层 · 发表于 2008-12-18 01:06:55

提示: 作者被禁止或删除内容自动屏蔽

315896506 · 发表于 2008-12-26 21:49:43

不知道怎么用

ajing_sky · 发表于 2009-1-2 19:40:38

真的是好东西，不知道预览是哪个命令？？？

kkt123 · 发表于 2015-2-3 10:55:52

VV感谢楼主VV

fscrd2015 · 发表于 2015-2-5 17:08:53

(vla-Put-CanonicalMediaName alob "a4"); 这句，我用变量plotpaper表示，当plotpaper="a4"就可以，=其它就不行，为什么呢？请大神指教呀，纸张名称都是有的，

sj2005tb · 发表于 2016-5-28 08:45:27

纸张大小是与打印机配套的，有的打印机没有A4、A3等纸张，你强行设定为A4、A3等纸张，会出现错误，所以设定纸张前确保打印机对应的纸张有对应的纸张选项

nijiea123 · 发表于 2019-3-24 13:24:02

这个确实是好东西就是新手还不知道怎么用

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

zhishuihan 该用户已被删除	发表于 2008-12-18 01:06:55 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
zhishuihan 该用户已被删除	论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复支持反对使用道具举报

[VLISP函数]打印机系列

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子