【AutoCAD LISP】楕円の作成

2022年2月13日

プルメリアの夏フレーム＊楕円型＊茶

LISP で楕円を作成するには、どうしたらいいですか？

モデル空間に、楕円を作成するサンプルを紹介します。

最初の 3 行で、モデル空間を変数 mspace に設定しています。

その後に、楕円を作成しています。

;;; この LISP をロードして、DrawEllipse コマンドを事項すると、楕円が作成されます。
(defun C:DrawEllipse ()
  (setq acadobj (vlax-get-acad-object))
  (setq document (vla-get-activedocument acadobj))
  (setq modelSpace (vla-get-modelspace document))
  
  ; 楕円の中心を指定
  (setq centerPoint (vlax-3d-point 50 50 0))
  
  ; 楕円の主軸
  (setq majorAxis (vlax-3d-point 100 0 0))
  
  ; 楕円の主軸と副軸の比率
  (setq radiusRatio 0.5)

  ; 楕円をモデル空間に追加
  (setq ellipse (vla-AddEllipse modelSpace centerPoint majorAxis radiusRatio))

  (princ)
)

-API
-