Polyline between last and next first point
My answer is start again I would build this as a complete routine draw elevation Xbox's len,wid spacing then draw section all in one go. Other comment Chatgp has a long way to go.
There is a few examples of doing repeat shapes with a spacing. Try this one. Save Multi getvals to a support path so can be autoloaded. press cancel or set gap to 0 to exit repeat.
; draw a rectang and put X in it
; added a repeat function
; By AlanH May 2023
; cancel is set by multi getvals to 1 when Cancel is pressed.
; ans nil is cancel button presed.
(defun c:xbox ( / cancel)
(setq doagain 0)
(setq len 500 ht 1000 gap 3000)
(setq pt1 (getpoint "\nPick lower left point "))
(if (not AH:getvalsm)(load "Multi Getvals.lsp"))
(while (= doagain 0)
(setq ans (AH:getvalsm (list "Enter values " "Length " 5 4 (rtos len 2 0) "Height " 5 4 (rtos ht 2 0) "Gap " 5 4 (rtos gap 2 0) )))
(if (= ans nil)
(princ)
(setq len (atof (nth 0 ans))
Ht (atof (nth 1 ans))
Gap (atof (nth 2 ans))
)
)
(if (or (= gap 0)(= ans nil))
(setq doagain 1)
(progn
(command "rectang" pt1 (mapcar '+ pt1 (list len ht 0.0)))
(command "line" pt1 (mapcar '+ pt1 (list len ht 0.0)) "")
(command "line" (mapcar '+ pt1 (list 0.0 ht 0.0)) (mapcar '+ pt1 (list len 0.0 0.0)) "")
(setq pt1 (mapcar '+ pt1 (list (+ gap len) 0.0 0.0)))
)
)
)
(princ)
)
(c:xbox)
Happy to discuss doing more. PM me.
Another step forward. Try this make sure you have multi getvals.lsp in a support path or add path to the load.
Will draw the boxes with a X any size and gap to next, then draw slab section line. Need to talk more about rules for reo as what if want overlap to go left not right, next step. Dims required ?
; draw a rectang and put X in it
; added a repeat function
; By AlanH May 2023
; added a cross section as pline
; cancel button presed ans is nil.
(defun c:xbox ( / pt1 pt2 doagain lst lst2 ans len ht gap depth )
(defun LWPoly (lst cls)
(entmakex (append (list (cons 0 "LWPOLYLINE")
(cons 100 "AcDbEntity")
(cons 100 "AcDbPolyline")
(cons 90 (length lst))
(cons 70 cls))
(mapcar (function (lambda (p) (cons 10 p))) lst))
)
)
(command "-layer" "m" "BOX" "c" 2 "")
(setq pt1 (getpoint "\nPick lower left point "))
(if (not AH:getvalsm)(load "Multi Getvals.lsp"))
(setq depth 450) ; change to a getreal
(setq doagain 0)
(setq lst '())
(setq len 500 ht 1000 gap 3000)
(while (= doagain 0)
(setq ans (AH:getvalsm (list "Enter values " "Length " 5 4 (rtos len 2 0) "Height " 5 4 (rtos ht 2 0) "Gap " 5 4 (rtos gap 2 0) )))
(if (= ans nil)
(princ)
(setq len (atof (nth 0 ans)) Ht (atof (nth 1 ans)) Gap (atof (nth 2 ans)))
)
(if (or (= gap 0)(= ans nil))
(setq doagain 1)
(progn
(setq pt2 (mapcar '+ pt1 (list len ht 0.0)))
(command "rectang" pt1 pt2 )
(command "line" pt1 (mapcar '+ pt1 (list len ht 0.0)) "")
(command "line" (mapcar '+ pt1 (list 0.0 ht 0.0)) (mapcar '+ pt1 (list len 0.0 0.0)) "")
(setq pt2 (mapcar '+ pt1 (list len 0.0 0.0)))
(setq lst (cons pt1 lst))
(setq lst (cons pt2 lst))
(setq pt1 (mapcar '+ pt1 (list (+ gap len) 0.0 0.0)))
)
)
)
(setq lst (reverse lst))
(setq lst2 '())
(setq x 0)
(repeat (/ (length lst) 2)
(setq lst2 (cons (mapcar '+ (nth x lst) (list 0.0 (+ depth 2000) 0.0)) lst2))
(setq lst2 (cons (mapcar '+ (nth x lst) (list 0.0 2000 0.0)) lst2))
(setq lst2 (cons (mapcar '+ (nth (+ x 1) lst) (list 0.0 2000 0.0)) lst2))
(setq lst2 (cons (mapcar '+ (nth (+ x 1) lst) (list 0.0 (+ depth 2000) 0.0)) lst2))
(setq x (+ x 2))
)
(setq lst2 (reverse lst2))
(lwpoly lst2 0)
(princ)
)
(c:xbox)
