这是引用自定义函数的问题吧- (defun c:a1 ( / ss )
- (setq ss (ssget));用这个选择集
- (setq err (vl-catch-all-apply 'hs-autoDim (list SS)))
- )
- (defun hs-autoDim (ss / maxbox)
- (setq maxbox (hs-maxbox ss))
- )
- (defun hs-maxbox (ss / lst ll ur s1 p minx miny maxx maxy x)
- (setq lst (HS-SS->LIST ss))
- )
- (defun hs-ss->list (ss / n i lst s1)
- (setq n (sslength ss))
- (print n)
- (princ)
- )
|