获取多个面积之后，如何用最大的减去剩余所有的面积？

小万LISP · 发表于 2020-7-7 19:50

本帖最后由小万LISP 于 2020-7-7 19:52 编辑

已经获取了一些面积，想其中最大的一个面积，减去剩余所有的面积，接下来该如何操作呢？

(defun c:tt(/ ss S i)
(princ "\n 获取封闭图形的面积：\n")
(setq
ss (ssget '((0 . "*POLYLINE,REGION")) )
i (sslength ss)
)
(terpri)
(repeat i
(setq
i (1- i)
S (vla-get-Area (vlax-ename->vla-object (ssname ss i)))
)
(princ S)(terpri)
)
(princ)
)

yshf · 发表于 2020-7-7 19:50

(defun c:tt(/ ss S i)
  (princ "\n 获取封闭图形的面积：\n")
  (if (setq ss (ssget '((0 . "*POLYLINE,REGION"))))
   (progn
      (setq n (sslength ss))
   (setq i 0)
      (setq alb nil)
   (repeat n
            (setq s (vl-catch-all-apply 'vla-get-Area (list (vlax-ename->vla-object (ssname ss i)))))
      (If (not (vl-catch-all-error-p s))
   (progn
                  (princ (strcat "\nArea=" (rtos s)))
      (setq alb (cons s alb))
   )
            )
            (setq i (1+ i))
   )
   (If (/= alb nil)
      (progn
               (setq alb (vl-sort alb '>))
   (setq ds (car alb))
   (setq ds1 0)
   (foreach s (cdr alb)
         (setq ds1 (+ ds1 s))
   )
   (princ (strcat "\n 最大面积-其余所有面积=" (rtos ds 2 3) "-" (rtos ds1 2 3) "=" (rtos (- ds ds1) 2 3)))
            )
   )
   )
  )
  (princ)
)

灰石Jeremy · 发表于 2020-7-7 20:12

判断曲线的包含关系

qsmjcad · 发表于 2020-7-9 10:35

已收藏，谢谢

664571221 · 发表于 2020-8-28 09:45

yshf 发表于 2020-7-7 19:50
(defun c:tt(/ ss S i)
(princ "\n 获取封闭图形的面积：\n")
(if (setq ss (ssget '((0 . "*POLYLIN ...

你好这个可以修改下吗，可以改成米为单位，然后可以最后的结果插入cad

账号		自动登录	找回密码
密码			注册

[提问] 获取多个面积之后，如何用最大的减去剩余所有的面积？

最佳答案