Tinav:fromwcspoint

提供：GizmoLabs - だいたい CAD LISP なサイト
2023年6月19日 (月) 06:11時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{BCAD_LISP_CIVIL}} ; 構文 : (Tinav:fromwcspoint ''ename'' ''pnt'') ; 機能 : 入力点 pnt を WCS から ename VerticalAlignmentView エンティティ内の位置に変換して返す。 ; 引数 :* ename : Tin VerticalAlignmentView のエンティティ。。 :* pnt : VerticalAlignmentView CS に変換される WCS 点。 ; 戻り値 : 2次元点リスト（VerticalAlignmentView CS内）またはNIL ===メモ=== tinav:towcspoint 関数も参照…」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
BricsCADのLISP - Tin+Civil関数 - AutoLISP Home - AutoLISP 目次 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター
構文
(Tinav:fromwcspoint ename pnt)


機能
入力点 pnt を WCS から ename VerticalAlignmentView エンティティ内の位置に変換して返す。


引数
  • ename : Tin VerticalAlignmentView のエンティティ。。
  • pnt : VerticalAlignmentView CS に変換される WCS 点。


戻り値
2次元点リスト（VerticalAlignmentView CS内）またはNIL


メモ

tinav:towcspoint 関数も参照。


サンプル
(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)

関連事項

「https://wiki.gz-labs.net/index.php?title=Tinav:fromwcspoint&oldid=11122」から取得