Took the 'David Bethel' and attempted to get it to finish by creating a block but not able [failed]. Here's my attempt with xed block part.. Makes a solid which is OK.
Oops.. seems line 25 unecessary as item is created before with entmake solid.
(defun c:pi (/ )
(defun SetBlk (n)
(and (not (tblsearch "BLOCK" n))
(eval (list (read n)))))
(defun arr ( / )
(vl-load-com)
; (entmake '((0 . "BLOCK")
; (8 . "0") ;; assigned layer
; (2 . "ARR") ;; block created
; (10 0.0 0.0 0.0) ; base point
; ))
(entmake '((0 . "SOLID")(8 . "0")
(10 0.0 -0.09 0.0)
(11 0.54 0.0 0.0)
(12 0.0 0.09 0.0)
(13 0.0 -0.09 0.0)))
)
(entmake '((0 . "SEQEND")(8 . "0")))
;(entmake '((0 . "ENDBLK")(8 . "0")))
(SetBlk "ARR") ;; ? confirm/safe block isn't [L-2]
[color=red];;(ARR) ;; call the entity to build[/color] causes duplicate
(command "move" "L" "" "0,0,0" "\\" "rotate" "L" "" (getvar 'lastpoint) "\\")
(princ)
)