如何创建临时点??

mikewolf2k

如题.
在vb中有时要选两个点,用两次getpoint,如果能在选完第一点后,在第一点处创建一个临时点,那选第二点时就方便了.

myfreemind

你的意思创建一个临时点，选择第二点是什么意思？要做什么用？

efan2000

是要实现橡皮筋的效果吧。
Dim Pt1 As Variant
Dim Pt2 As Variant
Pt1 = ThisDrawing.Utility.GetPoint("指定第一点: ")
Pt2 = ThisDrawing.Utility.GetPoint(Pt1, "指定下一点: ")
其中，指定GetPoint的第一个参数为上一点的坐标就可以实现了。

mikewolf2k

是这样的,我需要选择2个点,这两个点需在一根线上(垂直或水平),如果选择完第一个点后,在第一个点上设置一个临时点(temporary track point),这样第二个点就好选了.

mikewolf2k

再顶顶,难道没人用过此功能吗?

myfreemind

你发张图上来，如果第一个点没有的话，第二个点就没有办法选了吗？

mikewolf2k

myfreemind发表于2004-1-1 17:12:00你发张图上来，如果第一个点没有的话，第二个点就没有办法选了吗？

用当然能用,只不过为了选择是方便一点而已,这跟图没关系.vba中有关于临时点的东西吗?

myfreemind

这样，你用GETPOINT获取了点后，就可以创建一个点
Dim pnt As Variant
Dim ent As AcadEntity
pnt = ThisDrawing.Utility.GetPoint(, "createpoint")

ThisDrawing.ModelSpace.AddPoint (pnt)

mikewolf2k

这样还是不大好,并不是真正的临时点,如果我想创建两个以上临时点呢?
vb到底能不能创建临时点?

efan2000

ACAD中没有临时点的概念，先创建，然后再删除。