Is there a more efficient way to write the following code?
Thanks in advance for any suggestions.
(mapcar
(function
(lambda (l) (vl-catch-all-apply 'vla-addline l))
)
(list
(list (vla-get-paperspace (acdoc))
(vlax-3d-point '(0.5 1.0 0.0))
(vlax-3d-point '(8.0 1.0 0.0))
)
(list (vla-get-paperspace (acdoc))
(vlax-3d-point '(0.0 0.0 0.0))
(vlax-3d-point '(8.5 0.0 0.0))
)
(list (vla-get-paperspace (acdoc))
(vlax-3d-point '(0.0 11.0 0.0))
(vlax-3d-point '(0.0 0.0 0.0))
)
(list (vla-get-paperspace (acdoc))
(vlax-3d-point '(0.5 10.5 0.0))
(vlax-3d-point '(0.5 1.0 0.0))
)
(list (vla-get-paperspace (acdoc))
(vlax-3d-point '(8.0 1.0 0.0))
(vlax-3d-point '(8.0 10.5 0.0))
)
(list (vla-get-paperspace (acdoc))
(vlax-3d-point '(8.5 0.0 0.0))
(vlax-3d-point '(8.5 11.0 0.0))
)
(list (vla-get-paperspace (acdoc))
(vlax-3d-point '(0.5 10.5 0.0))
(vlax-3d-point '(8.0 10.5 0.0))
)
(list (vla-get-paperspace (acdoc))
(vlax-3d-point '(0.0 11.0 0.0))
(vlax-3d-point '(8.5 11.0 0.0))
)
)
)