＂在求边界之前做块的试插入＂,如何做呀，能不能提供具体的程序，
谢谢
能具体的教我吗？
lzh741206发表于2004-5-18 22:37:00static/image/common/back.gifSub Test() Dim pMax As Variant Dim pnt(2) As Double, dot(2) As Double Dim pBlock As AcadBlock, pObj As Acad...请问-boundary求块的边界时，指定的点是不是任意，可以取在不相交的边界点吗？上面这个程序 Set pEntity(0) = ThisDrawing.ModelSpace(ThisDrawing.ModelSpace.Count - 1)中count为什么显示２（明明只是一个块）
ThisDrawing.ModelSpace(ThisDrawing.ModelSpace.Count - 1)是取模型空间的最后一个实体，即刚刚生成的边界
指定的点必须在想求的边界内
引用lzh741206:两部分剖面线的方向,生成两个HatchObject .
你的意思是不是VB默认生成两个HatchObject ，剖面线方向自动相反。<BR>
晕，VBA怎么可能默认生成两个HatchObject ，要你自己编程实现
今天我想了一个方法你看看行吗?
用SSETOBJ选择集,PICKEDOBJS选择实体,但我不知道怎么不选择的边界设置为OUTERLOOP
Dim pmax0(1) As Double
' -50可以调整，取为在填充边界的任意点（必须在边界内）
pmax0(0) = CInt(zsp3(0) - (yk / 2 + 20) - 50): pmax0(1) = CInt(zsp(1) - yg / 2 - 50) ''''''''''''''''''''''''''''''''''''''''''''''''''''需要调整改变
acadDoc.SendCommand "-Boundary" & vbCr & pmax0(0) & "," & pmax0(1) & vbCr & vbCr
Set pEntity(0) = acadDoc.ModelSpace(acadDoc.ModelSpace.count - 1)
Set pHatch = acadDoc.ModelSpace.AddHatch(0, "Ansi31", True)
pHatch.AppendOuterLoop (pEntity)
pHatch.Color = acYellow
pHatch.PatternSpace = pHatch.PatternSpace + 8 '''''''''''''''''''''''''''''''''''''比例系数调为9
pHatch.Evaluate acadDoc.Regen True
这是我根据上面的提示写的用于填充的一个程序,只是我需要的是确定填充边界内的一个点,也就是说基本上是定出那个点,问有没有好的办法通过计算
程序总要有输入吧，没有点你按什么判断填充边界？
lzh741206发表于2004-5-26 20:35:00static/image/common/back.gif程序总要有输入吧，没有点你按什么判断填充边界？
<BR>是这样的:我先知道那个边界的存在,然后大体估计边界的点
你在上面的写的那个程序中,可以通过句柄来返回对象吗?
怎么实现?望指教
先谢了