Hi Adam,
The app which uses Lisp is called SolidDesigner (SD) or OneSpace Designer.
It's a 3D CAD package and combining SD program commands and lisp for customization.
I try to make a grid sequence for punchtools but got stuck on the last part.
In the (SD) SHA-PUNCH command i need a list of XY-points for positioning the tool.
When i fill out 10,10 20,20 or so without quotes instead of *punch-pnt* the punches are made without any problem.
This list without quotes is the SD syntax and that's why i'm stuck with this syntax.
Anyway, here's part of the original script so far.
;; do the punch sequence
(setf *punch-grid* (list))
(dotimes (vert_punch (ceiling possible_y))
(dotimes (horiz_punch (ceiling possible_x))
(setf *punch-pnt* (make-gpnt2d :x x_start :y y_start))
;(display *punch-pnt*)
(SHA_PUNCH :tool_type
:TOOL_TYPE_KEY '(:TOOL_TYPE "sqr_sharp")
:TOOL_KEY '(:LENGTH 10.0)
*punch-pnt*
)
(setf x_start (+ x_start tool space))
)
(setf x_start x_base)
(setf y_start (- y_start tool space))
)
Hope this clears things,
Regards,
Henk