「Vla-zoomscaled」の版間の差分

提供:GizmoLabs - だいたい CAD LISP なサイト
(ページの作成:「{{AutoLISP}} ; 構文 : (vla-zoomscaled ''vla-object'' ''scale'' ''scaletype'')) ; 機能 : pt1、pt2の範囲でズームする。 ; 引数 :* vla-object … VLA...」)
 
編集の要約なし
24行目: 24行目:
<pre class="brush:autolisp;">
<pre class="brush:autolisp;">
(vl-load-com)
(vl-load-com)
(setq acadapplic (vlax-get-acad-object))
(setq *ActDoc* (vla-get-ActiveDocument (vlax-get-Acad-Object)))
(setq util (vla-get-utility (vla-get-activedocument acadapplic)))
(setq util (vla-get-utility *ActDoc*))
(setq SC (vla-getreal util "\nズームの係数を入力して Enter : "))
(setq SC (vla-getreal util "\nズームの係数を入力して Enter : "))


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


</pre>
</pre>

2013年3月20日 (水) 23:57時点における版

構文
(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)


関連事項