[求助]：VBA下如何捕捉？

fjw_ok

vba的 getpoint 中有这样的例子
p2=thisdrawing.untiyl.getpoint(p1,prompt)
这个P1为相对点，那我如何能使选择P2时使用捕捉呢？
就是说在程序里控制，不在CAD里设。
比如说要垂直与一条线，这样也就限制了p2只是唯一的！
Sub Example_Brightness()
Dim pt1 As Variant
Dim obj1 As AcadEntity
Dim pt2 As Variant
Dim a As AcadText
pt1 = ThisDrawing.Utility.GetPoint(, "ggg")

ThisDrawing.ObjectSnapMode = True


pt2 = ThisDrawing.Utility.GetPoint(pt1, "ddd")

End Sub
这些常数如何设？thisdrawing.SetVariable 好象不行?
acOsnapCenter acOsnapEnd
acOsnapInsert acOsnapMid
acOsnapNear acOsnapNode
acOsnapPerpendicular acOsnapQuadrant
acOsnapTangent
另外14中有的关于常数的帮助在2002中好象没有？

efan2000

在获取点之前用ThisDrawing.SetVariable "OSMODE",Value设置成你要捕捉的类型就可以使用了。

2. 
   
3.   [FONT=courier new]
   
4. Dim om As Variant
   
5. om = ThisDrawing.GetVariable("OSMODE")
   
6. ThisDrawing.SetVariable "OSMODE", 1
   
7. pt2 = ThisDrawing.Utility.GetPoint(pt1, "ddd")
   
8. ThisDrawing.SetVariable "OSMODE", om
   
9.   [/FONT]
   

<br />   [FONT=courier new]<br /> Dim om As Variant<br /> om = ThisDrawing.GetVariable("OSMODE")<br /> ThisDrawing.SetVariable "OSMODE", 1<br /> pt2 = ThisDrawing.Utility.GetPoint(pt1, "ddd")<br /> ThisDrawing.SetVariable "OSMODE", om<br />   [/FONT]<br />

fjw_ok

谢谢提醒，斑竹！