[求助]：用sendcommaon执行measure时的问题

misters

用sendcommaon执行measure时，要求选择对象，怎样才能自动选择所有要定点分矩的对象呢？我想把它放在sset选择集中，或是其的办法都行，只要能自动选择就可以，分矩成功后，再遍历所成生的点。

这段代码主要是选择要分矩的对象：
Set sset = acadApp.ActiveDocument.SelectionSets.Add("test")
sset.Select acSelectionSetAll
/////这句：
doc1.SendCommand "measure" & vbCr & "select" & vbCr & "all" & vbCr & Object_Step & vbCr

sset.Erase
sset.Select acSelectionSetAll

For Each obj In doc1.ModelSpace
xyz = obj.Coordinates
conn.Execute "insert into object_points (tablename,objectid,xmgl_id,chamfer_id,pointx,pointy) values ('circle'," & db("id") & "," & NowXmgl_id & "," & ids & "," & Round(xyz(0), 4) & "," & Round(xyz(1), 4) & ")"
Next

zcmjw

方法独特！学习中...

雪山飞狐(lzh)

把"all" 改为"(handent """ & obj.handle & """)"

misters

doc1.SendCommand "measure" & vbCr & "(handent " & "," & circleObj.handle & ")" & vbCr & Object_Step & vbCr
不管带不带select都出下面的错误
命令: measure
选择要定距等分的对象: (handent ,2D)
; 错误: 参数类型错误: stringp nil
选择要定距等分的对象: .2
*无效*

雪山飞狐(lzh)

doc1.SendCommand "measure" & vbCr & "(handent """ & circleObj.handle & """)"  & vbCr & Object_Step & vbCr