| tiancao1001 于 2008-12-18 04:30 PM 发表评论： |
| 网页框架 分栏模式不能显示的原因是网页中不应该再有body标签。即除去<body></body>. |
|
| 查看所评论的日志：田草日志 |
| tobeman 于 2008-12-16 10:03 AM 发表评论： |
无法下载
能否发给小弟，万分感谢
tobeman@126.com |
|
| 查看所评论的日志：Mastering AutoCAD VBA 从入门到精通.pdf 电子版格式 |
| gong26 于 2008-12-15 05:57 PM 发表评论： |
| 你好！能不能把《Visual Basic.NET精彩编程百例》源代码 发给我啊？我的邮箱是gong26@163.com 谢谢了！！！ |
|
| 查看所评论的日志：《Visual Basic.NET精彩编程百例》源代码 |
| azjmjsj 于 2008-12-13 00:28 AM 发表评论： |
|
| 查看所评论的日志：AutoCAD VBA 二次开发教程源码 |
| tiancao1001 于 2008-12-12 09:56 AM 发表评论： |
在一些平台下确有这个问题，暂时解决方法：
在选项命令中(_OPTIONS)选择文件项，
在打印支持文件路径->打印样式表路径中，
显示路径为：c:\Tangent\TArch7\SYS;D:\Documents and Settings\whl\Application Data\Autodesk\AutoCAD 2006\R16.2\chs\Plot Styles。
选中这个路径项，按F2对其编辑。
AutoCAD不支持多个打印样式表路径，将C:\Tangent\TArch7\sys项删除即可 |
|
| 查看所评论的日志：AutoCAD 打印 打印样式 致命错误 退出 |
| zw_1977 于 2008-12-03 04:53 PM 发表评论： |
|
| 查看所评论的日志：AutoCAD VBA 二次开发教程源码 |
| goodgood 于 2008-12-02 06:11 PM 发表评论： |
| 我也需要，LZ邮寄个到 onedot@sina.com好吗 |
|
| 查看所评论的日志：AutoCAD VBA 二次开发教程源码 |
| tiancao1001 于 2008-12-02 01:39 PM 发表评论： |
'快速打印
Function KSDY2(P1 As Variant, P2 As Variant)
Dim PtMin As Variant
Dim PtMax As Variant
PtMin = P1
PtMax = P2
ReDim Preserve PtMin(0 To 1)
ReDim Preserve PtMax(0 To 1)
' 设置打印比例为“布满图纸”
ThisDrawing.ActiveLayout.StandardScale = acScaleToFit
ThisDrawing.ActiveLayout.SetWindowToPlot PtMin, PtMax
' 设置打印类型为窗口
ThisDrawing.ActiveLayout.PlotType = acWindow
'设置为居中打印
ThisDrawing.ActiveLayout.CenterPlot = True
If Me.OptionButton4.Value = True Then
'启用打印预览
ThisDrawing.ActiveLayout.GetWindowToPlot PtMin, PtMax
ThisDrawing.Plot.DisplayPlotPreview acFullPreview
Else
'打印当前的区域
'若选中“打印到文件”
If PlotTofile_CheckBox.Value Then
If PlotFilesPath_ComboBox.text = "" Then PlotFilesPath_ComboBox.text = GetPath
ThisDrawing.Plot.PlotToFile PlotFilesPath_ComboBox.text & ThisDrawing.Name & "-" & N & ".plt"
N = N + 1
Else
ThisDrawing.Plot.PlotToDevice ThisDrawing.ModelSpace.Layout.ConfigName
End If
End If
End Function |
|
| 查看所评论的日志：CAD VBA 实现图纸的快速打印 |
[86] [87] [88] [89] [90] [91] [92] [93] [94] [95] ... [143] 