0 Members and 1 Guest are viewing this topic.
(defun c:cnt ( / ss ent enta ptx pty ptz) ;; (vl-load-com)(setvar 'cmdecho 0) (setq ss (ssget "_+.:E:S" '((0 . "3DSOLID,REGION")))) (setq ent (ssname ss 0)) (setq enta (vlax-ename->vla-object ent)) (setq cent (vlax-safearray->list (vlax-variant-value (vla-get-Centroid enta)))) ;; coords at CMD [regions not wcs/0, error..] (setq ptx (rtos (car cent) 2 5) pty (rtos (cadr cent) 2 5) ptz (if (/= (caddr cent) nil) (rtos (caddr cent) 2 5) (setq ptz "Not WCS")) )(princ (strcat "\n Centroid: " ptx "," pty "," ptz)) (vl-cmdf "point" cent) (setvar 'cmdecho 1) (princ))