- 积分
- 2839
- 明经币
- 个
- 注册时间
- 2007-4-22
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
如何屏蔽Fstl_DoubleClickNo 双击跳出飞诗窗口
我用VBA 编程双击屏幕中任意对象时,都会跳出飞诗工具窗口,如何屏蔽
Public Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant)
If PickfirstSelectionSet.count <> 1 Then GoTo ToExit
Select Case PickfirstSelectionSet.Item(0).ObjectName
Case "AcDbAlignedDimension", "AcDbRotatedDimension", "AcDbDiametricDimension", "AcDbRadialDimension", "AcDb2LineAngularDimension", "AcDb3PointAngularDimension"
……
Case Else
End Select
End Sub
飞诗大哥如何让飞诗不响应呀 我试了很多方法都不行
该贴已经同步到 cumtjh的微博 |
|