VBA+CAD
JC30年的业余程序员
世界即程序,程序即数学
展开
-
VBA userForm中控件的访问方法,值传递方法
VBA userForm的用法以pickFcxForm为例(userForm)以pickFcxForm为例(userForm)窗体内的代码:Public bCancel As Boolean ''窗体内的全局变量Private Sub CommandButton1_Click() ''确定 Dim xBLC As Integer On Error GoTo ERR1 xBLC = Val(pickFcxForm.TextBox1.Text) On Error原创 2021-11-23 15:26:34 · 2651 阅读 · 0 评论 -
CAD dxf组码 Xdata 写入和读取
Dim x2, y2 As Double Dim DataType(0 To 1) As Integer Dim Data(0 To 1) As Variant For Each acEnt In acSSet ''根据x,y查找实体,并打上xData标记 DataType(0) = 1001: Data(0) = "DrillLabel" DataType(1) = 1000: Data(1) = TS(i).kh acEnt.SetXD...原创 2020-09-16 10:06:44 · 1645 阅读 · 0 评论 -
2020-09-16
CAD图块顺序编号问题 Type TEXT123 ''专为权设计 2019-8 x As Double y As Double Quan As Double '' 根据不同规则计算的权重End Type Dim i, j, n, k, SP As Integer Dim MinX, MaxX, MinY, MaxY As Double ''记录左上,右下范围 Dim TempT As TEXT123 D原创 2020-09-16 09:28:30 · 121 阅读 · 0 评论