【AutoCAD LISP】構築線の作成

2023年4月15日

【AutoCAD LISP】構築線の作成

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

以下が、構築線を作成するサンプルです。

;;; この LISP をロードして、DrawXLine コマンドを実行すると、構築線が作成されます。
(defun C:DrawXLine ()
  ; モデル空間を変数 modelSpace に設定
  (setq acadobj (vlax-get-acad-object))
  (setq document (vla-get-activedocument acadobj))
  (setq modelSpace (vla-get-modelspace document))

  ; 構築線の基点を指定
  (setq basePoint (vlax-3d-point 100 100 0))
  
  ; 構築線が通る点を指定
  (setq passingPoint (vlax-3d-point 300 200 0))
  
  ; 構築線をモデル空間に作成
  (setq xline(vla-AddXline modelSpace basePoint passingPoint))

  (princ)
)

-API
-