这里有一个快速的解决方案,它跳过第一行,并根据您的输入更改其余行的行高。
不确定这是你想要的:-
- (defun c:test (/ a b c d i)
- (if (and (setq a (ssget '((0 . "*TABLE"))))
- (setq b (getdist "\nSpecify Row Height : "))
- )
- (repeat (setq i (sslength a))
- (setq c (vlax-ename->vla-object (ssname a (setq i (1- i)))))
- (setq d 1)
- (while (< 0 d (vla-get-rows c))
- (vla-setrowheight c d b)
- (setq d (1+ d))
- )
- )
- )
- (princ)
- )
|