如何做一个块存入硬盘，而不光是当前图形中
我在当前图形中做了一个块（名为yuan）,但是当我关了当前drawing，再次幵一个图的时就没有这个图块了，怎样可以在下次打幵时仍然可以直接插入，用VBA怎么做，请教大师 用ACADApp_NewDrawing()事件吧，把出入块的代码写在这里面，然后CAD运行这个程序在后台就行了。。。 不明白，可以帮忙写一段程序吗？ 一般来说，对于无名块，如果没有被插入图形，则会在下次打开图形时自动清理掉。但已经命名的块，不应会有这样的问题。所以得看你的程序。
Public Sub bug()
On Error Resume Next
Dim Circ2(0) As AcadCircle,shu as double
Insertpoint(0) = Insertpoint(1) = Insertpoint(2) = 0
Set Blockobj = ThisDrawing.Blocks.Add(Insertpoint, "bu" & shu)
Set Hatchobj = Blockobj.AddHatch(0, "ANSI31", True)
Hatchobj.Layer = "0"
ThisDrawing.Linetypes.Load "DASHED", "acad.lin"
Hatchobj.Linetype = "DASHED"
If shu4 And shu
在命令行输 "i" ,然后在弹出的对话框输入块名 bu8即可直接插入这个块
页:
[1]