如何更改隐藏的acad。林把阿卡迪索藏了起来。林
我们有一些用acad创建的公制图纸。林线型，有人知道如何用vba改变这个吗我得到一个；重复记录名；ThisDrawing.Linetypes出错。负载“；隐藏的“&引用；阿卡迪索。“林”
；
您需要检查线型是否尚未加载…
我在一些c#函数中所做的是：
[代码我知道这是一个vba问题丑陋：
路易斯一世'；我正在尝试重新加载每个线型，它将被加载
Cad提供此重新加载选项（线型Yada已加载，是否要重新加载？）
但我不知道'；在vba中看不到重新加载选项 我甚至不知道如何发送命令，因为在“之后”-线型l隐藏&引用 ；一个箱子上来了。 &引用-线型l“&；sName&；vbCr&；vbCr&&引用；y“；似乎与esc或2一起工作。
我忘了先设置filedia（有一段时间没有使用sendcommand）
路易斯，如果我记得的话，我以为你发布了一些C；我试试看。 autocad的哪个版本 ；我关闭了filedia，它加载了，但没有要求我覆盖，它只是这样做了
我删除了那个代码，因为它不对。。。。 设置Thisdrawing.setvariable "EXPERT", 3 在Hth之前；J#039~ 本人'；m使用2008200720062004。当存在同名的现有线型时，我会请求覆盖
Thisdrawing.setvariable "EXPERT", 3 这确实可以解释这一点
路易斯我不会'；我不知道从哪里开始vba和c，它#039；就像你必须清除它，然后带来新的一个，很多麻烦
我不'；我不认为有那么多起草人#039；美国的美国人知道阿卡迪索之间的区别。林和阿卡德。林#039；我对此并不太难过，我想知道在一份典型的cad标准合同中是否提到了这一点
如果这种情况发生在其他人身上，以下功能（结合文件夹功能）似乎可以工作
Sub ChangeLinetypes()
Dim L As AcadLineType
Dim Ls As AcadLineTypes
Dim sName As String
Dim sPath As String
Dim sCommand As String
ThisDrawing.SetVariable "filedia", 0
ThisDrawing.SetVariable "celtscale", 1
ThisDrawing.SetVariable "PSLTSCALE", 1
ThisDrawing.SendCommand "insunits 4 "
sPath = "C:\Documents and Settings\Your handle\Application Data\Autodesk\AutoCAD Mechanical 2008\R17.1\enu\Support\acadiso.lin"
sCommand = "-linetype l "
Set Ls = ThisDrawing.Linetypes
For Each L In Ls
sName = L.Name
If InStr(1, sName, "|", vbTextCompare)0 Then GoTo skip
Select Case sName
Case "ByBlock", "ByLayer", "Continuous"
GoTo skip
End Select
sCommand = "-linetype l " & sName & vbCr & vbCr & "y "
ThisDrawing.SendCommand sCommand
esc
esc
esc
skip:
Next
esc
esc
ThisDrawing.SetVariable "filedia", 1
End Sub 嗨，布莱科，就我所知，只有一个问题。林他们只用公制单位，也许我错了；J#039~
页:
[1]
2