According to user input parameters, and then calculate the coordinates, draw more lines, each input variables were not to come out, if the input coordinates can draw, why? Ask everybody a great god help have a look, thank you!

C: (defun JJGG ()
(setq kc (get int "\ n please enter long: \ n"))
(setq kk (get int "\ n please enter wide: \ n"))
(setq kg (get int "\ n please enter high: \ n"))
(setq gh (get int "please input thickness: \ n \ n"))
(setq kh (get int "\ n please input box thickness: \ n"))
(setq dh (get int "\ n please enter the plate thickness: \ n"))
(setq zc (get int "please input bending length: \ n \ n"))
(setq fj (get int "\ n please enter several points, if it is a horizontal two vertical two input 5: \ n"))

(setq kcd1 '(0, 0))
(setq kcd2 '0) (kc)
(setq kcd3 '(kc (0 (- kg (kh))))
(setq kcd4 '(zc) (- kc (0 (- kg (kh))))
(setq kcd5 '(zc) (- kc (0 (- + kg (zc) kh kh))))
(setq kcd6 '(zc (0 (- + kg (zc) kh kh))))
(setq kcd7 '(zc (0 (- kg (kh))))
(setq kcd8 '(0 (0 (- kg (kh))))
(setq kcd9 '(0, 0))
(the command "pline" kcd1 kcd2 kcd3 kcd4 kcd5 kcd6 kcd7 kcd8 kcd9 "")
(princ)
)

CodePudding user response:

The following is running show

Please enter the long:
800
Please enter the wide:
1200
Please enter the high:
100
Please enter the thickness:
5
Please enter the thickness of the box:
5
Please enter the plate thickness:
5
Please enter the bending length:
30
Please enter a few, if it is a horizontal two vertical two input 5:
2 pline
Specify the starting point:
The current line width of 0.0000
Specify the next point or circular arc (A)/half width/length (L)/(H) to give up (U)/width (W)] :
Command:
Command:
Command:
Command:
Command:
Command:
Command:
Command: JJGG
Unknown command "JJGG", press F1 to view help,
Command: