「Vla-setwindowtoplot」の版間の差分
(ページの作成：「{{AutoLISP}} ; 構文 : (vla-setwindowtoplot ''vla-object'' ''pt1'' ''pt2'') ; 機能 : 印刷するレイアウトの範囲座標を指定する。 ; 引数 :* vla...」) |
細編集の要約なし |
||
| 12行目: | 12行目: | ||
:* pt1 … 点 | :* pt1 … 点 | ||
:* pt2 … 点 | :* pt2 … 点 | ||
; 戻り値 | ; 戻り値 | ||
: | : nil | ||
| 59行目: | 60行目: | ||
(vla-put-plottype *actlay* acWindow) | (vla-put-plottype *actlay* acWindow) | ||
(vla-plottofile plt "c:\\test.dwf" "DWF6 ePlot.pc3") | (vla-plottofile plt "c:\\temp\\test.dwf" "DWF6 ePlot.pc3") | ||
);_end_defun | );_end_defun | ||
| 69行目: | 70行目: | ||
* [[vlax-get-acad-object]] | * [[vlax-get-acad-object]] | ||
* [[vla-get-activedocument]] | * [[vla-get-activedocument]] | ||
* [[vla-put-paperunits]] | |||
* [[vla-put-plotrotation]] | |||
* [[vla-put-canonicalmedianame]] | |||
* [[vla-put-stylesheet]] | |||
* [[vlax-make-variant]] | |||
* [[vlax-make-safearray]] | |||
* [[vlax-vbdouble]] | |||
* [[vlax-vbarray]] | |||
[[Category:AutoLISP]] | [[Category:AutoLISP]] | ||
2013年3月21日 (木) 15:43時点における最新版
- 構文
- (vla-setwindowtoplot vla-object pt1 pt2)
- 機能
- 印刷するレイアウトの範囲座標を指定する。
- 引数
-
- vla-object … VLAオブジェクト
- pt1 … 点
- pt2 … 点
- 戻り値
- nil
- サンプル
(defun c:testPlotWindow ( / plt p1 point1
pPt1 pPt1sa pt1 p2 point2 pPt2 pPt2sa pt2 )
(vl-load-com)
(setq *cadobj* (vlax-get-Acad-object))
(setq *actdoc* (vla-get-ActiveDocument *cadobj*))
(setq *actlay* (vla-Get-ActiveLayout *actdoc*))
(setq plt (vla-get-plot *actdoc*))
(vla-put-configname *actlay* "DWF6 ePlot.pc3")
(vla-put-canonicalmedianame
*actlay*
"ISO_full_bleed_A3_(420.00_x_297.00_MM)"
)
(vla-put-paperunits *actlay* acMillimeters)
(vla-put-plotrotation *actlay* ac0degrees)
; How to control the Plot Style Table
; (vla-put-StyleSheet *actlay* "HP LaserJet 4MV.ctb")
(setq p1 (getpoint "\n左下点: "))
(setq point1 (list (car p1) (cadr p1)))
(setq pPt1 (vlax-make-safearray vlax-vbDouble '(0 . 1)))
(setq pPt1sa (vlax-safearray-fill pPt1 point1))
(setq pt1 (vlax-make-variant
pPt1sa
(logior vlax-vbarray vlax-vbDouble) )
)
(setq p2 (getpoint "\n右上点 : "))
(setq point2 (list (car p2) (cadr p2)))
(setq pPt2 (vlax-make-safearray vlax-vbDouble '(0 . 1)))
(setq pPt2sa (vlax-safearray-fill pPt2 point2))
(setq pt2 (vlax-make-variant
pPt2sa
(logior vlax-vbarray vlax-vbDouble) )
)
(vla-SetWindowToPlot *actlay* pt1 pt2)
(vla-put-plottype *actlay* acWindow)
(vla-plottofile plt "c:\\temp\\test.dwf" "DWF6 ePlot.pc3")
);_end_defun
関連事項