Vla-addconeのソースを表示

{{AutoLISP}}
; 構文
: (vla-addcone ''vla-object'' ''center'' ''radius'' ''height'')


; 機能
: 3Dソリッドの円錐を作図する。


; 引数
:* vla-object … 生成する空間のVLAオブジェクト
:* center … 基点の3Dポイント
:* radius … 円錐の半径（正数）
:* height … 円錐の高さボックスの高さ（正数）


; 戻り値
: 作成した3D円錐のVLAオブジェクト


; サンプル
<pre class="brush:autolisp;">
 ; コマンドで 3DCone を追加
(command "._cone" pause pause pause)

; コマンドで 3Dcone 追加（変数利用版）
(defun c:cm-addcone ()
 (setq pt1 (getpoint "\n円錐の中心点: "))
 (setq rad (getreal "\n半径: "))
 (setq hgt (getreal "\n高さ: "))
 (command "._cone" pt1 rad hgt)
)

; VLA で 3Dcone 追加（適当にactivex版）
(defun c:ax-addcone (/ pt1 rad hgt)
  (vl-load-com)
  (setq *actdoc* (vla-get-activedocument (vlax-get-acad-object)))
  (setq mspace (vla-get-modelspace *actdoc*))
  (setq pt1 (vlax-3d-point (setq pt (getpoint "\n円錐の中心点: "))))
  (setq rad (getdist "\n円錐の半径: " pt))
  (setq hgt (getdist "\n円錐の高さ: " pt))
  (vla-addcone mspace pt1 rad hgt)
  (princ)
) ;defun

</pre>

-----
関連事項
* [[vlax-get-acad-object]]
* [[vla-get-activedocument]]
* [[vla-get-modelspace]]
* [[vla-getpoint]]
* [[vla-getreal]]
* [[vlax-3d-point]]
* [[getdist]]

[[Category:AutoLISP]]