怎样获得图形中所有图层名称????

xialiang

我的图形中有N个图层!!怎样才能获得图形中所有图层的名称呢???


谢谢大侠帮忙!!!!!

BDYCAD

用這個涵數(LAYOUTLIST)

cjs

http://www.mjtd.com/a2/list.asp?id=259

xialiang

2楼说的函数我的VLISP函数HELP中没有此函数！！


但是我在编辑器中试了试这个确实是个函数！！！！！


怎么回事！！难道我的VLISP的HELP不全？？


能帮帮我吗？


3楼的办法我试了！！OK！！！谢谢了 ！！！

BDYCAD

這是第三方開發的內容, http://www.mjtd.com/function/index.asp?classid=3&Nclassid=10

xialiang

我是初学者！5楼说的我不明白！能说的更详细点吗 ？？？？


谢谢！

BDYCAD

呵呵, 好象没有什么人有这个插件哦 没有关系, 我给你另一个方法1 (setq XlayERS(vla-get-layERS(vla-get-activedocument(vlax-get-acad-object))))
(setq Nlist nil i 0)
(repeat (vla-get-count XlayERS)
(setq Nlist(append Nlist (list (vla-get-name(vla-item XlayERS i))))
i (1+ i)))

meflying

BDYCAD发表于2005-7-10 7:54:00用這個涵數(LAYOUTLIST)

帮助中有这个函数介绍,不过这是布局列表,不是图层

yshf

;要列出所有图层名，请试用以下程序
(defun c:cc()
   (sysmeb "layer")
)
(defun sysmeb (fhbm / fhz k b)
   (setq fhz nil k 1)
   (while (setq b (tblnext fhbm k))
      (setq fhz (append fhz (list (cdr (assoc 2 b))))
     k  nil
      )
   )
   fhz
)

dingding

这是我正使用的办法。试试如何。

 ' 获得图层数量
    Set colLayers = ThisDrawing.Layers
    ReDim aryLayerNames(colLayers.Count - 1)
    '获得图层名称
    For intLayerCnt = 0 To colLayers.Count - 1
        aryLayerNames(intLayerCnt) = colLayers.Item(intLayerCnt).Name
        '获得当前图层名称
        If ThisDrawing.ActiveLayer.Name = aryLayerNames(intLayerCnt) Then
           touchen = aryLayerNames(intLayerCnt)
        End If
   Next
   
    '向组合框中添加图层名称
     For intLayerCnt = LBound(aryLayerNames) To UBound(aryLayerNames)
        ComboBox1.AddItem aryLayerNames(intLayerCnt)
     Next