[VBA]为Autocad2000添加双击相应

mikewolf2k · 发表于 2004-4-12 18:48:00

为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 · 发表于 2004-4-12 22:04:00

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

mikewolf2k · 发表于 2004-4-13 18:26:00

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

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

subtlation · 发表于 2004-4-14 08:47:00

本帖最后由作者于 2004-4-14 9:19:11 编辑

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

雪山飞狐_lzh · 发表于 2004-4-15 20:14:00

没看清楚你用的是2000

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

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

cag · 发表于 2004-5-13 18:29:00

怎么用VLisp做楼主的程序？

myfreemind · 发表于 2004-5-18 23:52:00

不错！！

wyj7485 · 发表于 2004-7-21 10:06:00

倒是学习的例子

zzz8662 · 发表于 2004-9-9 12:03:00

怎么使用呢？

wkaii · 发表于 2004-9-12 22:06:00

就是呀到底怎么用呢？

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