[1123]请教如何撷取图层资料输出到TXT档案中呢?

tctabc · 发表于 2005-11-23 11:26:02

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

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

×

[1123]请教如何撷取图层资料输出到TXT档案中呢?
请问各位高手们
如何才能够将图层中的,图层名称.图层颜色.图层笔号.这些资料
输出到TXT档案,且也可以透过这方式,
在回传输入到CAD档案中的图层.

小弟查到应该是要运用以下这些命令
但不是全部
(setq dat_file (getfiled "输出资料档案" "c:\\test" "txt" 1))
(setq ff (open dat_file "w"))
(write-line "图层名称线型名称颜色编号" ff)
(write-line (strcat "\n<" (layna) (comm) (colornu) ) ff)
(close ff)
)

(tblnext "layer")
;配合符号表的群码2 图层名称62 颜色编号6 线型名称

目前遇到问题是,如何才能够执行重复的图层名称判断
及输出栏位资料的位置该怎样控制

如果论坛有相似的文章,或是范例
请各位告知,就可以去参考一下了
希望各位帮忙解答一下
谢谢

WHGF · 发表于 2005-11-23 11:51:18

最简单的方法是ASCII的DXF文件，只是你必须了解DXF文件结构和DXF组码！

tctabc · 发表于 2005-11-23 12:52:06

那想请问这程式的开头要怎么写呢
因为dxf的资料有提供不选取就读取整张图面资料的代码吗

xyz518mm · 发表于 2005-11-23 14:27:17

以下是找到的一个程式,应该可以完成输入的程序
程序中使用entmake产生layer会有茫点
就是如果layer已存在它是不会改变的
线型颜色等设定不会依你的设定,这问题有办法解决吗?

程序内容如下:
(defun c:tslisp01 ( / data ff)
  (setvar "cmdecho" 0)
  (setq FF (open "c:\\LayerData.txt" "r"))
  (setq DATA (read-line FF))
  (while (/= DATA nil)
(setq DATA (read DATA))
(if (= (type DATA) 'LIST)
   (progn
(entmake (list '(0 . "layer")
                     '(100 . "AcDbSymbolTableRecord")
                     '(100 . "AcDbLayerTableRecord")
                     (cons 2 (nth 0 DATA))
                     '(70 . 0)
                     (cons 62 (nth 2 DATA))
                     (cons 6 (nth 1 DATA))
               )
      )
   )
)
(setq DATA (read-line FF))
  )
  (close FF)
(prin1)
)

;LayerData.txt档内容如下
图层名称  线型       颜色
("0"    "CONTINUOUS" 7)
("1"    "CONTINUOUS" 1)
("2"    "CONTINUOUS" 2)
("3"    "CONTINUOUS" 3)
end

tctabc · 发表于 2005-12-1 08:13:54

感谢楼主的解答

david96007 · 发表于 2005-12-5 21:45:36

网上找的，试过一次，只能导出，不能导入，就没再用！

;;; Layer list
;;;
;;; By Jimmy Bergmark
;;; Website: [url]www.jtbworld.com[/url]
;;; E-mail: [email]info@jtbworld.com[/email]
;;; 2000-03-15
;;;
;;; c:llfp <LayerListFilePrint>
;;; Save the layer list to a file, (can be imported to Excel)
;;;
;;; Example: (ax:layer-list)
;;; Return values: list of layers and all layerstates
;;; (<Layer Name> <On/Off> <Frozen/Thawed> <Locked/Not locked> <Color> <Linetype>
;;; <Lineweight> <Plotstylename> <Plottable/Not plottable> <Viewportdefault=Frozen/Not frozen>)
(defun ax:layer-list (/ lst layer colors color lw)
(setq colors '("Red" "Yellow" "Green" "Cyan" "Blue" "Magenta" "White"))
(vlax-for layer (vla-get-Layers
(vla-get-ActiveDocument
(vlax-get-acad-object)
)
)
(setq color (vla-get-color layer))
(if (< color 8) (setq color (nth (1- color) colors)) (setq color (itoa color)))
(setq lw (vla-get-lineweight layer))
(if (= lw -3) (setq lw "Default") (setq lw (rtos (/ lw 100.0) 2 2)))
(setq lst (cons
(list
(vla-get-name layer)
(if (= (vla-get-layeron layer) :vlax-true) "On" "Off")
(if (= (vla-get-freeze layer) :vlax-true) "Frozen" "Thawed")
(if (= (vla-get-lock layer) :vlax-true) "Locked" "Not locked")
color
(vla-get-linetype layer)
lw
(vla-get-plotstylename layer)
(if (= (vla-get-plottable layer) :vlax-true) "Plottable" "Not plottable")
(if (= (vla-get-viewportdefault layer) :vlax-true) "Frozen" "Not frozen")
) lst))
)
(vl-sort lst
(function (lambda (e1 e2)
(< (strcase (car e1)) (strcase (car e2)))
)
)
)
)
;;; Writes layer list to specified file
;;; (layer-list-fprint "test.txt")
;;; return: T if file was created, else nil
(defun layer-list-fprint (fn / f row col)
(if (setq f (open fn "w"))
(progn
; print header
(princ ""Layer Name" "On" "Frozen" "Locked" " f)
(princ ""Color" "Linetype" "Lineweight" "Plotstylename" " f)
(princ ""Plottable" "Viewportdefault"\n" f)
(foreach row (ax:layer-list)
(foreach col row
(prin1 col f)
(princ " " f) ; for tabulated (princ "\t" f)
)
(princ "\n" f)
)
(close f)
T
)
nil
)
)
(defun c:llfp (/ fn)
(if (setq fn
(getfiled "Save layer list as"
(strcat (vl-filename-base (getvar "dwgname")) ".txt")
"txt"
1
)
)
(if (layer-list-fprint fn)
(princ "\nLayer list created.")
(princ "\nError: Layer list not created!")
)
)
(princ)
)

;;; Layer list 
;;; 
;;; By Jimmy Bergmark 
;;; Copyright (C) 1997-2005 JTB World, All Rights Reserved 
;;; Website: [url]www.jtbworld.com[/url] 
;;; E-mail: [email]info@jtbworld.com[/email] 
;;; 2000-03-15 
;;; 
;;; c:llfp <LayerListFilePrint> 
;;; Save the layer list to a file, (can be imported to Excel) 
;;; 
;;; Example: (ax:layer-list) 
;;; Return values: list of layers and all layerstates 
;;;    (<Layer Name> <On/Off> <Frozen/Thawed> <Locked/Not locked> <Color> <Linetype> 
;;;        <Lineweight> <Plotstylename> <Plottable/Not plottable> <Viewportdefault=Frozen/Not frozen>) 
(defun ax:layer-list (/ lst layer colors color lw) 
  (setq colors '("Red" "Yellow" "Green" "Cyan" "Blue" "Magenta" "White")) 
  (vlax-for layer (vla-get-Layers 
                    (vla-get-ActiveDocument 
                      (vlax-get-acad-object) 
                    ) 
                  ) 
    (setq color (vla-get-color layer)) 
    (if (< color 8) (setq color (nth (1- color) colors)) (setq color (itoa color))) 
    (setq lw (vla-get-lineweight layer)) 
    (if (= lw -3) (setq lw "Default") (setq lw (rtos (/ lw 100.0) 2 2))) 
    (setq lst (cons 
                (list 
                  (vla-get-name layer) 
                  (if (= (vla-get-layeron layer) :vlax-true) "On" "Off") 
                  (if (= (vla-get-freeze layer) :vlax-true) "Frozen" "Thawed") 
                  (if (= (vla-get-lock layer) :vlax-true) "Locked" "Not locked") 
                  color 
                  (vla-get-linetype layer) 
                  lw 
                  (vla-get-plotstylename layer) 
                  (if (= (vla-get-plottable layer) :vlax-true) "Plottable" "Not plottable") 
                  (if (= (vla-get-viewportdefault layer) :vlax-true) "Frozen" "Not frozen") 
                ) lst)) 
  ) 
  (vl-sort lst 
           (function (lambda (e1 e2) 
                       (< (strcase (car e1)) (strcase (car e2))) 
                     ) 
           ) 
  ) 
) 
 
;;; Writes layer list to specified file 
;;; (layer-list-fprint "test.txt") 
;;; return: T if file was created, else nil 
(defun layer-list-fprint (fn / f row col) 
  (if (setq f (open fn "w")) 
    (progn 
      ; print header 
      (princ ""Layer Name" "On" "Frozen" "Locked" " f) 
      (princ ""Color" "Linetype" "Lineweight" "Plotstylename" " f) 
      (princ ""Plottable" "Viewportdefault"\n" f) 
      (foreach row (ax:layer-list) 
        (foreach col row 
          (prin1 col f) 
          (princ " " f) ; for tabulated (princ "\t" f) 
        ) 
        (princ "\n" f) 
      ) 
      (close f) 
      T 
    ) 
    nil 
  ) 
) 
 
(defun c:llfp (/ fn) 
  (if (setq fn 
             (getfiled "Save layer list as" 
                       (strcat (vl-filename-base (getvar "dwgname")) ".txt") 
                       "txt" 
                       1 
             ) 
      ) 
    (if (layer-list-fprint fn) 
      (princ "\nLayer list created.") 
      (princ "\nError: Layer list not created!") 
    ) 
  ) 
  (princ) 
)

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

[1123]请教如何撷取图层资料输出到TXT档案中呢?

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子