17
68
5
初露锋芒
使用道具 举报
13
396
后起之秀
Sub test() Dim obj As AcadLWPolyline Dim pt, num As Variant ThisDrawing.Utility.GetEntity obj, pt, "选多段线:" num = obj.Coordinates MsgBox (UBound(num) + 1) / 2 End Sub
本版积分规则 发表回复 回帖后跳转到最后一页
微信公众平台
扫描访问手机版
点击图片下载手机App
|关于我们|小黑屋|乐筑天下 繁体中文
GMT+8, 2025-7-7 09:29 , Processed in 1.307375 second(s), 57 queries .
© 2020-2025 乐筑天下
在线时间:10:00-17:00
暂无
扫一扫,关注我们
帮助中心
关于我们
下载APP客户端