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

runkeji · 发表于 2003-9-24 10:44:00

(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 · 发表于 2003-9-24 17:13:00

各位帮忙呀

runkeji · 发表于 2003-9-24 18:29:00

希望大家帮忙修改程序。

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

发表回复

精选推荐