[求助]帮忙调一下程序，各斑竹。

runkeji

(defun maxarea_sub(xuanzeji /)
  (setq num (sslength xuanzeji))
  (setq n 0)
  (setq name1 (ssname xuanzeji n))
  (setq area1 (vla-get-area(vlax-ename->vla-object (ssname xuanzeji n))))
  (while (/= (- num n) 0)
    (setq n (1+ n))
    (princ n)
    (setq name2 (ssname xuanzeji n))
    (setq area2 (vla-get-area(vlax-ename->vla-object name2)))
    (if (< area1 area2)
       (progn
        (setq name1 name2)
        (setq area1 area2)
        )
    )
  )
  ;;;;;;用最大的矩形的面域逐个的减去小的矩形的面域取得差集
  (setq maxname name1)
  (setq j 0);;;利用循环逐次求的差集
  (repeat num
    (setq sub (ssname xuanzeji j))
    (setq j (1+ j))
    (if (not(equal sub  maxname))
      (command "subtradt" maxname "" sub "")
      )
    )
程序大提思想： 从选择集中选择最大的面域。
                     用最大的面域减去其余的小面域。

程序调试前首先创建面域，要求大的面域要包含小的面域。

runkeji

各位帮忙呀

runkeji

希望大家帮忙修改程序。