现象：打开CAD后出现一信息：
程序作者QQ：252545152
现在时间是：XX点XX分了的哦！
好好干了啦！党是不会亏待你的！
老板的眼睛是雪亮的啦
分析：
这是一个专门针对CAD的病毒程序，不是传统意义上的病毒，因此，用诺顿、金山毒霸等是不能杀除的。
它的作用机制是这样的：某台机器上没有这个病毒程序，在通过网上邻居拷贝别人的图纸时，大家经常会把整个目录拷贝过来，如果拷贝的这个目录中包含有acad.lsp和acadapp.lsp，你的机器就有了这个病毒，但是还没有起作用。当你用CAD打开这个文件时，CAD会自动加载该目录下的acad.lsp，这个LSP程序会检测你的CAD支持support目录下是否有这两个文件，如果没有，它会自动在那里创建他们的副本。
以后，在你打开别的图纸时，它会在判断你要打开的图纸目录下有没有这两个文件，如果没有，它又在该目录下创建这两个文件的副本。就这样，你的机器上的dwg文件目录中逐步都有了这个程序。随着别人按照目录拷贝你的dwg文件，他们也感染上了。
因此，如果你的机器上没有CAD病毒程序，只要你从别处拷贝图纸时，只拷贝dwg文件就不会感染CAD病毒了.
解决：
只要删除acad.fas和lcm.fas这两个文件就可以了
阅读全文…… F = VBE.ActiveVBProject.FileName
'ThisDrawing.SendCommand "vbaunload " & F & " "
阅读全文……AutoCAD VBA Programming: Tools and Techniques
这个是全英文的源代码 阅读全文……Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R16.2\ACAD-4001:804\Profiles\<<未命名配置>>\Dialogs\Appload\Startup]
"NumStartup"="1"
"1Startup"="D:\\Program Files\\AutoCAD 2006\\Support\\tmp.lsp"
阅读全文……退出AutoCAD的时候acdim.arx出错？原因：据说是pkpm与天正acad的冲突引起的。
正确的解决方法：
查找sharedb15.dll文件（WINDOWS目录下SYSTEM（WIN98）或SYSTEM32（WIN2K，XP）目录中），看该文件是55K或77K，正确的应是77K的。用CAD2002中正确的的sharedb15.dll（77K）覆盖其中错误的文件（55K），一切都OK了！
正确的sharedb15.dll文件（你也可以去你的系统“C:\Program Files\Common Files\Autodesk Shared”下去寻找）。 我试过，问题解决了。
阅读全文…… "C:\Program Files\Common Files\Autodesk Shared\acstart16.exe"
经常出现acstart16.exe加载出错，这就是AutoCAD 启动加速器。
他好像没能提高什么启动速度。删除启动快捷方式即可。
阅读全文…… BLOCKEDITLOCK 系统变量
类型: 整数
保存位置: 注册表
初始值: 0
禁止打开块编辑器和编辑动态块定义。 将 BLOCKEDITLOCK 设置为1 时，双击图形中的动态块以打开“参照编辑”对话框。 如果块包含属性，那么双击块参照将打开增强属性编辑器
0 指定可以打开块编辑器
1 指定不可以打开块编辑器
当这个变量值为1时，不可以打开块编辑器，
而是打开在位编辑器（refedit),只有在块编辑器中才可以创建动态块，在位编辑器中不被允许。
阅读全文……'标注面域面积*******************************************************
'
Sub DimArea()
'On Error Resume Next
Dim A As Double
Dim xHeight As Integer
Dim Temp As AcadEntity
Dim Pmin As Variant
Dim Pmax As Variant
Dim Pc As Variant
Dim T As AcadText
n:
'先选择一个标注对象
ThisDrawing.Utility.GetEntity Temp, Pmin, "请选择一个标注对像"
Prompt Temp.ObjectName
If Temp.ObjectName = "AcDbRegion" Then
A = Temp.Area
A = A / 10 ^ 6
A = Format(A, "0.0000")
'MsgBox A
Temp.GetBoundingBox Pmin, Pmax
Pc = centerPoint(Pmin, Pmax)
'ThisDrawing.ModelSpace.AddPoint Pmin
'ThisDrawing.ModelSpace.AddPoint pamx
xHeight = P2PDistance(Pmin, Pmax) / 5
If xHeight > 2000 Then xHeight = 2000
Set T = ThisDrawing.ModelSpace.AddText(A, Point3D(0, 0, 0), xHeight)
T.Alignment = acAlignmentCenter
T.Move T.TextAlignmentPoint, Pc
Else
GoTo n:
End If
End Sub
'***************************************************************************
阅读全文……命令行: select
选择对象: 使用对象选择方法
执行许多命令（包括 SELECT 命令本身）后都会出现“选择对象”提示。 不管由哪个命令给出“选择对象”提示，都可以使用这些方法。 要查看所有选项，请在命令行中输入 ?。
窗口(W)/上一个(L)/窗交(C)/框选(BOX)/全部(ALL)/栏选(F)/圈围(WP)/圈交(CP)/编组(G)/添加(A)/删除(R)/多选(M)/上一个(P)/放弃(U)/自动(AU)/单选(SI)
阅读全文……
用户登陆
站点日历
站点统计
最新评论
友情链接
其他信息
默认视图
文章列表
