乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 189|回复： 14

[编程交流] [帮助]plot meth的问题

[复制链接]
todi

1

主题

1

帖子

0

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 22:17:34 | 显示全部楼层 |阅读模式 
  1. 'Begin plot proccess
  2. Do While iCurrPage <= iEndPage
  3. For i = 0 To lstPages.Size - 1
  4.         'Retrieves an page object for plot data aquisition
  5.         Set area = lstPages.getListItem(Int(i))
  6.         
  7.         If area.PageNumber = iCurrPage Then
  8.                 'Marks the plot area based on calculated element coordinates
  9.                 Call AcadApp.ActiveDocument.ActiveLayout.SetWindowToPlot(area.StartPosition, area.EndPosition)
  10.                 'Plot the marked area
  11.                 Call AcadApp.ActiveDocument.ActiveLayout.GetWindowToPlot(area.StartPosition, area.EndPosition)
  12.                 'Configures the marked area for window plot type
  13.                 AcadApp.ActiveDocument.ActiveLayout.PlotType = acWindow
  14.                 'Scales the area of impression to fit the page
  15.                 AcadApp.ActiveDocument.ModelSpace.Layout.StandardScale = acScaleToFit
  16.                 'Number of copies for one page
  17.                 AcadApp.ActiveDocument.Plot.NumberOfCopies = iQntCopy
  18.                 [color="red"]'Plot
  19.                 Call AcadApp.ActiveDocument.Plot.PlotToDevice
  20.                 'Resume if an error occurs
  21.                 On Error Resume Next
  22.                 'Increment the page counter
  23.                 iCurrPage = iCurrPage + 1[/color]
  24.         End If
  25. Next i
  26. Loop

回复

使用道具 举报

iDeeW

1

主题

15

帖子

14

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 22:22:58 | 显示全部楼层
这是LUA吗？看起来很像，但有点不同。
231740occf6c45cld4fftx.jpg
回复

使用道具 举报

Tuns

5

主题

224

帖子

219

银币

初来乍到

Rank: 1

铜币
25
发表于 2022-7-6 22:26:55 | 显示全部楼层
不这是Visual Basic for Applications（VBA）
回复

使用道具 举报

iDeeW

1

主题

15

帖子

14

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 22:31:09 | 显示全部楼层
哦对不起，我错了。我能想到的唯一一件可能与他的错误是他设置I=0，最后他将iCurrPage=iCurrPage+1，当他第一次没有将其定义为iCurrPage时。
  2. Public Sub PlotPreview()
  3. If MsgBox("Preview", vbYesNo) = vbYes Then
  4.        ThisDrawing.Plot.DisplayPlotPreview acFullPreview
  5.    Else
  6.        ThisDrawing.Plot.DisplayPlotPreview acPartialPreview
  7.    End If
  8. End Sub

应该是
  1. For i = 0 To lstPages.Size - 1

至少在LUA是这样的。我只是基于这一点来思考，因为它们看起来很相似，我想它们的功能差不多。不过我可能错了。。。
回复

使用道具 举报

Tuns

5

主题

224

帖子

219

银币

初来乍到

Rank: 1

铜币
25
发表于 2022-7-6 22:36:01 | 显示全部楼层
你的意思是，可以使用LUA自动化AutoCAD吗？
你能帮我发一个示例代码吗。。。
回复

使用道具 举报

iDeeW

1

主题

15

帖子

14

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 22:39:29 | 显示全部楼层 
  1. For iCurrPage = 0 To lstPages.Size - 1

应该将其更改为
  1. iCurrPage = iCurrPage + 1

因为一开始你叫它“我”。
我希望。。。我会尽力的。。。我相信你可以在21世纪的时候做这件事，但如果可以的话，它看起来几乎和你已经拥有的一模一样。
  1. i = i + 1

大概是这样
  1. Public Sub PlotPreview()
  2. If MsgBox("Preview", vbYesNo) = vbYes Then
  3.        ThisDrawing.Plot.DisplayPlotPreview acFullPreview
  4.    Else
  5.        ThisDrawing.Plot.DisplayPlotPreview acPartialPreview
  6.    End If
  7. End Sub

在卢阿。如果我用正确的方式做的话，会有更多的内容，但既然没关系，我只是给了你一个想法。
回复

使用道具 举报

Tuns

5

主题

224

帖子

219

银币

初来乍到

Rank: 1

铜币
25
发表于 2022-7-6 22:47:31 | 显示全部楼层
我可能错了，但我只是注意到了这一点。告诉我它是否有效。
  1. Public Sub PlotPreview()
  2.   If MsgBox("Preview", vbYesNo) = vbYes Then
  3.        ThisDrawing
  4.        Plot
  5.        DisplayPlotPreview
  6.        acFullPreview
  7.    Else
  8.        ThisDrawing
  9.        Plot
  10.        DisplayPlotPreview
  11.        acPartialPreview
  12.    End 
  13. End

我认为你把if-then语句放错了地方，所以当你把“end if”放在末尾时，它没有if-then语句。我说错了吗？因为有时取决于你使用的脚本语言，它去哪里都无关紧要。
回复

使用道具 举报

Tuns

5

主题

224

帖子

219

银币

初来乍到

Rank: 1

铜币
25
发表于 2022-7-6 22:48:40 | 显示全部楼层
这是如何在VB中执行if条件。。。没什么不对的。。。
回复

使用道具 举报

iDeeW

1

主题

15

帖子

14

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 22:53:32 | 显示全部楼层
if-then语句与它的end函数不在同一个位置，有什么原因吗？我很好奇为什么会这样。你知道吗？如果不是，我不介意。
回复

使用道具 举报

Tuns

5

主题

224

帖子

219

银币

初来乍到

Rank: 1

铜币
25
发表于 2022-7-6 22:57:02 | 显示全部楼层
http://www.techonthenet.com/excel/formulas/if_then.php
回复

使用道具 举报

12下一页
返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-4 11:28 , Processed in 0.770051 second(s), 74 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表