关于设定打印机参数

aws

1. (defun c:gg()
   
2.   (setq obj(vlax-ename->vla-object(car(entsel "\n点击要打印的外框："))))(or obj(quit))
   
3.   (vla-getboundingbox obj 'minp 'maxp)
   
4.   (setq p1(vlax-safearray->list minp))
   
5.   (setq p9(vlax-safearray->list maxp))
   
6.   (setq desktop(strcat(vla-item(vlax-get(vlax-create-object "WScript.Shell" )'SpecialFolders)"Desktop")"\\PDF图纸"));---获取桌面位置
   
7.   (if(>(-(car p9)(car p1))(-(cadr p9)(cadr p1)));---如果宽度大于高度，横向打印，否则纵向打印
   
8.     (setq fx "l")
   
9.     (setq fx "p")
   
10.   )
    
11.   (setvar "CMDECHO" 0)
    
12.   (command "-plot" "y" "模型" "DWG To PDF.pc3" "ISO full bleed 4A0 (1682.00 x 2378.00 毫米)" "m" fx "n" "w" "non" p1 "non" p9 "f" "c" "y" "" "y" "a" desktop "n" "y")
    
13.   (setvar "CMDECHO" 1)
    
14.   (princ)
    
15. )

(defun c:gg()<br />   (setq obj(vlax-ename->vla-object(car(entsel "\n点击要打印的外框："))))(or obj(quit))<br />   (vla-getboundingbox obj 'minp 'maxp)<br />   (setq p1(vlax-safearray->list minp))<br />   (setq p9(vlax-safearray->list maxp))<br />   (setq desktop(strcat(vla-item(vlax-get(vlax-create-object "WScript.Shell" )'SpecialFolders)"Desktop")"\\PDF图纸"));---获取桌面位置<br />   (if(>(-(car p9)(car p1))(-(cadr p9)(cadr p1)));---如果宽度大于高度，横向打印，否则纵向打印<br />     (setq fx "l")<br />     (setq fx "p")<br />   )<br />   (setvar "CMDECHO" 0)<br />   (command "-plot" "y" "模型" "DWG To PDF.pc3" "ISO full bleed 4A0 (1682.00 x 2378.00 毫米)" "m" fx "n" "w" "non" p1 "non" p9 "f" "c" "y" "" "y" "a" desktop "n" "y")<br />   (setvar "CMDECHO" 1)<br />   (princ)<br /> )

请问这段里面的command命令，如何改成其他方式编写？比如vla函数。

sandyvs

http://bbs.xdcad.net/forum.php?m ... B%E6%89%93%E5%8D%B0
看看晓东的
(vl-load-com)
(defun PlotToFile (ConfigName         MediaName     Window
                   FileName         /               AcadObj
                   ActiveDocObj         ActiveLayoutObj
                   PlotObj
                  )
  (setq        AcadObj                (vlax-get-acad-object)
        ActiveDocObj        (vla-get-ActiveDocument AcadObj)
        ActiveLayoutObj        (vla-get-ActiveLayout ActiveDocObj)
  )
  (vla-RefreshPlotDeviceInfo ActiveLayoutObj)
  (vla-Put-ConfigName ActiveLayoutObj ConfigName)
  (setq PlotObj (vla-get-Plot ActiveDocObj))
  (vla-Put-CanonicalMediaName ActiveLayoutObj MediaName)
  (vla-Put-StandardScale ActiveLayoutObj acScaleToFit)
  (vla-Put-PlotRotation ActiveLayoutObj ac0degrees)
  (vla-put-PlotOrigin
    ActiveLayoutObj
    (vlax-make-variant
      (vlax-make-safearray vlax-vbDouble '(0 . 1))
    )
  )
  (vla-Put-CenterPlot ActiveLayoutObj :vlax-false)
  (vla-SetWindowToPlot
    ActiveLayoutObj
    (vlax-make-variant
      (vlax-safearray-fill
        (vlax-make-safearray vlax-vbDouble '(0 . 1))
        (car Window)
      )
    )
    (vlax-make-variant
      (vlax-safearray-fill
        (vlax-make-safearray vlax-vbDouble '(0 . 1))
        (cadr Window)
      )
    )
  )
  (vla-Put-PlotType ActiveLayoutObj acWindow)
  (vla-PlotToFile PlotObj FileName)
  (foreach o (list PlotObj ActiveLayoutObj ActiveDocObj AcadObj)
    (vlax-release-object o)
  )
)

(PlotToFile
  "DWG To PDF.pc3"
  "ANSI_A_(11.00_x_8.50_Inches)"
  (list (list 0 0) (list 100 100))
  (strcat (getvar "DWGPREFIX") (getvar "DWGNAME") ".pdf")
)

aws

sandyvs 发表于 2024-9-6 17:24
http://bbs.xdcad.net/forum.php?mod=viewthread&tid=727578&highlight=%E9%80%9A%E7%94%A8%2B%E6%89%93%E5 ...

我滴天，跟天书一样。

qazxswk

sandyvs 发表于 2024-9-6 17:24
http://bbs.xdcad.net/forum.php?mod=viewthread&tid=727578&highlight=%E9%80%9A%E7%94%A8%2B%E6%89%93%E5 ...

试了一下这个，输出文件时，好慢。

sandyvs

qazxswk 发表于 2024-9-14 23:40
试了一下这个，输出文件时，好慢。

按说应该不会，应该是跟cad文件本身有关系吧

qazxswk

sandyvs 发表于 2024-9-19 09:01
按说应该不会，应该是跟cad文件本身有关系吧

我找到解决办法了。谢谢你的源代码。