civil:pgroups-get-uniquepointnumber

(civil:pgroups-get-uniquepointnumber)

Returns a unique, yet-unused point number.

Arguments	none
Return	integer > 0, or NIL in case of an error
Example	(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
Remarks