在Dos命令中怎样表示有空格的文件夹啊？ - VBA/VB/ActiveX/API 编程技术 - AutoCAD论坛 - 明经CAD社区 - 第2页

雪山飞狐_lzh 发表于 2005-4-8 21:44:00

AddARC画图的时候出错，那么你的代码呢？

Hunix 发表于 2005-4-9 11:57:00

谢谢<A name=21743>lzh741206</A>关心。

我昨天试出来了，是尺寸计算有问题。

但我为什么发不了新贴啊？

Hunix 发表于 2005-4-10 10:47:00

怎样判断当前图形中是否有指定名称的图层、线形、块定义啊?

我为什么发不了新贴啊？

雪山飞狐_lzh 发表于 2005-4-10 23:39:00

Sub tt() On Error Resume Next Dim lay As AcadLayer Err.Clear Set lay = ThisDrawing.Layers("123") If Err Then MsgBox "没有123层" End If End Sub 线形、块定义等都差不多，就不重复了

Hunix 发表于 2005-4-11 19:52:00

还有一个问题，怎样设置线的宽度啊？

Hunix 发表于 2005-4-11 20:01:00

On Error Resume Next Dim linetype As AcadLineType Err.Clear Set linetype = ThisDrawing.Layers("CENTER") If Err Then ' 没有这种线形 ThisDrawing.Linetypes.Load linetype, "acad.lin" End If

系统会报错啊！

Hunix 发表于 2005-4-11 20:03:00

写错了，是这样的。

On Error Resume Next Dim linetype As AcadLineType Err.Clear Set linetype = ThisDrawing.LineTypes("CENTER") If Err Then ' 没有这种线形 ThisDrawing.Linetypes.Load linetype, "acad.lin" End If

系统会报错啊！

雪山飞狐_lzh 发表于 2005-4-11 21:51:00

Sub tt() On Error Resume Next Dim linetype As AcadLineType Err.Clear Set linetype = ThisDrawing.Linetypes("CENTER") If Err Then ' 没有这种线形 ThisDrawing.Linetypes.Load "CENTER", "acad.lin" Set linetype = ThisDrawing.Linetypes("CENTER") End If End Sub

Hunix 发表于 2005-4-13 15:58:00

<A name=22628>lzh741206</A>真是个好心人啊。

licong 发表于 2007-5-14 11:35:00

我用VBA做一系列的柱子,也是出现图形退化的提示词,这是怎么回事,请高手指导一下

页: 1 [2] 3

明经CAD社区's Archiver