autocad二次开发.pptVIP

With ThisDrawing.ModelSpace .Item(.Count - 1).TransformBy (Transmatrix) .Item(.Count - 1).color = acRed .Item(.Count - 1).Update End With TransformBy：图形矩阵转换命令 With ThisDrawing.ModelSpace .Item(.Count - 1).TransformBy (Transmatrix) .Item(.Count - 1).color = acRed .Item(.Count - 1).Update End With 改变转换后图形颜色 With ThisDrawing.ModelSpace .Item(.Count - 1).TransformBy (Transmatrix) .Item(.Count - 1).color = acRed .Item(.Count - 1).Update End With 更新图形 Private Sub cmdscaleToCenter_click() Centerpoint = ThisDrawing.Utility.GetPoint(, 输入缩放点) Dim Transmatrix(0 To 3, 0 To 3) As Double Dim indexl As Integer, index2 As Integer For index1 = 0 To 3 For index2 = 0 To 3 Transmatrix(index1, index2) = 0 Next Next Dim scalefactor As Double scalefactor = frmtransformations.Txtscalefactor Transmatrix(0, 0) = CDbl(Txtscalefactor) Transmatrix(1, 1) = CDbl(Txtscalefactor) Transmatrix(2, 2) = CDbl(Txtscalefactor) Transmatrix(3, 0) = CDbl((1 - Txtscalefactor) * Centerpoint(0)) Transmatrix(3, 1) = CDbl((1 - Txtscalefactor) * Centerpoint(1)) Transmatrix(3, 2) = CDbl((1 - Txtscalefactor) * Centerpoint(2)) With ThisDrawing.ModelSpace .Item(.Count - 1).TransformBy (Transmatrix) .Item(.Count - 1).color = acBlue .Item(.Count - 1).Update End With Unload Me * Caxa等自成体系，保存文件格式不是dwg 天河：在autocad上二次开发而来，为AUTO做了嫁衣裳 尧创：有自己的著作权（知识产权）， C100--宏名称，也叫过程名称，当用户执行C100时程序将运行sub?和end?sub之间的所有指令。 C100--宏名称，也叫过程名称，当用户执行C100时程序将运行sub?和end?sub之间的所有指令。 C100--宏名称，也叫过程名称，当用户执行C100时程序将运行sub?和end?sub之间的所有指令。 C100--宏名称，也叫过程名称，当用户执行C100时程序将运行sub?和end?sub之间的所有指令。 C100--宏名称，也叫过程名称，当用户执行C100时程序将运行sub?和end?sub之间的所有指令。 C100--宏名称，也叫过程名称，当用户执行C100时程序将运行sub?和end?sub之间的所有指令。 C100--宏名称，也叫过程名称，当用户执行C100时程序将运行sub?和end?sub之间的所有指令。 C100--宏名称，也叫过程名称，当用户执行C100时程序将运行sub?和end?sub之间的所有指令。 C100--宏名称，也叫过程名称，当用户执行C100时程序将运行sub?和end?sub之间的所有指令。 C100--宏名称，也叫过程名称，当用户执行C100