| 田草 于 2007-09-03 08:46 PM 发表评论： |
访问突破100万。 |
|
| 查看所评论的日志：田草日志 |
| 田草 于 2007-08-31 09:31 PM 发表评论： |
|
| 查看所评论的日志：田草日志 |
| 田草 于 2007-08-26 03:47 PM 发表评论： |
不是世界坐标 ，至于是用户坐标还是显示坐标 或者空间布局坐标 我也说不清楚。
设置ThisDrawing.ModelSpace.Layout.PlotOrigin 这个是不行的。 |
|
| 查看所评论的日志：CAD VBA 实现图纸的快速打印 |
| 0527 于 2007-08-26 03:46 PM 发表评论： |
|
| 查看所评论的日志：CAD VBA 实现图纸的快速打印 |
| 田草 于 2007-08-25 09:10 PM 发表评论： |
在百度空间上还看到一位网友的做法是
'重新指定原点，防止漂移
ThisDrawing.ModelSpace.Layout.PlotOrigin = originalValue
…………
'必须保存原始原点，否则打印会随机飘动？
Dim originalValue As Variant
originalValue = ThisDrawing.ModelSpace.Layout.PlotOrigin
他所说的随机漂移肯定是错的，但是他的方法不知道可行否，回去验证一下，再告诉大家。
|
|
| 查看所评论的日志：CAD VBA 实现图纸的快速打印 |
| 田草 于 2007-08-25 08:43 PM 发表评论： |
VBA中GetPoint以及GetBoundingBox返回的是都是世界坐标(WCS),而ThisDrawing.ModelSpace.Layout.SetWindowToPlot中使用的却是显示坐标(DCS),
我们可以使用ThisDrawing.Utility.TranslateCoordinates(PtMax, acWorld, acDisplayDCS, False)将世界坐标转换成显示坐标，这样就不会出现打印的时候图像出现偏移。
|
|
| 查看所评论的日志：CAD VBA 实现图纸的快速打印 |
| yitian0172 于 2007-08-24 09:25 PM 发表评论： |
|
| 查看所评论的日志：今天开始 博客支持HTML语言 |
| 田草 于 2007-08-24 09:11 PM 发表评论： |
| 有了鼠标滚轮 谁还用Pan命令啊 我看把P给print得了。 |
|
| 查看所评论的日志：CAD 快捷命令 |
[132] [133] [134] [135] [136] [137] [138] [139] [140] [141] ... [144] 