剖面线问题

yingxunxue

＂在求边界之前做块的试插入＂,如何做呀，能不能提供具体的程序，



谢谢


能具体的教我吗？

yingxunxue

lzh741206发表于2004-5-18 22:37:00Sub Test()       Dim pMax As Variant       Dim pnt(2) As Double, dot(2) As Double       Dim pBlock As AcadBlock, pObj As Acad...

1. 请问-boundary求块的边界时，指定的点是不是任意，可以取在不相交的边界点吗？

复制代码

1. 上面这个程序 Set pEntity(0) = ThisDrawing.ModelSpace(ThisDrawing.ModelSpace.Count - 1)中count为什么显示２（明明只是一个块）

复制代码

雪山飞狐_lzh

ThisDrawing.ModelSpace(ThisDrawing.ModelSpace.Count - 1)是取模型空间的最后一个实体，即刚刚生成的边界


指定的点必须在想求的边界内

sjsfsdrgy

引用lzh741206:两部分剖面线的方向,生成两个HatchObject . 你的意思是不是VB默认生成两个HatchObject ，剖面线方向自动相反。

雪山飞狐_lzh

晕，VBA怎么可能默认生成两个HatchObject ，要你自己编程实现

sjsfsdrgy

今天我想了一个方法你看看行吗?


用SSETOBJ选择集,PICKEDOBJS选择实体,但我不知道怎么不选择的边界设置为OUTERLOOP

yingxunxue

[CODE][/CODE]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
         这是我根据上面的提示写的用于填充的一个程序,只是我需要的是确定填充边界内的一个点,也就是说基本上是定出那个点,问有没有好的办法通过计算

雪山飞狐_lzh

程序总要有输入吧，没有点你按什么判断填充边界？

yingxunxue

lzh741206发表于2004-5-26 20:35:00程序总要有输入吧，没有点你按什么判断填充边界？

是这样的:我先知道那个边界的存在,然后大体估计边界的点 你在上面的写的那个程序中,可以通过句柄来返回对象吗? 怎么实现?望指教 先谢了

sjsfsdrgy