Vla-put-center

AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

構文: (vla-put-center vla-object point )

機能: 円弧、円、楕円、ビュー、ビューポートの中心を指定する。

引数

vla-object … VLAオブジェクト（Arc、Circle、DimRadialLarge、Ellipse、PViewport、View、Viewport）
point … オブジェクトの中心を表す 3D 座標。既定の中心は(0,0,0)。

Viewport、View : ビューポート、ビューオブジェクトの場合、その中心は 2D 座標。

戻り値: nil

サンプル

(vl-load-com)
(defun c:Example_Center()
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
  
    ;; 初期中心点および円の半径を定義する。
    (setq currCenterPt (vlax-3d-point 20 30 0)
          radius 3)
    
    ;; 円を作成
    (setq modelSpace (vla-get-ModelSpace doc))
    (setq circObj (vla-AddCircle modelSpace currCenterPt radius))
    (vla-ZoomAll acadObj)
    (alert (strcat "円の中心点は "
		   "\n" (rtos (nth 0 (vlax-safearray->list (vlax-variant-value currCenterPt)))) ", "
		   (rtos (nth 1 (vlax-safearray->list (vlax-variant-value currCenterPt)))) ", "
		   (rtos (nth 2 (vlax-safearray->list (vlax-variant-value currCenterPt))))
           )
    )

    ;; 変更
    (setq newCenterPt (vlax-3d-point 25 25 0))
    (vla-put-Center circObj newCenterPt)
    (vla-Update circObj)
    
    ;; 新しい中心位置の結果。
    ;; バリアントは、center プロパティからの出力を確認します。
    (setq centerPoint (vlax-variant-value (vla-get-Center circObj)))
    (alert (strcat "円の中心点は "
		   "\n" (rtos (nth 0 (vlax-safearray->list centerPoint))) ", "
		   (rtos (nth 1 (vlax-safearray->list centerPoint))) ", "
		   (rtos (nth 2 (vlax-safearray->list centerPoint)))
           )
    )
)