【AutoCAD LISP】ポリラインの作成

2023年3月20日

【AutoCAD LISP】ポリラインの作成

LISP でポリラインを作成するには、どうしたらいいですか？

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

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

その後に、ポリラインを作成しています。

;;; この LISP をロードして、DrawPolyLine コマンドを事項すると、ポリラインが作成されます。
(defun C:DrawPolyLine ()
  (setq acadobj (vlax-get-acad-object))
  (setq document (vla-get-activedocument acadobj))
  (setq modelSpace (vla-get-modelspace document))

  ; ポリラインの頂点を指定
  (setq polyLinePoints (vlax-make-safearray vlax-vbDouble '(0 . 11)))
  (vlax-safearray-fill polyLinePoints '(0 0 0
                                        100 0 0
                                        100 100 0
                                        0 100 0)
  )

  ; ポリラインを作成
  (setq polyLine (vla-AddPolyline modelSpace polyLinePoints))

  ;ポリラインを閉じる
  (vla-put-closed polyLine :vlax-true)

  (princ)
)

-API
-