oぃ夢ゞ舞風雲ヤ 发表于 2013-8-12 14:16

大家有什么算面积比较快捷的方法？？？

大家有什么算面积比较快捷的方法？？？
我是先bo然后aa空格o空格，但感觉还是不太方便？

oぃ夢ゞ舞風雲ヤ 发表于 2013-8-12 14:16

求帮助？？？

oぃ夢ゞ舞風雲ヤ 发表于 2013-8-12 14:17

求大神指点

oぃ夢ゞ舞風雲ヤ 发表于 2013-8-12 14:17

有木有大侠来指点下？？？

xhq1954425 发表于 2013-8-12 15:07

用程序！

oぃ夢ゞ舞風雲ヤ 发表于 2013-8-12 15:20

用程序！
xhq1954425 发表于 2013-8-12 15:07 http://www.askcad.com/bbs/images/common/back.gif
？？？什么程序？？

oぃ夢ゞ舞風雲ヤ 发表于 2013-8-12 15:20

可不可以 在具体点？

oぃ夢ゞ舞風雲ヤ 发表于 2013-8-12 17:50

论坛人怎么这么少？？？来个大虾讲解下！！！

zhjl1212 发表于 2013-8-12 20:53

li试一下

zhjl1212 发表于 2013-8-12 20:54

前提是要是一个闭合的图形

xhq1954425 发表于 2013-8-12 23:00

回复 6# oぃ夢ゞ舞風雲ヤ


现编一个，你只要左键依次点选封闭区域内部点后回车就出结果了：
(defun c:MJ ( / ENT ES I OBJ P0 S SS)
(vl-load-com)
(command "vscurrent" "C")
(princ "\n ****本程序为求多个封闭区域的面积之和****")
(setq ss (ssadd))
(while (setq p0 (getpoint"\n拾封闭区域取内部点:<退出>"))
         (COMMAND "._BOUNDARY" "A" "O" "R" "" p0 "")
         (ssadd (entlast) ss)
　)　
(setq        i 0 ES 0)
(repeat (sslength ss)
    (setq ent (ssname ss i))
    (setq obj (vlax-ename->vla-object ent))
    (setq s (vla-get-Area obj))
    (setq es (+ es s))
    (setq i (1+ i))
)
(command "erase" (ssget "X" '((0 . "REGION"))) "")
(command "vscurrent" "2")
(princ (strcat "总面积为：" (rtos es)))
(princ)
)

oぃ夢ゞ舞風雲ヤ 发表于 2013-8-14 14:49

前提是要是一个闭合的图形
zhjl1212 发表于 2013-8-12 20:54 http://www.askcad.com/bbs/images/common/back.gif


    试了下感觉和aa没啥区别吖？？？只不过少了几个步骤

oぃ夢ゞ舞風雲ヤ 发表于 2013-8-14 14:50

回复oぃ夢ゞ舞風雲ヤ


现编一个，你只要左键依次点选封闭区域内部点后回车就出结果了：
(defun c: ...
xhq1954425 发表于 2013-8-12 23:00 http://www.askcad.com/bbs/images/common/back.gif


    这个程序要怎么用？？？

gzhaj_813 发表于 2013-8-14 16:38

比较快的方法是用PL线圈圈，看属性

oぃ夢ゞ舞風雲ヤ 发表于 2013-8-14 16:44

比较快的方法是用PL线圈圈，看属性
gzhaj_813 发表于 2013-8-14 16:38 http://www.askcad.com/bbs/images/common/back.gif
比如这种图，这得圈到啥时候吖
页: [1] 2
查看完整版本: 大家有什么算面积比较快捷的方法？？？