[讨论]：导出与导入图层……

ll_j · 发表于 2006-5-30 07:36:47

今天早晨完成的程序，大家再帮助测试一下：
[php](defun c:svla(/ la las lan lanm fil) ;输出
  (setq lanm(cdr (assoc 2 (tblnext "layer" t)))
la  (entget (tblobjname "layer" lanm))
las (list la)
  )
  (while (setq lan(cdr (assoc 2 (tblnext "layer"))))
(setq la (entget (tblobjname "layer" lan))
   las (cons la las)
   lanm lan
)
  )
  (setq fil(open (getfiled "保存图层设置" "" "las" 13) "w"))
  (mapcar
'(lambda(x)
   (princ (strcat ";;;" (cdr (assoc 2 x))) fil)
   (mapcar
   '(lambda(y)
      (if (and (/= (type (cdr y)) 'ENAME) (/= (car y) 5))
      (print y fil)
      )
   )
   x
   )
   (princ "\n" fil)
   )
(reverse las)
  )
  (close fil)
  (princ)
)

(defun c:ldla(/ la las lan lal fil ly lyl)          ;导入
  (command "color" (getvar "cecolor"))
  (setq fil(open (getfiled "导入图层设置" "" "las" 8) "r")
lan nil
las nil
  )
  (while (setq la (read-line fil))
(if (wcmatch la ";;;*")
   (if (/= lan nil)
(setq las (cons lan las)
      lan nil
)
   )
   (setq lan (cons (read la) lan))
)
  )
  (setq las (cons lan las)
la (cdr (assoc 2 (tblnext "layer" t)))
lal(list la)
  )
  (while (setq la(cdr (assoc 2 (tblnext "layer"))))
(setq lal (cons la lal))
  )
  (setq ly (cdr (assoc 2 (tblnext "ltype" t)))
lyl(list ly)
  )
  (while (setq ly(cdr (assoc 2 (tblnext "layer"))))
(setq lyl (cons ly lyl))
  )
  (mapcar
'(lambda(x)
   (if (member (setq la (cdr (assoc 2 x))) lal)
   (progn
   (initget "Yes No")
   (setq kw (getkword (strcat "\n图层 \"" la "\" 已经存在，需要替换吗？Yes / < No > ")))
   (if (= kw "Yes")
      (progn
         (setq lan (entget (tblobjname "layer" la)))
         (if (not (member (setq ly (cdr (assoc 6 x))) lyl))
   (command ".linetype" "l" ly "" "")
         )
         (mapcar
   '(lambda(y)
      (setq lan (subst y (assoc (car y) lan) lan))
      (entmod lan)
   )
   x
         )
      )
   )
   )
   (progn
   (if (not (member (setq ly (cdr (assoc 6 x))) lyl))
      (command ".linetype" "l" ly "" "")
   )
   (entmake (reverse x))
   )
   )
   )
(reverse las)
  )
  (princ)
)[/php]

有点小烦 · 发表于 2006-5-31 16:27:59

好象对于一个新建的文件是没反应的，不过这也没实际的意义。谢了，呵呵，祝大家双节快乐

有点小烦 · 发表于 2006-6-29 11:49:38

对于有些图，不知道为什么，这个程序不能导入图层，需要用LMAN命令把图层文件导一次，再用17楼的程序……

xgbme · 发表于 2006-7-8 08:38:44

用图层特性管理器里的状态管理器输入输出就行吧?

有点小烦 · 发表于 2006-7-8 12:48:40

有些问题太专业了，别人不一定懂，而且，有时候别人知道，但是不知道是这样一个专业术语，还是能截个图片啊什么地，把问题交代清楚，谢谢……

cacophony · 发表于 2006-9-4 11:10:46

请教lman工具的具体用法?

有点小烦 · 发表于 2006-9-4 12:53:06

export 是倒出图层，
INPORT倒入，就这么简单啊！

jx2008 · 发表于 2006-11-27 14:19:03

如何直接调用excel，运行excel并打开该excel文件？

有点小烦 · 发表于 2006-11-27 15:54:44

这里已经有程序了，感谢编程者吧！

jinzhe1109 · 发表于 2006-11-28 16:10:10

有点晕啊我还是对软件的知识认识少啊

tw@ · 发表于 2006-11-29 09:30:06

在个图库管理软件里有可以做到在这http://www.xcoolsoft.com/cn/index.htm可以下载的试试看

my_autocad · 发表于 2007-4-10 11:10:52

lman工具是CAD自带的扩展程序，必须安装了才能使用！
最方便的用处是保存图层状态，并能导入导出

iqqpp · 发表于 2007-4-27 19:48:39

这个用处好像不大

显示全部楼层 · 发表于 2010-3-5 16:10:54

提示: 作者被禁止或删除内容自动屏蔽

crenw · 发表于 2010-3-19 20:40:49

我也想知道

账号		自动登录	找回密码
密码			立即注册

lihuidaxk849087 该用户已被删除	发表于 2010-3-5 16:10:54 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
lihuidaxk849087 该用户已被删除	论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复支持反对使用道具举报

[讨论]：导出与导入图层……

浏览过的版块