[求助]双击的问题

cag

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

雪山飞狐_lzh

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


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


可以直接对PickfirstSelectionSet进行操作

cag

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

cag

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

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

雪山飞狐_lzh

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=21685