[求助]：请问一个关于实体选择的问题

huli99213 · 发表于 2005-6-22 14:38:44

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

在CAD中，用鼠标选择的实体，或用快速选择选择的实体，会高亮显示，并且有夹点，可以进行编辑。而用选择集选择的实体，或者用select命令选择的实体，只是呈现高亮显示，并没有夹点，也不能进行编辑。请问，这两种选择机制是不是有区别啊？怎么样使用选择集选择的实体处于编辑状态？

qiaqiadeng · 发表于 2006-1-15 15:03:59

这个问题我不知道提了多少遍了，总是没人理睬，难道高手都出国了？

lh869 · 发表于 2006-1-16 08:01:55

可以这样建立选择集：
On Error Resume Next '忽略错误继续执行
If Not IsNull(ThisDrawing.SelectionSets.Item("SS1")) Then
  Set SSet = ThisDrawing.SelectionSets.Item("SS1")
  SSet.Delete
End If
  Set SSet = ThisDrawing.SelectionSets.Add("SS1")
  SSet.SelectOnScreen
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

SSet.Delete

qiaqiadeng · 发表于 2006-3-16 13:14:11

楼上的方法是不行的，达不到楼主的要求。寻觅中。。。。。。

雪山飞狐(lzh) · 发表于 2006-3-16 14:45:14

VBA办不到，要Lisp帮忙才行：）

lisp代码

(defun c:test()
  (setq ss (ssadd) oldusers1 (getvar "users1"))
  (vla-RunMacro (vlax-get-acad-object) "SelectByHandle")
  (setq obj (handent (getvar "users1")))
  (ssadd obj ss)
  (setvar "users1" oldusers1)
  (sssetfirst nil ss)
)

VBA代码

Sub SelectByHandle()
   Dim ent As AcadEntity, pnt
   ThisDrawing.Utility.GetEntity ent, pnt
   ThisDrawing.SetVariable "users1", ent.Handle
End Sub

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

[求助]：请问一个关于实体选择的问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子