English
资源说明：Public Sub JJCC()
QXAN = 0
On Error Resume Next
CXKS
If Dir("C:\windows\cxml.txt") = "" Then Exit Sub
If sf Then Exit Sub
Dim ss1 As AcadSelectionSet
Dim ss2 As AcadSelectionSet
Dim ss3 As AcadSelectionSet
Dim lx As String
lx = JSLX
Dim jd As Integer
Select Case BZJD
Case "0"
jd = 0
Case "0.0"
jd = 1
Case "0.00"
jd = 2
Case "0.000"
jd = 3
Case "0.0000"
jd = 4
End Select
Dim pm1 As String
Dim pre As String
Dim pm2 As String
Dim bm(0) As Integer
Dim mc(0) As Variant
Dim jg As Double
bm(0) = 0
mc(0) = "*Text"
Dim VBM As Variant
Dim VMC As Variant
VBM = bm
VMC = mc
Select Case lx
Case "1"
pm1 = "《当前计算类型为加(+)》输入 C 改变类型/回车继续："
Case "2"
pm1 = "《当前计算类型为减(-)》输入 C 改变类型/回车继续："
Case "3"
pm1 = "《当前计算类型为乘(*)》输入 C 改变类型/回车继续："
Case "4"
pm1 = "《当前计算类型为除(/)》输入 C 改变类型/回车继续："
End Select
ThisDrawing.Utility.Prompt (vbCrLf & pm1)
pre = ThisDrawing.Utility.GetString(True)
If pre = "C" Or pre = "c" Then
QXAN = 0
UserForm1.Show
'If QXAN = 1 Then Exit Sub
lx = JSLX
Select Case BZJD
Case "0"
jd = 0
Case "0.0"
jd = 1
Case "0.00"
jd = 2
Case "0.000"
jd = 3
Case "0.0000"
jd = 4
End Select
'If QXAN = 1 Then Exit Sub
End If
Select Case lx
Case "1"
pm1 = "选择所有累加的数："
pm2 = "选择所有加数："
Case "2"
pm1 = "选择所有被减数："
pm2 = "选择所有减数："
Case "3"
pm1 = "选择所有累乘数："
pm2 = "选择所有乘数："
Case "4"
pm1 = "选择所有被除数："
pm2 = "选择所有除数："
End Select
本源码包内暂不包含可直接显示的源代码文件，请下载源码包。
