「Vla-addxline」の版間の差分
(ページの作成:「{{AutoLISP}} ; 構文 : (vla-addxline ''vla-object'' ''pt1'' ''pt2'') ; 機能 : 線分を作図する。 ; 引数 :* vla-object … 生成する空間のVLAオブジ...」) |
細編集の要約なし |
||
5行目: | 5行目: | ||
; 機能 | ; 機能 | ||
: | : 構築線を作図する。 | ||
2013年9月20日 (金) 14:28時点における版
- 構文
- (vla-addxline vla-object pt1 pt2)
- 機能
- 構築線を作図する。
- 引数
-
- vla-object … 生成する空間のVLAオブジェクト
- pt1 … 始点の3Dポイント
- pt2 … ベクトル方向の3Dポイント
- 戻り値
- 作成した線分のVLAオブジェクト
- サンプル
; コマンドで線分追加 (command "._xline" pause pause "") ; コマンドで線分追加(変数利用版) (defun c:cm-addxline () (setq pt1 (getpoint "\n始点: ")) (setq pt2 (getpoint "\n方向点: " pt1)) (command "._xline" pt1 pt2 "") ) ; コマンドで線分追加(VLコマンド版) (vl-cmdf "._xline" (getpoint "始点:") (getpoint "方向点:") "") ; entmakeで線分追加 (defun c:em-addxline () (setq pt1 (getpoint "\n始点: ")) (setq pt2 (getpoint "\n方向点: " pt1)) (entmake '((0 . "XLINE") (cons 10 pt1) (cons 11 pt2) (210 0.0 0.0 1.0) ))) ; VLA で線分追加(適当にactivex版) (defun c:ax-addxline () (vl-load-com) (setq *actdoc* (vla-get-activedocument (vlax-get-acad-object))) (setq mspace (vla-get-modelspace *actdoc*)) (setq pt1 (getpoint "\n始点: ")) (setq pt2 (getpoint "\n方向点: " pt1)) (setq myline (vla-addxline mspace (vlax-3d-point pt1)(vlax-3d-point pt2))) (princ) ) ;defun (princ) ;------------------------------- ; VLA で線分追加(ActiveX的版) (defun c:ax-addxline1 () (vl-load-com) (setq *actdoc* (vla-get-activedocument (vlax-get-acad-object))) (setq mspace (vla-get-modelspace *actdoc*)) (setq util (vla-get-utility *actdoc*)) (setq pt1 (vla-getpoint util nil "\n始点 : ")) (setq pt2 (vla-getpoint util pt1 "\n方向点 : ")) (setq myline (vla-addxline mspace pt1 pt2)) (princ) ) ;defun
関連事項