设为首页收藏本站CAD论坛CAD教程CAD下载明经币充值
切换到宽版

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › 【KAIXIN】----通用函数,跟贴伪源码
12345678910... 22下一页
返回列表 发新帖
查看: 25789|回复: 211

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

     关闭 [复制链接]
【KAIXIN】
发表于 2012-11-18 20:06:47 | 显示全部楼层 |阅读模式
本帖最后由 【KAIXIN】 于 2013-1-26 13:58 编辑





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

  2. ;关闭选取层对象
  3. (defun C:XX( / i lay s1 ss)
  4. (KX-COMA)
  5. (KX-princA "关闭选取层对象")
  6.    (KX-PRINC"要关闭的层对象")
  7.    (setq ss (ssget)
  8.            i   -1
  9.     )
  10.   (while (setq s1 (ssname ss (setq i (1+ i))))
  11.        (setq LAY (KX-get-DXF 8 s1))
  12.     (KX-Lay-Off-LayName LAY)
  13.   )
  14. (KX-COMB)
  15. )

  17. ;关闭选取外层对象
  18. (defun C:XX( / i lay s1 ss)
  19. (KX-COMA)
  20. (KX-princA "关闭选取外层对象")
  21.    (KX-PRINC"要留下的层对象")
  22.    (setq ss (ssget)
  23.            i   -1
  24.     )
  25.     (KX-Lay-Off-X)
  26.   (while (setq s1 (ssname ss (setq i (1+ i))))
  27.        (setq LAY (KX-get-DXF 8 s1))
  28.     (KX-Lay-On-LayName LAY)
  29.   )
  30. (KX-COMB)
  31. )

  33. ;打开全部图层
  34. (defun C:XX()
  35. (KX-COMA)
  36. (KX-princA "打开所有图层")
  37.   (KX-Lay-On-X)
  38. (KX-COMB)
  39. )

  41. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  43. ;锁定选取层对象
  44. (defun C:XX( / i lay s1 ss)
  45. (KX-COMA)
  46. (KX-princA "锁定选取层对象")
  47.    (KX-PRINC"要锁定的层对象")
  48.    (setq ss (ssget)
  49.            i   -1
  50.     )
  51.   (while (setq s1 (ssname ss (setq i (1+ i))))
  52.        (setq LAY (KX-get-DXF 8 s1))
  53.     (KX-Lay-Lock-LayName LAY)
  54.   )
  55. (KX-COMB)
  56. )


  59. ;解锁选取层对象
  60. (defun C:XX( / i lay s1 ss)
  61. (KX-COMA)
  62. (KX-princA "解锁选取外层对象")
  63.    (KX-PRINC"要解锁的层对象")
  64.    (setq ss (ssget)
  65.            i   -1
  66.     )
  67.   (while (setq s1 (ssname ss (setq i (1+ i))))
  68.        (setq LAY (KX-get-DXF 8 s1))
  69.     (KX-Lay-UnLock-LayName LAY)
  70.   )
  71. (KX-COMB)
  72. )

  74. ;锁定选取外层对象
  75. (defun C:XX( / i lay s1 ss)
  76. (KX-COMA)
  77. (KX-princA "锁定选取外层对象")
  78.    (KX-PRINC"要留下的层对象")
  79.    (setq ss (ssget)
  80.            i   -1
  81.     )
  82.     (KX-Lay-Lock-X)
  83.   (while (setq s1 (ssname ss (setq i (1+ i))))
  84.        (setq LAY (KX-get-DXF 8 s1))
  85.     (KX-Lay-UnLock-LayName LAY)
  86.   )
  87. (KX-COMB)
  88. )

  90. ;解锁全部图层
  91. (defun C:XX()
  92. (KX-COMA)
  93. (KX-princA "解锁所有图层")
  94.   (KX-Lay-UnLock-X)
  95. (KX-COMB)
  96. )
  97. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  99. ;冻结选取层对象
  100. (defun C:XX( / i lay s1 ss)
  101. (KX-COMA)
  102. (KX-princA "冻结选取层对象")
  103.    (KX-PRINC"要冻结的层对象")
  104.    (setq ss (ssget)
  105.            i   -1
  106.     )
  107.   (while (setq s1 (ssname ss (setq i (1+ i))))
  108.        (setq LAY (KX-get-DXF 8 s1))
  109.     (KX-Lay-Freeze-LayName LAY)
  110.   )
  111. (KX-COMB)
  112. )

  114. ;冻结选取外层对象
  115. (defun C:XX( / i lay s1 ss)
  116. (KX-COMA)
  117. (KX-princA "冻结选取外层对象")
  118.    (KX-PRINC"要留下的层对象")
  119.    (setq ss (ssget)
  120.            i   -1
  121.     )
  122.     (KX-Lay-Freeze-X)
  123.   (while (setq s1 (ssname ss (setq i (1+ i))))
  124.        (setq LAY (KX-get-DXF 8 s1))
  125.     (KX-Lay-UnFreeze-LayName LAY)
  126.   )
  127. (KX-COMB)
  128. )

  130. ;解冻全部图层
  131. (defun C:XX()
  132. (KX-COMA)
  133. (KX-princA "解冻所有图层")
  134.   (KX-Lay-UnFreeze-X)
  135. (KX-COMB)
  136. )

  138. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  140. ;解冻,解锁,打开所有图层
  141. (defun C:XX()
  142. (KX-COMA)
  143. (KX-princA "解冻,解锁,打开所有图层")
  144.   (KX-Lay-UnLock-On-UnFreeze-X)
  145. (KX-COMB)
  146. )




通用

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？注册

x

点评

CTC
楼主不厚道，应该说明一下是VLX嘛，亏了一个币  发表于 2012-11-19 10:13
ynhh
之前的朋友这样说：这是编译后vlx文件啊。只能借鉴了，源码还得自己码了。如真是这样，那就有点。。  发表于 2012-11-19 09:10
"觉得好，就打赏"
打赏
还没有人打赏，支持一下

相关帖子
回复

使用道具 举报

繁花落叶
发表于 2012-11-18 20:11:42 | 显示全部楼层
顶，强烈支持。顶到置顶

点评

【KAIXIN】
通用函数全部源码，低价抛售中！  发表于 2013-1-20 10:46
【KAIXIN】
谢谢，后面会陆续跟贴程序伪源码  发表于 2012-11-20 10:12
回复 支持 反对

使用道具 举报

vlisp2012
发表于 2012-11-18 20:13:50 | 显示全部楼层
kaixin的程序，一定要顶！！

点评

【KAIXIN】
通用函数全部源码，低价抛售中！  发表于 2013-1-20 10:45
【KAIXIN】
通用函数全部源码，低价抛售中！  发表于 2013-1-20 10:45
【KAIXIN】
通用函数全部源码，低价抛售中！  发表于 2013-1-20 10:45
【KAIXIN】
谢谢，后面会陆续跟贴程序伪源码  发表于 2012-11-20 10:12
回复 支持 反对

使用道具 举报

繁花落叶
发表于 2012-11-18 20:19:03 | 显示全部楼层
本帖最后由 繁花落叶 于 2012-11-18 20:20 编辑

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

点评

【KAIXIN】
通用函数全部源码，低价抛售中！  发表于 2013-1-20 10:46
【KAIXIN】
谢谢，后面会陆续跟贴程序伪源码  发表于 2012-11-20 10:13
回复 支持 反对

使用道具 举报

Q1241274614
发表于 2012-11-18 20:24:14 | 显示全部楼层
顶，强烈支持。

点评

【KAIXIN】
通用函数全部源码，低价抛售中！  发表于 2013-1-20 10:46
【KAIXIN】
谢谢，后面会陆续跟贴程序伪源码  发表于 2012-11-20 10:13
回复 支持 反对

使用道具 举报

adslwang
发表于 2012-11-18 20:50:17 | 显示全部楼层
好东西就是要顶

点评

【KAIXIN】
通用函数全部源码，低价抛售中！  发表于 2013-1-20 10:47
【KAIXIN】
谢谢，后面会陆续跟贴程序伪源码  发表于 2012-11-20 10:13
回复 支持 反对

使用道具 举报

davide888
发表于 2012-11-18 20:59:58 | 显示全部楼层
已取消到该网页的导航

点评

【KAIXIN】
通用函数全部源码，低价抛售中！  发表于 2013-1-20 10:47
【KAIXIN】
谢谢，后面会陆续跟贴程序伪源码  发表于 2012-11-20 10:13
回复 支持 反对

使用道具 举报

lgttblue
发表于 2012-11-18 21:12:13 | 显示全部楼层
支持开心

点评

【KAIXIN】
通用函数全部源码，低价抛售中！  发表于 2013-1-20 10:47
【KAIXIN】
谢谢，后面会陆续跟贴程序伪源码  发表于 2012-11-20 10:13
回复 支持 反对

使用道具 举报

梦回唐朝
发表于 2012-11-18 21:19:36 | 显示全部楼层
顶，强烈支持。顶到置顶

点评

【KAIXIN】
通用函数全部源码，低价抛售中！  发表于 2013-1-20 10:47
【KAIXIN】
谢谢，后面会陆续跟贴程序伪源码  发表于 2012-11-20 10:13
回复 支持 反对

使用道具 举报

革天明
发表于 2012-11-18 21:28:22 | 显示全部楼层
老规矩,先回后下!!!!!!!

点评

【KAIXIN】
通用函数全部源码，低价抛售中！  发表于 2013-1-20 10:47
【KAIXIN】
谢谢支持，后面会陆续跟贴程序伪源码  发表于 2012-11-20 10:13
回复 支持 反对

使用道具 举报

12345678910... 22下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码，在未取得本站及作者授权的情况下，不得用于商业用途

GMT+8, 2024-11-6 07:09 , Processed in 0.186778 second(s), 33 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表