【AutoCAD LISP】線分の作成

2023年3月18日

【AutoCAD LISP】線分の作成

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

モデル空間に、始点が 0,0 で終点が 100,100 の線分を作成するサンプルを紹介します。

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

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

;;; この LISP をロードして、DrawLine コマンドを実行すると、線分が作成されます。
(defun C:DrawLine ()
  (setq acadobj (vlax-get-acad-object))
  (setq document (vla-get-activedocument acadobj))
  (setq modelSpace (vla-get-modelspace document))

  ; 始点 0,0,0、終点 100,100,0 の線分を作成
  (setq startPoint (vlax-3d-point '(0.0 0.0 0.0)))
  (setq endPoint (vlax-3d-point '(100.0 100.0 0.0)))
  (setq line (vla-AddLine modelSpace startPoint endPoint))

  (princ)
)

-API
-