[VBA]为Autocad2000添加双击相应

mikewolf2k

为AutoCAD2000添加双击相应,代码很短,但是很实用,呵呵. 暂时只做了文本编辑功能,其它功能没想到,各位有什么好的建议请更帖,以后酌情加上. 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

雪山飞狐_lzh

把这段代码去掉也可以实现你要的功能，不信你试试

mikewolf2k

lzh741206发表于2004-4-12 22:04:00把这段代码去掉也可以实现你要的功能，不信你试试

装个2000就不可以实现你要的功能,不信你试试

subtlation

mikewolf2k的公司很正规，不用盗版软件的？不然装个2004，2005的不就搞定了吗？ 不过上面的双击响应作为事例程序还是不错的。

雪山飞狐_lzh

没看清楚你用的是2000


我就是2000不稳定（D版的）才用2002的


不过如果你用的是正版的话，我没话说

cag

怎么用VLisp做楼主的程序？

myfreemind

不错！！

wyj7485

倒是学习的例子

zzz8662

怎么使用呢？

wkaii

就是呀 到底怎么用呢？