Hey all you Lisp Wizards!
Ok... so here's what I need.... I need a lisp routine that will allow me to select multiple 3D Solid extrusions and allow me to list the "Height" data from the extrusion to build a BOM of sorts. Even an overall or cumulative length would be helpful! All of the extrusions are the same. I have been modifying some code I found online, but have reached the limits of my Lisp knowledge (which took about 5 minutes!) Here is the code as it currently stands.
Code:
(defun C:BOM (/ intCount entSelection objSelection ssSelections )
(setq solent (entsel "\nSelect solid : "))
(setq slist (entget (car solent)))
(setq extvector (cdr (assoc 10
(entget (cdr (assoc 360
(entget (cdr (assoc 360
(entget (cdr (assoc 350 slist))))))))))))
(setq extHeight (sqrt (apply '+(mapcar '* extvector extvector))))
(alert (vl-princ-to-string extHeight))
)
)
)
(princ)
)
Any help would be greatly appreciated!!!
Regards,
MT