Vla-Addcylinder

提供:GizmoLabs - だいたい CAD LISP なサイト
2014年6月22日 (日) 17:39時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-addcylinder ''vla-object1'' ''Center'' ''Radius'' ''Height'') ; 機能 : WCS の XY 平面上に底面がある 3D ソリッド円柱を...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(vla-addcylinder vla-object1 Center Radius Height)


機能
WCS の XY 平面上に底面がある 3D ソリッド円柱を作成する。


引数
  • vla-object1 … VLA オブジェクト (Block、ModelSpace、PaperSpace)
  • Center… 境界ボックスの中心を指定する 3D WCS 座標。
  • Radius … 円柱の半径(正数)。
  • Height … 円柱の高さ(正数)。


戻り値
nil


サンプル

(vl-load-com)
(defun c:Example_AddCylinder()
    ;; モデル空間に円柱を作成するサンプル
    (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
    
    ;; 円柱の設定値
    (setq center (vlax-3d-point 0 0 0)
          cylRadius 5
          cylHeight 20)
    
    ;; モデルに円柱 (3DSolid)を生成 
    (setq modelSpace (vla-get-ModelSpace doc))
    (setq cylinderObj (vla-AddCylinder modelSpace center cylRadius cylHeight))
    
    ;; 表示の更新
    (setq NewDirection (vlax-3d-point -1 -1 1))
    (setq activeViewport (vla-get-ActiveViewport doc))
    (vla-put-Direction activeViewport NewDirection)
    (vla-put-ActiveViewport doc activeViewport)
    (vla-ZoomAll (vlax-get-acad-object))
)

関連事項