VBA绘图模型空间..
**** Hidden Message ***** 如果不仔细查看，您的代码是否会在不使用此lineThisDrawing.ModelSpace.Layout.CanonicalMediaName="A4"（当您旋转媒体时更改名称）
我所做的是手动绘制并保存对布局的更改，然后在代码顶部添加
Dim Layout As AcadLayout
Set Layout = ThisDrawing.ActiveLayout
Layout.RefreshPlotDeviceInfo如果您一次遍历代码1行，您可以查看布局上的设置，并确保您的代码使用了正确的语言 嗨，
我让它工作了一点，至少是绘图位，但它只会绘制保存的定义窗口（应用于布局），而不是我计划的选定选择窗口-它的意思是为每个选定的标题块，它的意思是使用外边缘作为窗口协弦并依次绘制每个协弦，但显然我的代码还很正确吗？
有什么想法吗？（完整的代码在我之前的回复中）
干杯，
Paul
base point design zltd...
P4 3.0Ghz/2GB RAM...
XP Pro SP2...
蓝宝石X1950 512MB双DVi显卡...
AutoCAD 2008...
页:
[1]