[原创]应网友173375424要求做的一个图层操作程序

173375424

CAD自带的是好用,但是就不够简洁,快.....

如果你用几个图层来画一张图,你想打开几个图层,用CAD里面的图层打开是可以,但是要自己一个个点,如果我编了,按一下键就可以打开自己想要的图层了,这样不是方便了自己的工作吗?

BPE

热心的高手无敌和秋枫!不知可不可以做个图层复一层的难见这样的东东.

英雄无敌

BPE发表于2007-11-28 15:46:00热心的高手无敌和秋枫!不知可不可以做个图层复一层的难见这样的东东.

不明白什么意思，最好举个例子。

BPE

如有图层1,可把图层1的全部有的图多复为图层2,图层1不变;还有一样上次帮我编过一个很好的,
再帮下我改一个朋友给的,不知是哪位高手做的,类像你做的,再帮帮我吧!

sen.sam

把秋枫的程序改了一个互换锁定的，想弄一个互换冻结的，但是当前层是不能冻结的，所以依样画葫芦不行啦！得要把当前层从选择集里取出！秋枫或者哪位懂vlsp的给写一下，先谢了。

;; 互换锁定
;; ==========================
;; command: rll
(defun c:rll (/ layers layer)
  (vl-load-com)
  (setq layers (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))))
  (vlax-for layer layers
    (if (= :vlax-true (vla-get-lock layer))
      (vla-put-lock layer :vlax-false)
      (vla-put-lock layer :vlax-true)
    )
  )
  (princ)
)

gjsfs

有值得学习的地方

英雄无敌

BPE发表于2007-11-29 11:37:00如有图层1,可把图层1的全部有的图多复为图层2,图层1不变;还有一样上次帮我编过一个很好的,再帮下我改一个朋友给的,不知是哪位高手做的,类像你做的,再帮帮我吧!38419

图层1多复为图层2，是指多重复制吗？

我的想法，先在原位复制一个，再将原来的移来指定位置，然后再改这些的层，因为可以用SSGET“P”来取得前一个选择集，

改排孔的现在暂时没有时间，看看其他网友是否有时间。

BPE

是多重复制的,这也是一种办法!改排孔的还得哪位热心的高手出下手了,

Andlu-king

这个小程序也不错，用起来也挺方便的

xufulai

我正好用的到的哦，谢谢哈?