列出所有图层

lenlenq · 发表于 2011-4-7 19:51:30

6楼的就是VLSP 代码
LSP参见5楼

lenlenq · 发表于 2011-4-7 20:11:32

本帖最后由 lenlenq 于 2011-4-7 20:12 编辑

(defun get-layerobj (layer / lays layobj)
  (setq       lays (vla-get-layers
            (vla-get-activedocument (vlax-get-acad-object))
         )
  )
  (vlax-for layerob lays
(if       (= (vla-get-name layerob) layer)
   (setq layobj layerob)
)
  )
  layobj
)
(defun get-layer-s (layobj)
  (setq freeze (vla-get-freeze layobj))
  (setq lock (vla-get-lock layobj))
  (setq layeron (vla-get-layeron layobj))
  (if (= freeze :vlax-true) (setq st1 "冻结着")(setq st1 ""))
  (if (= lock :vlax-true) (setq st2 "锁着")(setq st2 ""))
  (if (= layeron :vlax-true) (setq st3 "")(setq st3 "关着"))
  (princ(strcat"图层" st1 st2 st3))
  (princ)
)

例：(get-layer-s(get-layerobj"BP"))

啵浪鼓 · 发表于 2011-4-7 21:15:31

1，上面程序区分大小写？
2，我只想知道如图层 dim 层返回值是 freeze layoff laylock，想改一下上面的程序，居然无计可施
:vlax-true 这是什么东东啊，只接触过lisp没接触过vlisp,,,上面的程序好难懂，哈哈

lenlenq · 发表于 2011-4-10 20:06:03

不是“冻结着，锁着，关着"吗？
冻结着-freeze
锁着---laylock
关着---layoff

lenlenq · 发表于 2011-4-10 20:16:14

要区分大小写(图层名)

(defun get-layerobj (layer / lays layobj)
  (setq       lays (vla-get-layers
            (vla-get-activedocument (vlax-get-acad-object))
         )
  )
  (vlax-for layerob lays
(if       (= (vla-get-name layerob) layer)
   (setq layobj layerob)
)
  )
  layobj
)
(defun get-layer-s (layobj)
  (setq freeze (vla-get-freeze layobj))
  (setq lock (vla-get-lock layobj))
  (setq layeron (vla-get-layeron layobj))
  (if (= freeze :vlax-true) (setq st1 "FREEZE")(setq st1 ""))
  (if (= lock :vlax-true) (setq st2 "LOCK")(setq st2 ""))
  (if (= layeron :vlax-true) (setq st3 "")(setq st3 "LAYERON"))
  (list st1 st2 st3)
)

例：(get-layer-s (get-layerobj  "dim"))
返回 ("FREEZE" "LOCK" "LAYERON")

lenlenq · 发表于 2011-4-10 20:23:26

:vlax-true----真
:vlax-false----假

账号		自动登录	找回密码
密码			注册