Vla-zoomscaled

提供:GizmoLabs - だいたい CAD LISP なサイト
2015年1月29日 (木) 22:28時点におけるGizmon (トーク | 投稿記録)による版
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(vla-zoomscaled vla-object scale scaletype))


機能
pt1、pt2の範囲でズームする。


引数
  • vla-object … VLAオブジェクト
  • scale … 倍率の値
  • scaletype … ズームのタイプを表す下記の定数
  • acZoomScaledAbsolute : 表示倍率値
  • acZoomScaledRelative : 現在のビューからの相対値
  • acZoomScaledRelativePSpace : ペーパー空間の単位空の相対値


戻り値
nil


サンプル
(vl-load-com)
(setq *ActDoc* (vla-get-ActiveDocument (vlax-get-Acad-Object)))
(setq util (vla-get-utility *ActDoc*))
(setq SC (vla-getreal util "\nズームの係数を入力して Enter : "))

(vla-ZoomScaled (vlax-get-Acad-Object) SC acZoomScaledRelative)


関連事項