又有一个问题！！！

yzy580

我想在程序中添加一段代码，用来检测是否有名为"Center"的层，如没有，则创建线型为"CENTER"，名为"Center"的层，可运行后系统提示错误：线型center未定义，位于图层表记录CENTER。但是使用"Continuous"线型就没问题。这是为什么？该怎么解决？谢谢！！！

龙龙仔

我在AUTOCAD2002不会有这种情况
  (if (= (tblsearch "layer" "center") NIL)
    (command "_.layer" "m" "center" "c"        "red" "" "lt" "center"        "" ""
            )
  )

webhun

mccad

(setq old_lay (getvar "clayer"))
  (if (= (tblobjname "LAYER" "1") nil)
    (if        (= (tblobjname "LTYPE" "点划线") nil)
      (progn
        (command "-linetype" "load" "点划线" "acad.lin" "")
        (if (= (tblobjname "LTYPE" "点划线") nil)
          (progn
            (command "-linetype" "load" "CENTERX2" "acad.lin" "")
            (entmake (list
                       '(0 . "LAYER")
                       '(100 . "AcDbSymbolTableRecord")
                       '(100 . "AcDbLayerTableRecord" )
                       '(6 . "centerx2")
                       '(62 . 1)
                       '(70 . 0)
                       '(2 . "1")
                     )
            )
          )
        )
        (entmake (list
                   '(0 . "LAYER")
                   '(100 . "AcDbSymbolTableRecord")
                   '(100 . "AcDbLayerTableRecord" )
                   '(6 . "点划线")
                   '(62 . 1)
                   '(70 . 0)
                   '(2 . "1")
                 )
        )
      )
      (progn
        (entmake (list
                   '(0 . "LAYER")
                   '(100 . "AcDbSymbolTableRecord")
                   '(100 . "AcDbLayerTableRecord" )
                   '(6 . "点划线")
                   '(62 . 1)
                   '(70 . 0)
                   '(2 . "1")
                 )
        )

      )
    )
  )
  (setvar "clayer" "1")

yzy580

我已经拉下来了，准备仔细研究

陈伯雄

写程序要知道常量与变量，用AutoCAD也同样道理。
作为常量的各种线形，本来就应当放在常量容器——图形模板中，否则当然会出乱子。
其实您的日常生活中也同样道理，打火机放在口袋里，抽烟时才方便。
那么，用软件为什么不这样继续使用您的常识呢？不是一个道理么？

webhun

Private Function FindLayer(ByVal LayerName As String) As Boolean
    Dim myLayer As AcadLayer
    For Each myLayer In ThisDrawing.Layers
        If myLayer.Name = LayerName Then
            FindLayer = True
            Exit Function
        End If
    Next
    FindLayer = False
End Function

Private Function FindLinetype(ByVal HaveLineType As String) As Boolean
    Dim myLt As AcadLineType
    For Each myLt In ThisDrawing.Linetypes
        If myLt.Name = HaveLineType Then
            FindLinetype = True
            Exit Function
        End If
    Next
    FindLinetype = False
End Function

Sub SetLayer()
    If Not FindLayer("Center") Then
        Dim ly As AcadLayer
        Set ly = ThisDrawing.Layers.Add("Center")
    End If

    ly.Color = acRed
    ly.Lineweight = acLnWt070
        
    If Not FindLinetype("CENTER") Then
        ThisDrawing.Linetypes.Load "CENTER", "acadiso.lin"
    End If
        
    ly05.LineType = "CENTER"
End Sub