摘要:
根据本机的注册表得出结论 1 public class MyTypeLibInfor 2 { 3 public string TypeLibName { get; set; } 4 public string TypeLibGuid { get; set; } 5 public string Typ 阅读全文
摘要:
Sub AutoADDAutoCADTypeLib() Dim Ref As Variant Dim hasAutoTypeLib As Boolean , hasAXDBLib As Boolean , acadName As String hasAutoTypeLib = False : has 阅读全文
摘要:
最近有朋友询问切换图层的代码 com切换图层 1 <CommandMethod("mycl")> 2 Public Sub MySubLayerChange() 3 Dim Thisdrawing As Autodesk.AutoCAD.Interop.AcadDocument = Applicat 阅读全文