「Vla-addpoint」の版間の差分
(ページの作成:「{{AutoLISP}} ; 構文 : (vla-addpoint ''vla-object'' ''pt'') ; 機能 : 点を作図する。 ; 引数 :* vla-object … 生成する空間のVLAオブジェクト :*...」) |
(相違点なし)
|
2013年10月29日 (火) 12:22時点における最新版
- 構文
- (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
関連事項