如何做一个块存入硬盘，而不光是当前图形中

yuangw1234 · 发表于 2006-5-10 21:39:00

我在当前图形中做了一个块（名为yuan）,但是当我关了当前drawing，再次幵一个图的时就没有这个图块了，怎样可以在下次打幵时仍然可以直接插入，用VBA怎么做，请教大师

xinghesnak · 发表于 2006-5-11 09:52:00

用ACADApp_NewDrawing()事件吧，把出入块的代码写在这里面，然后CAD运行这个程序在后台就行了。。。

yuangw1234 · 发表于 2006-5-11 21:20:00

不明白，可以帮忙写一段程序吗？

mccad · 发表于 2006-5-12 06:19:00

一般来说，对于无名块，如果没有被插入图形，则会在下次打开图形时自动清理掉。但已经命名的块，不应会有这样的问题。
所以得看你的程序。

yuangw1234 · 发表于 2006-5-13 14:49:00

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 shu 4 And shu
在命令行输 "i" ,然后在弹出的对话框输入块名 bu8即可直接插入这个块

如何做一个块存入硬盘，而不光是当前图形中

发表回复

精选推荐