[求助]面积计算LSP

ycy970837 · 发表于 2010-7-22 10:57:00

要求框选图形，能自动计算出图示阴影区域面积。请各位大侠出手相助。谢谢。

Andyhon · 发表于 2010-7-22 11:09:00

其内半圆未闭合是常态吗?

若其内皆是闭合图形,编程简易多多

ycy970837 · 发表于 2010-7-22 11:17:00

Andyhon发表于2010-7-22 11:09:00其内半圆未闭合是常态吗? 若其内皆是闭合图形,编程简易多多

内部全部是闭合图形。麻烦您给帮忙编个程序。谢谢啊。

Andyhon · 发表于 2010-7-22 12:08:00

;;; by Michael Puckett
(defun cdrs (key lst / pair rtn)
   (while (setq pair (assoc key lst))
     (setq lst (cdr (member pair lst))
           rtn (cons (cdr pair) rtn)
   ) )
   ;; (reverse rtn)
   RTN
)

(defun Oarea (x)
(vla-get-area (vlax-ename->vla-object x))
)

;;; For test only
(vl-load-com)
(defun C:AreaQ ()
   (setq ee (entsel "\n请选取外框: ")
         ee (car ee)
        pts (cdrs 10 (entget ee))
         ss (ssget "WP" pts)
   )

   (print
     (-
       (Oarea ee)
       ;; (apply '+ (mapcar 'Oarea (sslist ss)))
       (apply '+ (mapcar 'Oarea (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))))
     )
   )
   (princ)
)

=================================
;; 依所附文件删去半圆调试

Command: areaq

请选取外框:
90300.0

---------------------

请先用 Pedit 处理闭合

ycy970837 · 发表于 2010-7-22 14:02:00

Andyhon发表于2010-7-22 12:08:00;;; by Michael Puckett(defun cdrs (key lst / pair rtn) (while (setq pair (assoc key lst)) (setq lst (cdr (member pair lst)) &n

按您的程序运行，OK，您非常历害。不过有二个地方看看能不能修改一下，1、如果外框里面没有图形和外框是圆形时，运行程序时就显示参数错误，能不能改成只有一个外框和外框是圆时也能计算出面积？2、计算结果能不能改成对话框窗口弹出？谢谢。

Andyhon · 发表于 2010-7-22 15:12:00

代码已更新如附件

请将所得利益回馈于灾民

ycy970837 · 发表于 2010-7-22 15:56:00

Andyhon发表于2010-7-22 15:12:00代码已更新如附件请将所得利益回馈于灾民 areaq.rar 下载需付 0 个明经币文件大小:.65 KB，下载次数:2 请使用WinRAR软件打开RAR压缩文件。

衷心的说一句，非常感谢！

Andyhon · 发表于 2010-7-28 15:22:00

改这一段

(setq ss (ssget "WP" pts))
(ssdel ee ss)
(setq str
(rtos
(-
(Oarea ee)
;; (apply '+ (mapcar 'Oarea (sslist ss)))
(apply '+ (mapcar 'Oarea (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))))
)
2
(getvar "Luprec")
) )
(alert str)
(dos_clipboard Str) ; 将结果复制到剪贴板中...
(princ)

相映的 Doslib 下载
http://www.en.na.mcneel.com/doslib.htm

树点 · 发表于 2010-9-22 00:31:00

不错，很好

124350440 · 发表于 2010-9-25 15:23:00

学习了，非常感谢

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

[求助]面积计算LSP

本帖子中包含更多资源

本帖子中包含更多资源