2013-09-17 QQ群：ALISP＆VLISP(143438137) 聊天记录：签到

CCarch

伴你走 Yi世(401802630)于2013-09-17 14-27-58：
还挺不错的。

CCarch

千剑千曲！(605295582)于2013-09-17 16-00-50：
签到

CCarch

牵ぶ伱の佑手(379002274)于2013-09-17 18-39-32：
请问我用vba 做的程序， 正常CAD可以运行， 但有的就出现
运行时出错 48
错在loading dll
是什么情况呀

CCarch

牵ぶ伱の佑手(379002274)于2013-09-17 20-06-11：
Private Sub UserForm_Click()
Dim sels As AcadSelectionSets
Dim sel As AcadSelectionSet
Dim q(1 To 4) As Double
Dim e(1 To 4) As Variant
q(1) = -4
q(2) = 0
q(3) = 2
q(4) = -4
e(1) = ""
   On Error Resume Next
Set sel = ThisDrawing.SelectionSets.Add("adSS")
        If Err Then Set sel = ThisDrawing.SelectionSets.Item("adSS")
        sel.Clear
        sel.Select acSelectionSetAll, , , q, e
        MsgBox CStr(sel.Count)

End Sub上面哪里错了， 怎么选 不到呀

CCarch

ZZXXQQ(1468225785)于2013-09-17 20-27-17：
签到