「Vla-addxline」の版間の差分
細編集の要約なし |
細編集の要約なし |
||
| 20行目: | 20行目: | ||
; サンプル | ; サンプル | ||
<pre class="brush:autolisp;"> | <pre class="brush:autolisp;"> | ||
; | ; コマンドで構築線追加 | ||
(command "._xline" pause pause "") | (command "._xline" pause pause "") | ||
; | ; コマンドで構築線追加（変数利用版） | ||
(defun c:cm-addxline () | (defun c:cm-addxline () | ||
(setq pt1 (getpoint "\n始点: ")) | (setq pt1 (getpoint "\n始点: ")) | ||
| 30行目: | 30行目: | ||
) | ) | ||
; | ; コマンドで構築線追加（VLコマンド版） | ||
(vl-cmdf "._xline" (getpoint "始点:") (getpoint "方向点:") "") | (vl-cmdf "._xline" (getpoint "始点:") (getpoint "方向点:") "") | ||
; | ; entmakeで構築線追加 | ||
(defun c:em-addxline () | (defun c:em-addxline () | ||
(setq pt1 (getpoint "\n始点: ")) | (setq pt1 (getpoint "\n始点: ")) | ||
| 45行目: | 45行目: | ||
))) | ))) | ||
; VLA | ; VLA で構築線追加（適当にactivex版） | ||
(defun c:ax-addxline () | (defun c:ax-addxline () | ||
(vl-load-com) | (vl-load-com) | ||
| 58行目: | 58行目: | ||
;------------------------------- | ;------------------------------- | ||
; VLA | ; VLA で構築線追加（ActiveX的版） | ||
(defun c:ax-addxline1 () | (defun c:ax-addxline1 () | ||
(vl-load-com) | (vl-load-com) | ||
2013年9月20日 (金) 14:29時点における最新版
- 構文
- (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
関連事項