Select Points<Exit>Specify opposite corner: 46320 found
Select Points<Exit>
Collection point...
Points collected: 46320, time taken: 0.00 seconds.
Generate triangulation...
Generation of triangulation network completed, time taken: 5.69 seconds.
FUNCTION:
(xdrx_points_Delaunay pts [t])
Parameter T, draw directly, otherwise return to point list
(if (setq ss
(xdrx
-ssget "\nSelect Points<Exit>" '
((0 .
"point")))) (xdrx-runtime t)
(xdrx
-prompt "\nCollection point...") (setq pts
(xdrx
-getpropertyvalue ss
"position") )
(xdrx
-prompt (xdrx
-string
-format
"\nPoints collected: %d, time taken: %.2f seconds." (length pts
) ti
)) (xdrx
-prompt "\nGenerate triangulation...") (xdrx-runtime t)
(xdrx_points_Delaunay pts t)
(xdrx
-prompt (xdrx
-string
-format
"\nGeneration of triangulation network completed, time taken: %.2f seconds." ti
)) )
)
)