Vla-addpoint

提供:GizmoLabs - だいたい CAD LISP なサイト
2013年10月29日 (火) 12:22時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-addpoint ''vla-object'' ''pt'') ; 機能 : 点を作図する。 ; 引数 :* vla-object … 生成する空間のVLAオブジェクト :*...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(vla-addpoint vla-object pt)


機能
点を作図する。


引数
  • vla-object … 生成する空間のVLAオブジェクト
  • pt … 点の3Dポイント


戻り値
作成した点のVLAオブジェクト


サンプル
 ; コマンドで点を追加
(command "._point" pause)

; コマンドで点を追加(変数利用版)
(defun c:cm-addpoint ()
 (while (setq pt1 (getpoint "\n点: "))
   (command "._point" pt1)
 ))

; VLA で 点を追加(適当にactivex版)
(defun c:ax-addpoint (/ pt1 ret_pt)
  (vl-load-com)
  (setq *actdoc* (vla-get-activedocument (vlax-get-acad-object)))
  (setq mspace (vla-get-modelspace *actdoc*))
  (while 
      (setq pt1 (vlax-3d-point (getpoint "\n点の位置を指示: ")))
      (setq ret_pt (vla-AddPoint mspace pt1))
   );while

  (princ)
) ;defun


関連事項