怎样双击标注文字实现文字的替换--VBA实现

zzz8662 · 发表于 2004-9-9 11:52:00

怎样双击标注文字实现文字的替换？用VBA实现。比如我用鼠标点中标注文字1000，弹出如图对话框实现文字的替换。谢谢大家了！

雪山飞狐_lzh · 发表于 2004-9-9 15:11:00

VBA没办法实现，Lisp可以

ttthhh_hb · 发表于 2004-9-9 21:35:00

VBA可以实现。 Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant)
If PickfirstSelectionSet.Count <> 1 Then Exit Sub
Select Case PickfirstSelectionSet.Item(0).ObjectName
Case "AcDbText", "AcDbMText", "AcDbAlignedDimension", "AcDbRotatedDimension", "AcDbDiametricDimension", "AcDbRadialDimension", "AcDb2LineAngularDimension", "AcDb3PointAngularDimension"
ActiveDocument.SendCommand "_ed" & vbCr
ActiveDocument.SendCommand vbCr
Case "AcDbBlockReference"
If PickfirstSelectionSet.Item(0).HasAttributes Then
ActiveDocument.SendCommand "_attedit" & vbCr & "(handent " & Chr(34) & PickfirstSelectionSet.Item(0).Handle & Chr(34) & ")" & vbCr
Else
Exit Sub
End If
Case Else
End Select
End Sub

wyj7485 · 发表于 2004-9-10 08:39:00

果然可以，谢谢楼上提供范例！

zzz8662 · 发表于 2004-9-10 11:58:00

能注释一下吗？看不太懂。谢谢了！

雪山飞狐_lzh · 发表于 2004-9-10 18:31:00

2002以上版本本来就是这样的，

14及2000才需要编写双击事件

leer · 发表于 2004-9-10 23:10:00

帖子的意思应该是指标注双击不能直接编辑其文字，以上程序试了好用

雪山飞狐_lzh · 发表于 2004-9-10 23:18:00

关于双击事件的编辑，以前就有帖子讨论了，论坛的东西就是翻来覆去的炒，好像没有人喜欢搜索

账号		自动登录	找回密码
密码			注册

怎样双击标注文字实现文字的替换--VBA实现

本帖子中包含更多资源