【KAIXIN】 发表于 2012-11-18 20:06:47

【KAIXIN】----通用函数,跟贴伪源码

本帖最后由 【KAIXIN】 于 2013-1-26 13:58 编辑




**** Hidden Message *****
现：通用函数全部源码，低价抛售中！
注：只需98元！！！
有意者请联系作者！QQ：2363673534
我的意愿：只为普及通用函数！

;关闭选取层对象
(defun C:XX( / i lay s1 ss)
(KX-COMA)
(KX-princA "关闭选取层对象")
   (KX-PRINC"要关闭的层对象")
   (setq ss (ssget)
         i   -1
    )
(while (setq s1 (ssname ss (setq i (1+ i))))
       (setq LAY (KX-get-DXF 8 s1))
    (KX-Lay-Off-LayName LAY)
)
(KX-COMB)
)

;关闭选取外层对象
(defun C:XX( / i lay s1 ss)
(KX-COMA)
(KX-princA "关闭选取外层对象")
   (KX-PRINC"要留下的层对象")
   (setq ss (ssget)
         i   -1
    )
    (KX-Lay-Off-X)
(while (setq s1 (ssname ss (setq i (1+ i))))
       (setq LAY (KX-get-DXF 8 s1))
    (KX-Lay-On-LayName LAY)
)
(KX-COMB)
)

;打开全部图层
(defun C:XX()
(KX-COMA)
(KX-princA "打开所有图层")
(KX-Lay-On-X)
(KX-COMB)
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;锁定选取层对象
(defun C:XX( / i lay s1 ss)
(KX-COMA)
(KX-princA "锁定选取层对象")
   (KX-PRINC"要锁定的层对象")
   (setq ss (ssget)
         i   -1
    )
(while (setq s1 (ssname ss (setq i (1+ i))))
       (setq LAY (KX-get-DXF 8 s1))
    (KX-Lay-Lock-LayName LAY)
)
(KX-COMB)
)


;解锁选取层对象
(defun C:XX( / i lay s1 ss)
(KX-COMA)
(KX-princA "解锁选取外层对象")
   (KX-PRINC"要解锁的层对象")
   (setq ss (ssget)
         i   -1
    )
(while (setq s1 (ssname ss (setq i (1+ i))))
       (setq LAY (KX-get-DXF 8 s1))
    (KX-Lay-UnLock-LayName LAY)
)
(KX-COMB)
)

;锁定选取外层对象
(defun C:XX( / i lay s1 ss)
(KX-COMA)
(KX-princA "锁定选取外层对象")
   (KX-PRINC"要留下的层对象")
   (setq ss (ssget)
         i   -1
    )
    (KX-Lay-Lock-X)
(while (setq s1 (ssname ss (setq i (1+ i))))
       (setq LAY (KX-get-DXF 8 s1))
    (KX-Lay-UnLock-LayName LAY)
)
(KX-COMB)
)

;解锁全部图层
(defun C:XX()
(KX-COMA)
(KX-princA "解锁所有图层")
(KX-Lay-UnLock-X)
(KX-COMB)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;冻结选取层对象
(defun C:XX( / i lay s1 ss)
(KX-COMA)
(KX-princA "冻结选取层对象")
   (KX-PRINC"要冻结的层对象")
   (setq ss (ssget)
         i   -1
    )
(while (setq s1 (ssname ss (setq i (1+ i))))
       (setq LAY (KX-get-DXF 8 s1))
    (KX-Lay-Freeze-LayName LAY)
)
(KX-COMB)
)

;冻结选取外层对象
(defun C:XX( / i lay s1 ss)
(KX-COMA)
(KX-princA "冻结选取外层对象")
   (KX-PRINC"要留下的层对象")
   (setq ss (ssget)
         i   -1
    )
    (KX-Lay-Freeze-X)
(while (setq s1 (ssname ss (setq i (1+ i))))
       (setq LAY (KX-get-DXF 8 s1))
    (KX-Lay-UnFreeze-LayName LAY)
)
(KX-COMB)
)

;解冻全部图层
(defun C:XX()
(KX-COMA)
(KX-princA "解冻所有图层")
(KX-Lay-UnFreeze-X)
(KX-COMB)
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;解冻,解锁,打开所有图层
(defun C:XX()
(KX-COMA)
(KX-princA "解冻,解锁,打开所有图层")
(KX-Lay-UnLock-On-UnFreeze-X)
(KX-COMB)
)




繁花落叶 发表于 2012-11-18 20:11:42

顶，强烈支持。顶到置顶

vlisp2012 发表于 2012-11-18 20:13:50

kaixin的程序，一定要顶！！

繁花落叶 发表于 2012-11-18 20:19:03

本帖最后由 繁花落叶 于 2012-11-18 20:20 编辑

这是编译后vlx文件啊。只能借鉴了，源码还得自己码了。

Q1241274614 发表于 2012-11-18 20:24:14

顶，强烈支持。

adslwang 发表于 2012-11-18 20:50:17

好东西就是要顶

davide888 发表于 2012-11-18 20:59:58

已取消到该网页的导航

lgttblue 发表于 2012-11-18 21:12:13

支持开心

梦回唐朝 发表于 2012-11-18 21:19:36

顶，强烈支持。顶到置顶

革天明 发表于 2012-11-18 21:28:22

老规矩,先回后下!!!!!!!
页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: 【KAIXIN】----通用函数,跟贴伪源码