【文件属性】:
文件名称:cad-VBA绘图简易程序
文件大小:68KB
文件格式:DVB
更新时间:2017-06-07 15:03:02
vba
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