懒猫窝窝

　　本例使用 WindowTop、WindowLeft、Width 和 Height 特性将 AutoCAD“应用程序”窗口放在屏幕的左上角，并将其大小调整为宽 400 像素、高 400 像素。 Sub Ch3_PositionApplicationWindow()     ThisDrawing.Application.WindowTop = 0     ThisDrawing.Appli...

本样例说明如何将 AutoCAD 切换到图纸空间、创建浮动视口、设置视图以及启用视口。 Sub Ch9_SwitchToPaperSpace()    ' 将活动空间设置为图纸空间     ThisDrawing.ActiveSpace = acPaperSpace       ' 创建图纸...

Option Explicit Function TotLen(oSset As AcadSelectionSet) As Double Dim oEnt As AcadEntity For Each oEnt In oSset     If TypeOf oEnt Is AcadPolyline Or _    &nbs...