选物单开图层的工具

piaoge1981 · 发表于 2008-11-21 20:59:50

懂ＣＡＤ二次开发的进来看看，我还有很多拉，直接加载就行

安东尼he · 发表于 2008-11-21 21:14:11

先下来看看，，，楼主是做五金设计的吗？

FANZAI · 发表于 2008-11-21 23:14:00

;选物单开图层
(defun C:dk(/ ss cnt c en lay)
  (setvar "CMDECHO" 0)
  (setq ss (ssget))
  (setq cnt (sslength ss))
  (setq cnt (1- cnt))
  (command "LAYER" "OFF" "*" "Y" "")
  (setq c 0)
  (while (<= c cnt)
(setq en (ssname ss c))
(setq lay (cdr (assoc 8 (entget en))))
(command "-LAYER" "ON" lay "")
(command "-LAYER" "S" lay "")
(setq c (1+ c))
  )
  (princ))
==================  不完整无法算展开 ==================

		自动登录	找回密码
密码			注册

申请者注册名：		*默认获取当前用户名
性别：	男女
年龄：		*请填写您的真实年龄
职业：		*请填写您当前的职业
申请版区名称：		*请选择您申请的版区
联系电话：		*请填写您的联系电话，此项必填！
我的QQ：		*请填写您的QQ，此项必填！
我的专业特长：		*请填写您的特长领域
申请理由：		*请填写您为什么要申请的理由
管理措施：		*您准备以何种措施管理申请的版块？

[讨论结束] 选物单开图层的工具

本帖子中包含更多资源

我先看一看

浏览过的版块

招聘信息 /5

求职信息 /5

技术求助 /5

×