超链接（VBA）问题。。

Bryco · 发表于 2008-2-8 09:44:13

您好，
有一个超链接问题……程序i&#039；m目前正在做的是，将获取用户文本等，并在模型空间中插入一个预先制作的模型空间标记块，以指示所选布局指向的位置-它还应该向所选布局（标记块）添加一个超链接，以便用户可以跳转到该布局。
这一切都很好，只是超链接部分，我现在已经开始工作了。选中“超链接编辑器”后，无论何时手动将超链接添加到布局，要显示的路径、url和文本看起来都像它们应该显示的一样-即使在该绘图页的目标或视图上，它也会突出显示正确的布局，但不会跳转到布局，而是会打开一个指向绘图路径目录的Windows资源管理器窗口。
如果我打开超链接编辑器，正如我所说，一切看起来都很好，出于某种原因，如果我单击“确定”，然后再次尝试链接，但只有这样做，否则它只会打开explorer。下面是程序代码的摘录。有人可以看看有什么可能是错误的，或让我知道为什么链接赢得#039；t 100%工作[代码有什么想法吗
大家好，Paul basepointdesignzltd

Bryco · 发表于 2008-2-8 10:32:02

我没有#039；t搞乱了超链接，但看起来你可以用扩展数据做你想做的事
然后使用双击事件来检查blockref。2）检查扩展数据。如果是，则执行布局。

Bryco · 发表于 2008-2-8 10:55:24

嗨，我不知道；我不希望用户真的必须双击块才能使其工作，但我只希望它插入块（带有超链接）-没有混乱。这就是我添加BlockX的原因。更新代码以查看这是否可以准备块。所有内部帮助、在线信息和书籍都会告诉您如何添加基于web的URL，而不是在图形上添加布局。有什么想法吗

Bryco · 发表于 2008-2-9 12:24:05

虽然帮助在URL上是站不住脚的，但它确实提到了这一点，而不是使用布局，我对每个布局都做了一个纸面视图（我没有意识到有这样的事情）
；布局2“；被称为；2“；下面的代码将我直接带到布局2。超链接设置Hyp=HypS.Add（ThisDrawing.Name）
Hyp。URLNamedLocation=&quot；2“；

Bryco · 发表于 2008-2-9 19:12:11

嗨，太好了，谢谢。这至少澄清了一些事情-当我&#039；我回来工作了。不过有个简单的问题吗？布局是如何编号的？它们是按照您创建它们的顺序进行编号，还是按照它们从左到右的顺序&#039；是否在屏幕底部采用tab格式？我该如何正确编码才能找到布局图纸空间视图参考号
再次感谢，这让我们对这个问题有了更多的了解；

Bryco · 发表于 2008-2-10 11:09:13

布局具有反映实际选项卡顺序的taborder属性
然而，在运行时，无论如何，您都必须检查视图的所有布局
如果使用布局。名称；对于视图，应该有&#039；这不是问题。

Bryco · 发表于 2008-2-11 06:07:12

您好，
尝试了TabOrder属性，甚至在运行时检查布局等，但它仍然赢了&#039；t工作-使用您显示的代码……

copy

Set HypS = blockX.Hyperlinks
Set Hyp = HypS.Add(ThisDrawing.Name)
Hyp.URLNamedLocation = "2"

它比我的代码更远，即：路径字段和url不是&#039；t正确填写，目标地址未指向布局。你说这对你有效，但为什么对我无效？

Bryco · 发表于 2008-2-11 09:28:03

这是我使用的代码

copy

Private Sub insertmarkerBTN_Click()
Dim blockX As AcadBlockReference 'Inserted block..
Dim blockPoint As Variant ' Pick point for block insert..
Dim HypS As AcadHyperlinks 'Hyperlinks collection for block..
Dim Hyp As AcadHyperlink
ThisDrawing.ActiveSpace = acModelSpace
blockPoint = ThisDrawing.Utility.GetPoint(, vbCr & "Pick the insertion point for the Detail Reference Marker.. ")
Set blockX = ThisDrawing.ModelSpace.InsertBlock(blockPoint, "ScaledFrame", 1#, 1#, 1#, 0)
Set HypS = blockX.Hyperlinks
Set Hyp = HypS.Add(ThisDrawing.Name)
Hyp.URLNamedLocation = "2"
Dim V As AcadView
Dim L As AcadLayout
Dim i As Integer
For Each L In ThisDrawing.Layouts
    If Not UCase(L.Name) = "MODEL" Then
        i = i + 1
        ThisDrawing.ActiveLayout = L
        Set V = ThisDrawing.Views.Add(i)
        V.LayoutId = L.ObjectID
    End If
Next
End Sub

和；图形中的超链接会将您踢入布局2。添加的超链接似乎需要运行一次代码才能获得正确的thisdrawing。名称

Bryco · 发表于 2008-2-20 05:13:54

嗨，再次感谢布莱科。但对我来说，这段代码赢了#039；t工作。它确实插入了块并添加了一个超链接，但是：
a：超链接赢了&#039；t工作（&#039；无法识别超链接目的地&#039；或类似的内容）并且…
B：它直接跳转到布局2，我没有&ŧ033；我不希望它-只是块中的一个超链接集，用户可以在稍后阶段使用。
令人沮丧，因为我的程序在那里是99.999999%，just can&#039；t按原样发行#039；t工作100%。它添加了超链接，看起来都应该这样，但它打开了一个指向绘图路径的Windows资源管理器。你进入超链接编辑器，一切看起来都很好，点击ok，然后链接神秘地工作了——那为什么赢了&#039；如果不打开编辑器并确定它，它会工作吗
大家好，Paul basepointdesignzltd；

Bryco · 发表于 2008-2-20 10:00:49

跳转到布局2的原因

copy

Since the view for "layout2" is called "2" the following code took me directly to the layout2

它对我很有效，里面有足够的信息让你推断出代码对你有用
我不&#039；t；认为这个方法会给你100%的分数；这有点冒险
扩展数据方法和右键单击或双击事件可能更好。

超链接（VBA）问题。。

发表回复

精选推荐