cag 发表于 2004-6-30 15:03:00

[求助]双击的问题

Private Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant)<BR>                       Dim Sset As AcadSelectionSet<BR>                       Set Sset = ThisDrawing.SelectionSets.Add("s4")<BR>                       Sset.SelectAtPoint PickPoint '为何在2002中使用这句时acdblclkedit.arx就不起作用了?怎么办?<BR>                       Sset.Delete<BR>End Sub<BR>

雪山飞狐_lzh 发表于 2004-6-30 15:17:00

acdblclkedit.arx对ThisDrawing.PickfirstSelectionSet起作用,运行Sset.SelectAtPoint PickPoint 后,PickfirstSelectionSet被清空,acdblclkedit.arx就不起作用了


你具体要达到什么效果呢?


可以直接对PickfirstSelectionSet进行操作

cag 发表于 2004-6-30 15:34:00

只对单行文字和多行文字不起作用啊

cag 发表于 2004-6-30 18:22:00

lzh741206发表于2004-6-30 15:17:00static/image/common/back.gifacdblclkedit.arx对ThisDrawing.PickfirstSelectionSet起作用,运行Sset.SelectAtPoint PickPoint 后,PickfirstSelectionSet被清空,acdblclkedit.arx就不起作用了...

<BR>我想要实现,当双击一条线时,出现一个对话框,当关闭对话框后,不要出现"特性"对性对话框.

雪山飞狐_lzh 发表于 2004-7-1 08:26:00

<A href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=21685" target="_blank" >http://bbs.mjtd.com/forum.php?mod=viewthread&tid=21685</A>
页: [1]
查看完整版本: [求助]双击的问题