在Dos命令中怎样表示有空格的文件夹啊？

雪山飞狐_lzh

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

Hunix

谢谢lzh741206关心。 我昨天试出来了，是尺寸计算有问题。 但我为什么发不了新贴啊？

Hunix

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


我为什么发不了新贴啊？

雪山飞狐_lzh

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

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

Hunix

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

写错了，是这样的。 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

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

lzh741206真是个好心人啊。

licong

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