【AutoCAD LISP】円の作成

2022年2月2日

【AutoCAD LISP】円の作成

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

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

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

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

;;; この LISP をロードして、DrawCircle コマンドを事項すると、円が作成されます。
(defun C:DrawCircle ()
  (setq acadobj (vlax-get-acad-object))
  (setq document (vla-get-activedocument acadobj))
  (setq modelSpace (vla-get-modelspace document))
  
  ; 円の中心点と半径を設定
  (setq centerPoint (vlax-3d-point 0 0 0))
  (setq radius 50)
  
  ; 円を作成
  (setq circle (vla-AddCircle modelSpace centerPoint radius))

  (princ)
)

-API
-