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

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › 图层合并程序，怎样阻止出现CAD文本窗口？
返回列表 发新帖
查看: 1592|回复: 7

[提问] 图层合并程序，怎样阻止出现CAD文本窗口？

[复制链接]
菜卷鱼
发表于 2015-8-25 09:09:21 | 显示全部楼层 |阅读模式
  1. (defun assod ( num info)
  2. (cdr (assoc num info))
  3. )
  4. (defun c:tcb ( / n i s mm_lay *error* lty ltn tlist )
  5. (defun *error*(s)
  6. (setvar 'cmdecho 0)
  7. (SETVAR 'NOMUTT 0)
  8. (command "_.undo" "e")
  9. (setvar 'cmdecho 1)
  10. )
  11. (if (null (tblsearch  "layer" "01基本设备"))
  12. (progn (setq mm_lay (getvar "CLAYER"))
  13. (setvar "cmdecho" 0 )
  14. (command "_layer" "m" "01基本设备" "c" "7" "" "l" "Continuous" ""  "lw" "0.35" "01基本设备" "")
  15. (setvar "cmdecho" 1 )
  16. (setvar "clayer" mm_lay )))

  18. (if (null (tblsearch  "layer" "02标注"))
  19. (progn (setq mm_lay (getvar "CLAYER"))
  20. (setvar "cmdecho" 0 )
  21. (command "_layer" "m" "02标注" "c" "3" "" "l" "Continuous" ""  "lw" "0.18" "02标注" "")
  22. (setvar "cmdecho" 1 )
  23. (setvar "clayer" mm_lay )))

  25. (if (null (tblsearch "layer" "03中心线"))
  26. (progn (setq mm_lay (getvar "CLAYER"))
  27. (setvar "cmdecho" 0 )
  28. (command "_layer" "m" "03中心线" "c" "1" "" "l" "center" "" "lw" "0.18" "03中心线" "")
  29. (setvar "cmdecho" 1 )
  30. (setvar "clayer" mm_lay )))

  32. (if (null (tblsearch "layer"  "04虚线"))
  33. (progn (setq mm_lay (getvar "CLAYER"))
  34. (setvar "cmdecho" 0 )
  35. (command "_layer" "m" "04虚线" "c" "2" "" "l" "DASHED" ""  "lw" "0.18" "04虚线" "")
  36. (setvar "cmdecho" 1 )
  37. (setvar "clayer" mm_lay )))

  39. (if (null (tblsearch "layer" "05双点划线"))
  40. (progn (setq mm_lay (getvar "CLAYER"))
  41. (setvar "cmdecho" 0 )
  42. (command "_layer" "m" "05双点划线" "c" "175" "" "l" "divide" "" "lw" "0.18" "05双点划线" "")
  43. (setvar "cmdecho" 1 )
  44. (setvar "clayer" mm_lay )))

  46. (if (null (tblsearch "layer"  "06文字"))
  47. (progn (setq mm_lay (getvar "CLAYER"))
  48. (setvar "cmdecho" 0 )
  49. (command "_layer" "m" "06文字" "c" "6" "" "l" "Continuous" ""  "lw" "0.18" "06文字" "")
  50. (setvar "cmdecho" 1 )
  51. (setvar "clayer" mm_lay )))


  54. (if (null (tblsearch "layer"  "07粗实线"))
  55. (progn (setq mm_lay (getvar "CLAYER"))
  56. (setvar "cmdecho" 0 )
  57. (command "_layer" "m" "07粗实线" "c" "7" "" "l" "Continuous" ""  "lw" "0.35" "07粗实线" "")
  58. (setvar "cmdecho" 1 )
  59. (setvar "clayer" mm_lay )))

  61. (if (null (tblsearch "layer"  "08细实线"))
  62. (progn (setq mm_lay (getvar "CLAYER"))
  63. (setvar "cmdecho" 0 )
  64. (command "_layer" "m" "08细实线" "c" "251" "" "l" "Continuous" ""  "lw" "0.18" "08细实线" "")
  65. (setvar "cmdecho" 1 )
  66. (setvar "clayer" mm_lay )))
  67. (setq i 0)
  68. (setvar 'cmdecho 0)
  69. (command "_.undo" "be")
  70. (SETVAR 'NOMUTT 1)

  72. (setq
  73. t0 "0"
  74. t1  "01基本设备"
  75. t2  "02标注"
  76. t3  "03中心线"
  77. t4  "04虚线"
  78. t5  "05双点划线"
  79. t6  "06文字"
  80. t7  "07粗实线"
  81. t8  "08细实线"
  82. )
  83. (setq tlist (list t0 t1 t2 t3 t4 t5 t6 t7 t8))
  84. (setq s(tblnext "layer" T))
  85. (setq lty(assod 6 s))
  86. (setq ltn(assod 2 s))

  88. (while (/= s nil)
  89. (if (= (member ltn tlist) nil)
  90. (progn
  91. (cond
  92. ((wcmatch ltn "*标*注*")
  93. (command "-laymrg" "n" ltn "" "n" t2 "y")
  94. )
  95. ((wcmatch ltn "*文*字*")
  96. (command "-laymrg" "n" ltn "" "n" t6 "y")
  97. )
  98. ((wcmatch ltn "*中*线*")
  99. (command "-laymrg" "n" ltn "" "n" t3 "y")
  100. )
  101. ((wcmatch ltn "*虚*线*")
  102. (command "-laymrg" "n" ltn "" "n" t4 "y")
  103. )
  104. ;((wcmatch ltn "~细*实线*")
  105. ;(command "-laymrg" "n" ltn "" "n" t1 "y")
  106. ;)
  107. ((wcmatch lty "*CENTER*")
  108. (command "-laymrg" "n" ltn "" "n" t3 "y")
  109. )
  110. ((wcmatch lty "*DASH*")
  111. (command "-laymrg" "n" ltn "" "n" t4 "y")
  112. )
  113. ((wcmatch lty "*DIVIDE*")
  114. (command "-laymrg" "n" ltn "" "n" t5 "y")
  115. )
  116. (T
  117. (command "-laymrg" "n" ltn "" "n" t8 "y")
  118. ))
  119. (setq i(1+ i)))
  120. )
  121. (setq s(tblnext "layer" ))
  122. (setq lty(assod 6 s))
  123. (setq ltn(assod 2 s))
  124. )
  125. (command "regen")
  126. (SETVAR 'NOMUTT 0)
  127. (command "_.undo" "e")
  128. (if(/= i 0)(princ "\n完成图层合并。")(princ "\n图层不需要合并。"))
  129. (setvar 'cmdecho 1)
  130. (prin1)
  131. )
"觉得好，就打赏"
打赏
还没有人打赏，支持一下
回复

使用道具 举报

机械工程师
发表于 2015-8-25 13:41:23 | 显示全部楼层
命令: laymrg

Initializing...

Select object on layer to merge or [Type-it/Undo]: *取消*

函数被取消
命令: -laymrg
未知命令“-LAYMRG”。按 F1 查看帮助。
回复 支持 反对

使用道具 举报

菜卷鱼
 楼主| 发表于 2015-8-25 15:27:27 | 显示全部楼层
机械工程师 发表于 2015-8-25 13:41
命令: laymrg

Initializing...

你的CAD版本太低了吧？没有laymrg命令，我的是2011
回复 支持 反对

使用道具 举报

edata
发表于 2015-8-25 18:17:20 | 显示全部楼层
不用laymrg不就好了。将图层上的对象刷到指定层上去，再清除图层，不就好了？
回复 支持 反对

使用道具 举报

菜卷鱼
 楼主| 发表于 2015-8-26 19:27:10 | 显示全部楼层
edata 发表于 2015-8-25 18:17
不用laymrg不就好了。将图层上的对象刷到指定层上去，再清除图层，不就好了？

假如你收到的图有几十个图层，你又要分类，怎么办？
回复 支持 反对

使用道具 举报

lucas_3333
发表于 2015-8-26 20:50:46 | 显示全部楼层
yjr111不是有图层合并的程序吗?
回复 支持 反对

使用道具 举报

edata
发表于 2015-8-26 20:57:55 | 显示全部楼层
图层合并几乎等于该图层的对象图层改变，你实现了这个图层变更，那么也就合并成功了。
你因该知道，老版本没这个命令，那么老版本怎么办，还不是用改变图层的方法，结果是一样的。
所以改变你的思路吧，不一定依赖command命令来实现你的目的。
要么忍受command的副作用，要么变通方式，自己改变。
回复 支持 反对

使用道具 举报

菜卷鱼
 楼主| 发表于 2015-8-27 09:22:49 来自手机 | 显示全部楼层
edata 发表于 2015-8-26 20:57
图层合并几乎等于该图层的对象图层改变，你实现了这个图层变更，那么也就合并成功了。
你因该知道，老版本 ...

你回复的字体挺多的，谢谢了啊
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-5-21 09:41 , Processed in 0.204267 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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