Civil:pgroups-get-uniquepointnumber

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(Civil:pgroups-uniquepointnumber )


機能
ユニークな、まだ使われていない点番号を返す。


引数
  • なし


戻り値
1以上の整数。エラーの場合は nil


サンプル
(vl-load-civil)
T
(setq res (civil:pgroups-set-lastusedpointnumber 100))
T
(setq res (civil:pgroups-get-lastusedpointnumber))
100
(setq res (civil:pgroups-get-uniquepointnumber))
100



関連事項