申明:内容来自用户上传,著作权归原作者所有,如涉及侵权问题,请点击此处联系,我们将及时处理!
0人已收藏
0人已打赏
免费0人已点赞
分享
CAD下载及教程
返回版块52.08 万条内容 · 665 人订阅
阅读下一篇
VBA实例:把当前图纸中符合条件的圆替换为块’把当前图纸中符合条件的圆替换为块(注:块在当前图纸中已存在)Public Sub ChangeEntity(ByVal MinRadius As Double, ByVal MaxRadius As Double, _ ByVal BlockName As Variant, ByVal AutoSelect As Boolean) On Error Resume Next Dim ssobject As AcadCircle
回帖成功
经验值 +10
全部回复(1 )
只看楼主 我来说两句 抢板凳回复 举报