CAD如何删除指定区域里的多边形、直线等 CAD如何删除指定区域里的多边形、直线等。已知围成区域的一组坐标,比如多边形,已知多边形的每个点的坐标,删除多边内的所有线段或多边形。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 '圈围区域点坐标数组Dim P(8) As DoubleP(0) = -100: P(1) = 300: P(2) = 0P(3) = 75: P(4) = -100: P(5) = 0P(6) = 500: P(7) = 300: P(8) = 0Dim SS As AcadSelectionSet, E As AcadEntity, Ft(4) As Integer, Fd(4) As Variant'定义选择集过滤器为"多段线","优化多段线"和"直线"Ft(0) = -4: Fd(0) = "<or"Ft(1) = 0: Fd(1) = "POLYLINE"Ft(2) = 0: Fd(2) = "LWPOLYLINE"Ft(3) = 0: Fd(3) = "LINE"Ft(4) = -4: Fd(4) = "or>"'创建选择集Set SS = ThisDrawing.SelectionSets.Add("SS")'按指定区域的对象类型圈选SS.SelectByPolygon acSelectionSetWindowPolygon, P, Ft, Fd'删除被选择的对象For Each E In SS E.DeleteNext'删除用过的选择集SS.Delete 深度优先搜索算法 On Error Goto 0 是什么意思? 怎么结贴 帮帮忙 inet和winsock的问题 要过年了,祝所有CSDN中程序员新年快乐,过去的2002年辛苦了。。。希望我女朋友的病能早日好起来,放分。。。 (万分火急)如何改写windows2000打印机的默认纸张 一个古怪问题,大求救!请各们高手帮帮忙。 vb 有前途吗,如今招聘软件开发人员的公司好像对vb程序员没多大兴趣,vb还能走多久? 呵呵~~好象没有人会这个问题~~~~!!!! vb中打印预览的问题 Excel VBA 调用 SQL 存储过程的多参数传递方法 VB如何执行Telnet命令(不出现命令提示符窗口)
Dim P(8) As Double
P(0) = -100: P(1) = 300: P(2) = 0
P(3) = 75: P(4) = -100: P(5) = 0
P(6) = 500: P(7) = 300: P(8) = 0Dim SS As AcadSelectionSet, E As AcadEntity, Ft(4) As Integer, Fd(4) As Variant
'定义选择集过滤器为"多段线","优化多段线"和"直线"
Ft(0) = -4: Fd(0) = "<or"
Ft(1) = 0: Fd(1) = "POLYLINE"
Ft(2) = 0: Fd(2) = "LWPOLYLINE"
Ft(3) = 0: Fd(3) = "LINE"
Ft(4) = -4: Fd(4) = "or>"
'创建选择集
Set SS = ThisDrawing.SelectionSets.Add("SS")
'按指定区域的对象类型圈选
SS.SelectByPolygon acSelectionSetWindowPolygon, P, Ft, Fd
'删除被选择的对象
For Each E In SS
E.Delete
Next
'删除用过的选择集
SS.Delete