注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

小萝卜头的天空

博主:蔡建伟 QQ:95818608 QQ群:82109567

 
 
 

日志

 
 

[原创]合并图层 图层转换  

2015-01-27 20:23:42|  分类: Visual LISP |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

;;可以试试用自带的图层转换器命令: LAYTRANS
;;合并图层 可用于图层转换
;;作者:蔡建伟 QQ:95818608 2015年01月27日
(defun CJW-LAYER-MERGE (LAYLST / NEW OLD)
  (foreach X LAYLST
    (setq OLD (car X))
    (setq NEW (cadr X))
    (if	(tblsearch "LAYER" OLD)
      (progn
	(if (not (tblsearch "LAYER" NEW))
	  (command ".-LAYER" "N" NEW "")
	)
	(command ".-LAYMRG" "N" OLD "" "N" NEW "Y")
      )
    )
  )
  (princ)
)
;;图层转换范例 命令: TT
(defun C:TT ()
  (CJW-LAYER-MERGE
    '(
      ("柱" "2-COLU")
      ("砼墙" "2-COLU")
      ("零厚板" "2-HOLE")
      ("零厚板" "2-HOLE")
      ("洞口边线" "2-HOLE")
      ("洞口" "2-HOLE")
      ("梁虚线" "2-BEAM")
      ("梁" "2-BEAM_CON")
      ("门" "2-BEAM_CON")
      ("窗" "2-BEAM_CON")
      ("悬挑板" "2-OUT-1")
     )
  )
)
  评论这张
 
阅读(457)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018