本人'；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
| 
置顶卡
