Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 02/18/2023 in all areas

  1. hosneyalaa
    hi try (defun C:TEXTHEIGHT (/ SS TEXTHEIGHT) (vl-load-com) (if (setq ss (ssget '((0 . "DIMENSION")))) (foreach dim (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))) (setq TextHeight (cons (vla-Get-TextHeight (vlax-ename->vla-object dim) ) TextHeight )) ) ; foreach ) ; if (princ ) ) ; defun
    1 point
×
×
  • Create New...