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

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

怎样双击标注文字实现文字的替换？用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)<BR>                       If PickfirstSelectionSet.Count &lt;&gt; 1 Then Exit Sub<BR>                       Select Case PickfirstSelectionSet.Item(0).ObjectName<BR>                                                                               Case "AcDbText", "AcDbMText", "AcDbAlignedDimension", "AcDbRotatedDimension", "AcDbDiametricDimension", "AcDbRadialDimension", "AcDb2LineAngularDimension", "AcDb3PointAngularDimension"<BR>                                                                                                                       ActiveDocument.SendCommand "_ed" &amp; vbCr<BR>                                                                                                                       ActiveDocument.SendCommand vbCr<BR>                                                                               Case "AcDbBlockReference"<BR>                                                                                                                       If PickfirstSelectionSet.Item(0).HasAttributes Then<BR>                                                                                                                                               ActiveDocument.SendCommand "_attedit" &amp; vbCr &amp; "(handent " &amp; Chr(34) &amp; PickfirstSelectionSet.Item(0).Handle &amp; Chr(34) &amp; ")" &amp; vbCr<BR>                                                                                                                               Else<BR>                                                                                                                                               Exit Sub<BR>                                                                                                                       End If<BR>                                                                               Case Else<BR>                       End Select<BR>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

关于双击事件的编辑，以前就有帖子讨论了，论坛的东西就是翻来覆去的炒，好像没有人喜欢搜索
页: [1]
查看完整版本: 怎样双击标注文字实现文字的替换--VBA实现