Topic: lisp script for draw object (panels)

[suraj.jangam22]

I have attached herewith drafting flow for the drawing, i want script for the same process. please guide me please. i am new here & i have not much knowledge about LISP program.
ALSO PLEASE SEE BELOW I HAVE ATTACHED SCRIPT WHICH I HAVE WRITE FOR START.   

Code - Auto/Visual Lisp: [Select]

1. (defun c:panel ( / len wid pt1 pt2 pt3 pt4)
2. (setq pt1 (getpoint "\nPick lower left Corner"))
3. (setq Len (Getreal "\nEnter length"))
4. (setq wid (Getreal "\nWidth"))
5. (setq pt2 (polar Pt1 0.0 len))
6. (setq pt3 (polar pt2 (/ pi 2.0) wid))
7. (setq pt4 (polar pt3 pi len))
8. (command "pline" pt1 pt2 pt3 pt4 "c")
9. )
10. (C:panel)

EDIT (John): added code tags.

[suraj.jangam22]

see what i have started ............

Code - Auto/Visual Lisp: [Select]

1. (defun c:panel ( / len wid pt1 pt2 pt3 pt4)
2. (setq pt1 (getpoint "\nPick lower left Corner"))
3. (setq Len (Getreal "\nEnter length"))
4. (setq wid (Getreal "\nWidth"))
5. (setq pt2 (polar Pt1 0.0 len))
6. (setq pt3 (polar pt2 (/ pi 2.0) wid))
7. (setq pt4 (polar pt3 pi len))
8. (command "pline" pt1 pt2 pt3 pt4 "c")
9. (if lay (setvar 'CLAYER lay))
10.     (princ))
11. ; layers
12.       (command "_.LAYER" "_T" "White" "_M" "White" "_Color" 7 "White" "") ; layers
13.  
14. )
15. (C:panel)

EDIT (John): Added code tag.

[CAB]

When you use command you must manage the SNAPs

[CAB]

Attached is a very old routine that uses Command. You can learn from that.

[BIGAL]

Also posted here suggestions made.

https://www.cadtutor.net/forum/topic/68932-draw-panels-using-vba-or-excel/?tab=comments#comment-556745