乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 160|回复： 9

如何画出闭合的多线后就显示闭合部分的面积

[复制链接]
jsxygshh

6

主题

34

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
58
发表于 2014-2-10 23:10:00 | 显示全部楼层 |阅读模式
如题，请大家给予指点，深表感谢
Sub GetArea()
    Dim sjx As AcadSelectionSet, obj As AcadEntity
    On Error Resume Next
        ThisDrawing.SendCommand "_pline" & vbCr
        Set sjx = ThisDrawing.SelectionSets.Add("ff1")
        sjx.Select acSelectionSetLast
        Set obj = sjx.Item(0)
        MsgBox obj.Area / 1000000
    sjx.Delete
End Sub
回复

使用道具 举报

vbcad

13

主题

59

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
111
发表于 2014-2-11 12:22:00 | 显示全部楼层
多段线有面积特性，直接可以得到的。
将On Error Resume Next删除，看看问题出在哪儿。
建议在调试程序时暂时不用On Error Resume Next
回复

使用道具 举报

jsxygshh

6

主题

34

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
58
发表于 2014-2-11 17:47:00 | 显示全部楼层

这段代码可以得到闭合多线所围成的面积，但不能同步执行，只能在执行第二次时显示前一次所画的封闭面积；不知如何调整代码，每次画完多线后就得出面积
回复

使用道具 举报

vbcad

13

主题

59

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
111
发表于 2014-2-11 18:20:00 | 显示全部楼层
将ThisDrawing.SendCommand "_pline" & vbCr删除。
在图纸中画多短线，然后执行这个代码，试试看。
回复

使用道具 举报

vbcad

13

主题

59

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
111
发表于 2014-2-12 11:06:00 | 显示全部楼层
今天测试了一下你的代码，完全正常。
画完后即可显示面积，不是你说的下一次才显示上一次的面积
回复

使用道具 举报

jsxygshh

6

主题

34

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
58
发表于 2014-2-14 06:26:00 | 显示全部楼层

我的测试结果是只能显示前一次所画的面积，不能显示刚刚完成图形的面积。
回复

使用道具 举报

jsxygshh

6

主题

34

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
58
发表于 2014-2-28 10:02:00 | 显示全部楼层
请大家给予帮助
回复

使用道具 举报

vbcad

13

主题

59

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
111
发表于 2014-3-4 12:43:00 | 显示全部楼层
你的代码是正常的，附件中的EXE是用你的子程序编译成的，源代码也在，请自己试试看。

rnzilbr3h1i.JPG

rnzilbr3h1i.JPG

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:djsbmmerftn.rar 
下载次数:0  文件大小:5.54 KB  售价:2银币 [记录]
下载权限: 不限 以上或 Vip会员   [开通Vip]   [签到领银币]  [免费赚银币]

回复

使用道具 举报

蟋蟀的帅

0

主题

3

帖子

2

银币

初来乍到

Rank: 1

铜币
3
发表于 2014-4-15 10:14:00 | 显示全部楼层
这个我也测试了一下，楼上的是VB编译的代码确实正常，楼主所说的是在CAD立面的VBA代码，确实也不正常。
回复

使用道具 举报

jsxygshh

6

主题

34

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
58
发表于 2014-4-19 07:45:00 | 显示全部楼层
另外测试了，如果超过8个边就会出现错误
回复

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-4-20 18:05 , Processed in 3.744571 second(s), 77 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表