VBA绘图模型空间..

hardwired · 发表于 2008-2-13 09:59:15

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Bryco · 发表于 2008-2-13 10:43:29

如果不仔细查看，您的代码是否会在不使用此lineThisDrawing.ModelSpace.Layout.CanonicalMediaName="A4"
（当您旋转媒体时更改名称）

hardwired · 发表于 2008-2-13 11:35:08

我所做的是手动绘制并保存对布局的更改，然后在代码顶部添加

      Dim Layout As AcadLayout
      Set Layout = ThisDrawing.ActiveLayout
      Layout.RefreshPlotDeviceInfo

如果您一次遍历代码1行，您可以查看布局上的设置，并确保您的代码使用了正确的语言

hardwired · 发表于 2008-2-13 11:53:51

嗨，
我让它工作了一点，至少是绘图位，但它只会绘制保存的定义窗口（应用于布局），而不是我计划的选定选择窗口-它的意思是为每个选定的标题块，它的意思是使用外边缘作为窗口协弦并依次绘制每个协弦，但显然我的代码还很正确吗？
有什么想法吗？（完整的代码在我之前的回复中）
干杯，
Paul
base point design zltd...
P4 3.0Ghz/2GB RAM...
XP Pro SP2...
蓝宝石X1950 512MB双DVi显卡...
AutoCAD 2008...

VBA绘图模型空间..

发表回复

精选推荐