[VBA函数]：此lisp语句用vba怎样实现，谢谢啊！

bossda · 发表于 2004-11-22 16:36:37

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

×

此lisp语句用vba怎样实现，谢谢啊！
(defun c:G7 ()
(sslength (ssget '((0 . "TEXT")(62 . 1)(1 . "7"))))
)

雪山飞狐(lzh) · 发表于 2004-11-23 13:07:54

引用我的TlsSel类
Sub tt1()
Dim ss As New TlsSel
ss.Init
ss.SetFilter 0, "Text", 62, 1, 1, 7
ss.SelectObjectOnScreen
MsgBox ss.Count
End Sub

齿轮设计 · 发表于 2004-11-25 18:44:07

版主，你的类哪里找？新来的，多多关照

雪山飞狐(lzh) · 发表于 2004-11-25 20:19:11

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