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

[VBA]为Autocad2000添加双击相应

为Autocad2000添加双击相应,代码很短,但是很实用,呵呵.


暂时只做了文本编辑功能,其它功能没想到,各位有什么好的建议请更帖,以后酌情加上.


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

雪山飞狐_lzh 发表于 2004-4-12 22:04:00

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

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

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

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

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

本帖最后由 作者 于 2004-4-14 9:19:11 编辑 <br /><br /> <A name=11898><FONT color=#000066><B>mikewolf2k</B></FONT></A>的公司很正规，不用盗版软件的？不然装个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

就是呀 到底怎么用呢？
页: [1]
查看完整版本: [VBA]为Autocad2000添加双击相应