Tinav:towcspoint

BricsCADのLISP - Tin+Civil関数 - AutoLISP Home - AutoLISP 目次 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

構文: (Tinav:towcspoint ename pnt)

機能: Vertical Alignment View エンティティの位置から、入力点 pnt を WCS に変換して返す。

引数

ename : Tin VerticalAlignmentView のエンティティ。。
pnt : VerticalAlignmentView CSからworld CSに変換される点。

戻り値: WCS 2D点リスト、または NIL

メモ

tinav:fromwcspoint 関数も参照。

サンプル

(vl-load-tin)
(setq tin (tin:createTin '(0 0 0) '(100 100 100) 1000))
(setq points '((20 20)(60 20)(60 60)(20 60)))
(tin:addpoints tin '((10 80 5) (50 50 10) (10 10 2) (80 20 7) (70 60 3) (40 70 10) (25 25 6) (55 55 2) (75 45 5) ))

; 適当にアライメントビューを作ってから
(setq pnt (Tinav:fromwcspoint (car (entsel)) (getpoint)))
(70.0717672416233 8.53580343282815)
(command "_point" pnt)

(setq pnt (Tinav:towcspoint (car (entsel)) (getpoint)))
(command "_point" pnt)