#1
|
|||
|
|||
Lisp - create spline
Is it possible to create spline using lisp code? Actually, later i will be reading in the point from a text file & draw the spline.
I create the following code but it isn't work! Code:
(sd-defdialog 'draw_spline :dialog-title "Draw Spline" :variables '((POINT_LIST) ;internal non displayed variable (NEW_POINT ;internal input variable :value-type :point-2d :toggle-type :invisible :prompt-text "Pick a point" :after-input (push-point new_point)) ) :local-functions '((PUSH-POINT (a-new-point) (setq POINT_LIST (cons a-new-point POINT_LIST)) )) :prompt-variable 'new_point :ok-action '(progn (print POINT_LIST) (sd-call-cmds (BSPLINE_INT POINT_LIST complete)) ) ); sd-defdialog
__________________
Lum |
#2
|
|||
|
|||
Hello Lum,
There are two things you have to change. First: remove the 'complete' from the command sequence. sd-call-cmds implies that you want positive termination of the action. Second: the way you pass the parameter to bspline_int is wrong. Type into command line Code:
(trace bspline_int) Code:
(sd-call-cmds (apply 'BSPLINE_INT POINT_LIST)) Dorothea |
#3
|
|||
|
|||
Hi Dorothea,
Thanks a lot!
__________________
Lum |
Currently Active Users Viewing This Thread: 1 (0 members and 1 guests) | |
Thread Tools | Search this Thread |
Display Modes | Rate This Thread |
|
|