我编写了这个简单的例程,可以使用参数化值快速打印,并且可以完美地处理“布局”,但不能在模型空间中运行。
有人能帮我吗?
- (defun c:_PLT (/ )
- (setq layoutname (getvar "CTAB"))
- (command "-plot"
- "yes"
- layoutname
- "\\\\servername\\printername" ; PRINTER NAME
- "ISO A2 " ; PAPER SIZE
- "m" ; PAPER UNITS
- "Landscape"; drawing orientation
- "no" ;PLOT UPSIDE DOWN
- "Extents" ; PLOT AREA
- "fit" ; PLOT SCALE
- "0.00,0.00"
- "yes" ;PLOT WITH PLOTSYTLES
- "_acad.ctb"
- "y" ;PLOT WITH LINEWEIGHTS
- "n" ;SCALE LINEWEIGHTS WITH PLOT SCALE
- "y" ;PLOT PAPER SPACE LAST
- "n" ;REMOVE HIDDEN LINES
- "n" ;WRITE THE PLOT TO A FILE
- "y" ;SAVE CHANGES
- "y");
- ; )
- (princ)
- )
|