LISP.Экспорт описания типа линии из dwg файла в lin

VVA · 22.10.2007, 13:59

Собственно это и делает: экспортирует описание типа линии из dwg файла в lin файл. (для чего нужно)

Код:

;;; Опубликовано Keith
;;; http://www.theswamp.org/index.php?topic=506.0
;;; http://forum.dwg.ru/showthread.php?p=1787047
;;; ver 1.4  http://forum.dwg.ru/showpost.php?p=1787057&postcount=26
;;------------------------------------------------------------
;;  Команда: LTEXTRACT
;;  Эта команда позволяет экспортировать описание
;;  типов линий из чертежей (*.dwg) в файл описания типов линий (*.lin)
;;  Код можно сохранить в файле ltextract.lsp
;;  Возможный макрос для кнопки или пункта меню:
;;  ^C^C(if (not C:LTEXTRACT)(load "LTEXTRACT"));LTEXTRACT
;;------------------------------------------------------------
 
;;;   ----------- LTExtract - Version 1.4 -----------
;;;   Copyright (C) 2002-2008  by ResourceCAD International
;;;   Author:   K.E. Blackie
;;;   
;;;   
;;;   BCI COMPUTER SOLUTIONS PROVIDES THIS PROGRAM "AS IS" AND WITH
;;;   ALL FAULTS. RESOURCECAD INTERNATIONAL SPECIFICALLY DISCLAIMS ANY
;;;   IMPLIED WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR
;;;   USE.  RESOURCECAD INTERNATIONAL DOES NOT WARRANT THAT THE OPERATION
;;;   OF THE PROGRAM WILL BE UNINTERRUPTED OR ERROR FREE.
;;;   
;;;   
;;;   ResouceCAD International
;;;   http://www.resourcecad.com
;;;   
;;;   DESCRIPTION
;;;   LTExtract will extract all of the linetypes defined in a drawing to a seperate
;;;   linetype definition file, including complex linetypes using text and shape
;;;   modifiers.
;;;
;;;   August 17, 2002
;;;   April 23, 2008
;;;   Feb    19, 2016
;;;   ------------------------------------------------------------


(defun c:ltextract ( / dmz ltlist ltfile fn ltname ltdesc ltdef wval def)
  (setq dmz (getvar "DIMZIN"));_VVA 2019-03-05 ver 1.3
  (setvar "DIMZIN" 8);_VVA 2019-03-05 ver 1.3
  (setq ltlist (tblnext "LTYPE" t))
  (if ltlist
    (setq ltlist (entget (tblobjname "LTYPE" (cdr (assoc 2 ltlist)))))
  )
  (setq ltfile (getvar "dwgname"))
  (if (= (strcase (substr ltfile (- (strlen ltfile) 3) 4))
	 (strcase ".dwg")
      )
    (setq
      ltfile (strcat (substr ltfile 1 (- (strlen ltfile) 4)) ".lin")
    )
    (setq ltfile (strcat ltfile ".lin"))
  )
  (setq ltfile (getfiled "Save Linetype Definition As" ltfile "lin" 9))
  (if ltfile
    (progn
      (setq fn (open ltfile "w"))
      (while ltlist
	(setq ltname (strcat "*" (strcase (cdr (assoc 2 ltlist))))
	      ltdesc (cdr (assoc 3 ltlist))
	)
	(setq ltdef "A"
	      wval nil
	)
	(setq ltlist (member (assoc 49 ltlist) ltlist))
	(while (assoc 49 ltlist)
	  (setq wval (get74 ltlist))
	  (setq def (cdr (assoc 49 ltlist)))
	  (setq def (strcat "," (rtos def 2 8)))
	  (if wval
            (if (/= ltdef "A")                     ;_VVA 2019-03-10 ver 1.4
              (setq ltdef (strcat ltdef wval def)) ;_VVA 2019-03-10 ver 1.4
              (setq ltdef (strcat ltdef def wval)) ;_VVA 2019-03-10 ver 1.4
              )                                    ;_VVA 2019-03-10 ver 1.4
	    (setq ltdef (strcat ltdef def))
	  )
	  (if (> (length ltlist) 1)
	    (setq ltlist (cdr (member (assoc 49 ltlist) ltlist)))
	    (setq ltlist (list nil))
	  )
	)
	(setq ltlist (tblnext "LTYPE"))
	(if ltlist
	  (progn
	    (setq ltlist
		   (entget (tblobjname "LTYPE" (cdr (assoc 2 ltlist)))
		   )
	    )
	  )
	)
	(if (/= ltdef "A")
	  (progn
	    (write-line (strcat ltname "," ltdesc) fn)
	    (write-line ltdef fn)
	  )
	)
      )
      (close fn)
    )
  )
  (setvar "DIMZIN" dmz);_VVA 2019-03-05 ver 1.3
  (princ)
)

(defun get74 (wlist / rval)
  (setq ass74 (cdr (assoc 74 wlist)))
  (cond
    ((= ass74 0) (return nil nil nil nil))
    ((= ass74 1)
     (return (cdr (assoc 2 (entget (cdr (assoc 340 wlist)))))
	     nil
	     "a"
	     nil
     )
    )
    ((= ass74 2)
     (return (cdr (assoc 2 (entget (cdr (assoc 340 wlist)))))
	     (cdr (assoc 9 wlist))
	     "r"
	     nil
     )
    )
    ((= ass74 3)
     (return (cdr (assoc 2 (entget (cdr (assoc 340 wlist)))))
	     (cdr (assoc 9 wlist))
	     "a"
	     nil
     )
    )
    ((= ass74 4)
     (return (cdr (assoc 3 (entget (cdr (assoc 340 wlist)))))
	     nil
	     "r"
	     (cdr (assoc 75 wlist))
     )
    )
    ((= ass74 5)
     (return (cdr (assoc 3 (entget (cdr (assoc 340 wlist)))))
	     nil
	     "a"
	     (cdr (assoc 75 wlist))
     )
    )
    (T (return nil nil nil nil))
  )
  rval
)

(defun return (shx text rot shp / ttext)
  (setq test (cdr (assoc 50 wlist)))
  (if (and test rot)
    (setq rot (strcat rot "=" (angtos test 0 3))) ;_VVA 2019-03-05 ver 1.3
  )
  (setq test (cdr (assoc 46 wlist)))
  (if (and test rot)
    (setq rot (strcat rot ",S=" (rtos test 2 8)))
  )
  (setq test (cdr (assoc 44 wlist)))
  (if (and test rot)
    (setq rot (strcat rot ",X=" (rtos test 2 8)))
  )
  (setq test (cdr (assoc 45 wlist)))
  (if (and test rot)
    (setq rot (strcat rot ",Y=" (rtos test 2 8)))
  )
  (if text
    (setq ttext (strcat ",[\"" text "\"," shx "," rot "]"))
  )
  (if (and (not text) shp)
    (setq ttext (strcat ",[" (getname shp shx) "," shx "," rot "]"))
  )
  (setq rval ttext)
)

(defun getname (shape shapefile / tmp)
  (setq ss1 shape ss2 shapefile)
  (if (and
        (or (setq tmp (findfile shapefile))
          (setq tmp (findfile (strcat shapefile ".shx")))
          )
        (setq shapefile (findfile tmp))
        )
  (if (setq sfn (open shapefile "r"))
    (progn
      (repeat 23
	(read-char sfn)
      )
      (setq lownum (read-char sfn))
      (read-char sfn)
      (setq charcount (- shape lownum))
      (setq hignum (read-char sfn))
      (read-char sfn)
      (setq shpcount (read-char sfn))
      (read-char sfn)
      (repeat (* shpcount 4)
	(read-char sfn)
      )
      (setq zerocount 0)
      (while (< zerocount (* charcount 2))
	(setq this (read-char sfn))
	(if (= this 0)
	  (setq zerocount (1+ zerocount))
	)
      )
      (setq char1 (read-char sfn))
      (setq name "")
      (while (/= 0 char1)
	(setq name (strcat name (chr char1)))
	(setq char1 (read-char sfn))
      )
      (close sfn)
      name
    )
    "\"ERROR\""
  )
    "\"ERROR\""
    )
)
(princ "\nType LTEXTRACT in command line (ver 1.4)")(princ)

dextron3 · 24.10.2007, 21:57

А в каких случаях этот лисп собственно говоря можно использовать?
И в каких отраслях?

Makswell · 28.12.2007, 11:48

С этими линиями ничего не получилось.
См. файл.

Makswell · 29.12.2007, 09:05

Я так понял, код не может справиться с типами линий, которые ипользуют файлы форм shx.
Как же извлечь инфу об этих файлах из типа линий?
По примеру, кода от VVA я набрал:

Код:

[Выделить все]

(entget (tblobjname "LTYPE" (cdr (assoc 2 (tblnext "LTYPE")))))

и получил:

Цитата:

Команда: (entget (tblobjname "LTYPE" (cdr (assoc 2 (tblnext "LTYPE")))))
((-1 . <Имя объекта: 7efb1c60>) (0 . "LTYPE") (330 . <Имя объекта: 7efb1d08>)
(5 . "C") (100 . "AcDbSymbolTableRecord") (100 . "AcDbLinetypeTableRecord") (2
. "РАЗРЫВ") (70 . 0) (3 . "Линия разрыва ------/|/--------") (72 . 65) (73 . 4)
(40 . 42.3095) (49 . 40.0) (74 . 4) (75 . 130) (340 . <Имя объекта: 7efb1c68>)
(46 . 1.1547) (50 . -0.523599) (44 . 0.5) (45 . 1.1547) (49 . -1.1547) (74 . 4)
(75 . 130) (340 . <Имя объекта: 7efb1c68>) (46 . 2.0) (50 . 0.0) (44 . 0.0) (45
. 0.0) (49 . -1.1547) (74 . 4) (75 . 130) (340 . <Имя объекта: 7efb1c68>) (46 .
1.1547) (50 . -0.523599) (44 . -0.5) (45 . -1.1547) (49 . 0.0001) (74 . 0))

Команда: (entget (tblobjname "LTYPE" (cdr (assoc 2 (tblnext "LTYPE")))))
((-1 . <Имя объекта: 7efb1c78>) (0 . "LTYPE") (330 . <Имя объекта: 7efb1d08>)
(5 . "F") (100 . "AcDbSymbolTableRecord") (100 . "AcDbLinetypeTableRecord") (2
. "ГРУНТ") (70 . 0) (3 . "Линия грунта _____/_/_/______") (72 . 65) (73 . 3)
(40 . 19.0) (49 . 15.0) (74 . 4) (75 . 130) (340 . <Имя объекта: 7efb1c68>) (46
. 2.0) (50 . -0.785398) (44 . 0.0) (45 . -1.5) (49 . 2.0) (74 . 4) (75 . 130)
(340 . <Имя объекта: 7efb1c68>) (46 . -1.7) (50 . -0.785398) (44 . 0.0) (45 .
-1.5) (49 . 2.0) (74 . 4) (75 . 130) (340 . <Имя объекта: 7efb1c68>) (46 .
-1.7) (50 . -0.785398) (44 . 0.0) (45 . -1.5))

Никакой инфы о файлах SHX я здесь не увидел...

ЗЫ Мне действительно нужно вытащить описания этих типов линий, т.к. у меня уже давно все нужные типы подгружаются программно из lin-файла, а описания этих двух типов я вынужден хранить в шаблоне файла чертежа.

Александр Ривилис · 30.12.2007, 21:33

Цитата:

Command: (setq a (entget (tblobjname "LTYPE" (cdr (assoc 2 (tblnext
"LTYPE"))))))
((-1 . <Entity name: 7ef62c60>) (0 . "LTYPE") (330 . <Entity name: 7ef62d08>)
(5 . "C") (100 . "AcDbSymbolTableRecord") (100 . "AcDbLinetypeTableRecord") (2
. "РАЗРЫВ") (70 . 0) (3 . "Линия разрыва ------/|/--------") (72 . 65) (73 . 4)
(40 . 42.3095) (49 . 40.0) (74 . 4) (75 . 130) (340 . <Entity name: 7ef62c68>)
(46 . 1.1547) (50 . -0.523599) (44 . 0.5) (45 . 1.1547) (49 . -1.1547) (74 . 4)
(75 . 130) (340 . <Entity name: 7ef62c68>) (46 . 2.0) (50 . 0.0) (44 . 0.0) (45
. 0.0) (49 . -1.1547) (74 . 4) (75 . 130) (340 . <Entity name: 7ef62c68>) (46 .
1.1547) (50 . -0.523599) (44 . -0.5) (45 . -1.1547) (49 . 0.0001) (74 . 0))

Command: (setq b (entget (cdr (assoc 340 a)))) ((-1 . <Entity name: 7ef62c68>)
(0 . "STYLE") (330 . <Entity name: 7ef62cf0>) (5 . "D") (100 .
"AcDbSymbolTableRecord") (100 . "AcDbTextStyleTableRecord") (2 . "") (70 . 1)
(40 . 0.0) (41 . 1.0) (50 . 0.0) (71 . 0) (42 . 2.5) (3 . "ltypeshp.shx") (4 .
""))

Command: (setq fname (cdr (assoc 3 b)))
"ltypeshp.shx"

Так понятнее?

Makswell · 15.01.2008, 14:23

Разобрался.
Программа не работала с типами линий которые использовали файл форм, потому что не могла найти этот файл.
Чтобы заработало надо:

Код:

[Выделить все]

(defun getname (shape shapefile)
  (if (setq sfn (open shapefile "r"))
    (progn...

заменить на:

Код:

[Выделить все]

(defun getname (shape shapefile)
  (if (setq sfn (open (findfile shapefile) "r"))
    (progn...

VVA · 15.01.2008, 15:33

Исправил код в #1

Makswell · 19.03.2008, 15:56

Вот новый вариант (красным отмечены изменения).
1. Я сделал локальными некоторые переменные, т.к. прога иногда вела себя не предсказуемо.
2. Также переделан алгоритм формирования строки с кодами выравнивания, т.к. с некоторыми типами линий старый алгоритм работал неправильно (например с типом линии "РАЗРЫВ" из моего поста №3).
3. А главное - введено изменение сист. переменной DIMZIN, для того, чтобы подавить замыкающие нулевые значения в десятичных числах. Во-первых получается более красивый результат. А во-вторых, я так понял, в файле с типами линий есть ограничение на длину строки, потому что некоторые типы линий с длинными строками кодов выравнивания у меня не хотели загружаться. Но после того, как были убраны замыкающие нули, они (т.е. типы линий) загрузились без проблем.
4. Ну еще внесены некоторые косметические изменения.

Код:

[Выделить все]

;;Опубликовано Keith
;; http://www.theswamp.org/index.php?topic=506.0
;;упоминалась http://dwg.ru/f/showthread.php?t=14319
					;------------------------------------------------------------
					;  Команда: LTEXTRACT
					;  Эта команда позволяет экспортировать описание
					;  типов линий из чертежей (*.dwg) в файл описания типов линий (*.lin)
					;  Код можно сохранить в файле ltextract.lsp
					;  Возможный макрос для кнопки или пункта меню:
					;  ^C^C(if (not C:LTEXTRACT)(load "LTEXTRACT"));LTEXTRACT
					;------------------------------------------------------------

;;;   ----------- LTExtract - Version 1.0 -----------
;;;   Copyright (C) 2002  by BCI Computer Solutions
;;;   Author:   K.E. Blackie
;;;   
;;;   
;;;   BCI COMPUTER SOLUTIONS PROVIDES THIS PROGRAM "AS IS" AND WITH
;;;   ALL FAULTS. BCI COMPUTER SOLUTIONS SPECIFICALLY DISCLAIMS ANY
;;;   IMPLIED WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR
;;;   USE.  BCI COMPUTER SOLUTIONS DOES NOT WARRANT THAT THE OPERATION
;;;   OF THE PROGRAM WILL BE UNINTERRUPTED OR ERROR FREE.
;;;   
;;;   If you need to contact BCI Computer Solutions concerning this
;;;   program you may do so by mail at the following address:
;;;   
;;;   BCI Computer Solutions
;;;   2031 SW Fallon Lane
;;;   Lake City, FL 32025 
;;;   Attn: Software Development
;;;   or
;;;   email lisper@bcinc.hypermart.net
;;;   
;;;   DESCRIPTION
;;;   LTExtract will extract all of the linetypes defined in a drawing to a seperate
;;;   linetype definition file, including complex linetypes using text and shape
;;;   modifiers.
;;;
;;;
;;;   ------------------------------------------------------------

(Defun c:ltextract
       (/ ltlist ltfile fn ltname wval ltdef def old_DIMZIN)
  (setq old_DIMZIN (getvar "DIMZIN"))
  (setvar "DIMZIN" 8)
  (setq ltlist (tblnext "LTYPE" t))
  (if ltlist
    (setq ltlist (entget (tblobjname "LTYPE" (cdr (assoc 2 ltlist)))))
  )
  (setq ltfile (getvar "dwgname"))
  (if (= (strcase (substr ltfile (- (strlen ltfile) 3) 4))
	 (strcase ".dwg")
      )
    (setq
      ltfile (strcat (substr ltfile 1 (- (strlen ltfile) 4)) ".lin")
    )
    (setq ltfile (strcat ltfile ".lin"))
  )
  (setq ltfile (getfiled "Save Linetype Definition As" ltfile "lin" 9))
  (if ltfile
    (progn
      (setq fn (open ltfile "w"))
      (while ltlist
	(setq ltname (strcat "*" (strcase (cdr (assoc 2 ltlist))))
	      ltdesc (cdr (assoc 3 ltlist))
	)
	(setq ltdef "A"
	      wval nil
	)
	(setq ltlist (member (assoc 49 ltlist) ltlist))
	(while (assoc 49 ltlist)
	  (setq def (cdr (assoc 49 ltlist)))
	  (setq def (strcat "," (rtos def 2 8)))
	  (setq ltdef (strcat ltdef def))
	  (setq ltlist (cdr (member (assoc 49 ltlist) ltlist)))
	  (setq wval (get74 ltlist))
	  (if wval
	    (setq ltdef (strcat ltdef wval))
	  )
;;;-------------старый код<начало>-------------
;;;	  (setq wval (get74 ltlist))
;;;	  (setq def (cdr (assoc 49 ltlist)))
;;;	  (setq def (strcat "," (rtos def 2 8)))
;;;	  (if wval
;;;	    (setq ltdef (strcat ltdef wval def))
;;;	    (setq ltdef (strcat ltdef def))
;;;	  )
;;;	  (if (> (length ltlist) 1)
;;;	    (setq ltlist (cdr (member (assoc 49 ltlist) ltlist)))
;;;	    (setq ltlist (list nil))
;;;	  )
;;;-------------старый код<конец>-------------
	)
	(setq ltlist (tblnext "LTYPE"))
	(if ltlist
	  (progn
	    (setq ltlist
		   (entget (tblobjname "LTYPE" (cdr (assoc 2 ltlist)))
		   )
	    )
	  )
	)
	(if (/= ltdef "A")
	  (progn
	    (write-line (strcat ltname "," ltdesc) fn)
	    (write-line ltdef fn)
	  )
	)
      )
      (close fn)
    )
  )
  (setvar "DIMZIN" old_DIMZIN)
  (princ)
)

(defun get74 (wlist / ass74 rval)
  (setq ass74 (cdr (assoc 74 wlist)))
  (cond
    ((= ass74 0) (return nil nil nil nil))
    ((= ass74 1)
     (return (cdr (assoc 2 (entget (cdr (assoc 340 wlist)))))
	     nil
	     "A"
	     nil
     )
    )
    ((= ass74 2)
     (return (cdr (assoc 2 (entget (cdr (assoc 340 wlist)))))
	     (cdr (assoc 9 wlist))
	     "R"
	     nil
     )
    )
    ((= ass74 3)
     (return (cdr (assoc 2 (entget (cdr (assoc 340 wlist)))))
	     (cdr (assoc 9 wlist))
	     "A"
	     nil
     )
    )
    ((= ass74 4)
     (return (cdr (assoc 3 (entget (cdr (assoc 340 wlist)))))
	     nil
	     "R"
	     (cdr (assoc 75 wlist))
     )
    )
    ((= ass74 5)
     (return (cdr (assoc 3 (entget (cdr (assoc 340 wlist)))))
	     nil
	     "A"
	     (cdr (assoc 75 wlist))
     )
    )
    (T (return nil nil nil nil))
  )
  rval
)

(defun return (shx text rot shp / ttext test)
  (setq test (cdr (assoc 50 wlist)))
  (if (and test rot)
    (setq rot (strcat rot "=" (angtos test)))
  )
  (setq test (cdr (assoc 46 wlist)))
  (if (and test rot)
    (setq rot (strcat rot ",S=" (rtos test 2 8)))
  )
  (setq test (cdr (assoc 44 wlist)))
  (if (and test rot)
    (setq rot (strcat rot ",X=" (rtos test 2 8)))
  )
  (setq test (cdr (assoc 45 wlist)))
  (if (and test rot)
    (setq rot (strcat rot ",Y=" (rtos test 2 8)))
  )
  (if text
    (setq ttext (strcat ",[\"" text "\"," shx "," rot "]"))
  )
  (if (and (not text) shp)
    (setq ttext (strcat ",[" (getname shp shx) "," shx "," rot "]"))
  )
  (setq rval ttext)
)

(defun getname (shape	  shapefile /	      sfn	lownum
		charcount shpcount  zerocount this	name
		char1	       )
  (if (setq sfn (open (findfile shapefile) "r"))
    (progn
      (repeat 23
	(read-char sfn)
      )
      (setq lownum (read-char sfn))
      (read-char sfn)
      (setq charcount (- shape lownum))
      (setq hignum (read-char sfn))
      (read-char sfn)
      (setq shpcount (read-char sfn))
      (read-char sfn)
      (repeat (* shpcount 4)
	(read-char sfn)
      )
      (setq zerocount 0)
      (while (< zerocount (* charcount 2))
	(setq this (read-char sfn))
	(if (= this 0)
	  (setq zerocount (1+ zerocount))
	)
      )
      (setq char1 (read-char sfn))
      (setq name "")
      (while (/= 0 char1)
	(setq name (strcat name (chr char1)))
	(setq char1 (read-char sfn))
      )
      (close sfn)
      name
    )
  )
)
;(princ)

VVA · 10.06.2009, 10:40

Обновил #1. Выложена версия 1.1. Возможны различия с кодом #8 (не сверял)

InfoGIP · 19.01.2011, 22:09

Добрый день!
Помогите пожалуйста.
Попытался воспользоваться вашей лисповой командой и получил:
1. Окошко куда сохранять появляется.
2. Пишет в командной строке:
--------------------------------------
Команда: _ltextract
; ошибка: неверный тип аргумента: stringp nil
--------------------------------------
Что делать не знаю :-(
полный Acad 2011.

VVA · 20.01.2011, 10:23

1.Пробовал лисп из поста #1 и #8?
2.Если да, то выложи файл на котором появляется ошибка

99xt1 · 12.03.2012, 09:06

День добрый!
Пробовал лисп из поста №1. В результате получаем в lin файле такую запись:

Цитата:

*KIP2,KIP2 --o--
A,4.5,-1.72,["o",kipline,r=0,S=0.6,X=-0.3,Y=-0.5],-1.72
*KIP1,KIP1 ---\---
A,1.7,-0.88,1.7,-0.88,1.7,-0.44,["\",kipline,r=0,S=0.6,X=-4.6,Y=-0.6],-0.44
*KIP3,Kip3 -//-
A,["/ /",kipline,r=0,S=0.5,X=-0.6,Y=-0.75],6,["/ /",kipline,r=0,S=0.5,X=-0.6,Y=-0.75],4

Насколько я понимаю, должен быть файл kipline.shх в котором должны быть следующие формы "o", "\", "/ /".
Но такого файла у меня нет. А линии отображаются верно. Почему так происходит?

VVA · 12.03.2012, 09:16

Цитата:

Сообщение от 99xt1

А линии отображаются верно. Почему так происходит?

Судя по описанию, kipline - это текстовый стиль. Ниже пример из файла acadiso.lin. Красным выделено использование форм (shape), для которых нужно наличие shx файла, синим - текстовых строк. Форма вызывается по имени (в примере BAT). Обрати внимание на кавычки "".

Цитата:

*изоляция,Изоляция SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS
A,.00254,-2.54,[BAT,ltypeshp.shx,x=-2.54,s=2.54],-5.08,[BAT,ltypeshp.shx,r=180,x=2.54,s=2.54],-2.54
*горячая_вода,Горячее водоснабжение ---- HW ---- HW ---- HW ----
A,12.7,-5.08,["HW",STANDARD,S=2.54,R=0.0,X=-2.54,Y=-1.27],-5.08

99xt1 · 12.03.2012, 11:37

Всё ясно. Разобрался. Спасибо

ryabinov · Регистрация: 30.11.2012

Уважаемый VVA, вот файлы на которых программа не работает. lin файл создается, но там где используется файл форм, не корректно прописываются названия форм. Похоже не понимает dos кодировку.

VVA · 27.02.2014, 14:44

Сделал purge и в настройках текстовых стилей снял галку "использовать большой шрифт"

ryabinov · 27.02.2014, 14:53

Попробуйте загрузить какой-нибудь тип линии из этого файла. Автокад ругается практически на все строки. Много таких вот структур [,dgnlstyle.shx ... , то есть указан файл форм, а имя формы пропущено.

Baban · 28.03.2014, 12:31

У меня такая же ошибка как и в #10. Пробовал использовать оба кода из #1 и из #8.
Файл из которого хотел извлечь линии приложен. У меня автокад 2014.

VVA · 19.02.2016, 17:07

Цитата:

Сообщение от Baban

У меня такая же ошибка как и в #10. Пробовал использовать оба кода из #1 и из #8.
Файл из которого хотел извлечь линии приложен. У меня автокад 2014.

Добавил в #1 проверку на отсутствие shx файлов. Если shx файл не найден, то будет выведена строка "ERROR"

mindchamber · 28.09.2017, 15:29

Добрый день!
В первую очередь хочу сказать спасибо VVA за его скрипты, столько раз выручали, что уже не сосчитать. Что же касается этого лиспа - он экспортирует абсолютно все линии из dwg файла, а как можно экспортировать один единственный тип выбранного объекта?

Очень странно, что столько полезный инструмент не присутствует в "голом" автокаде.

Спасибо

VVA · 28.09.2017, 16:15

mindchamber, А какая проблема найти в текстовом файле поиском нужное описание по имени и скопировать в новый файл?
Или удалить все кроме нужного
?

mindchamber · 02.10.2017, 21:35

Цитата:

Сообщение от VVA

mindchamber, А какая проблема найти в текстовом файле поиском нужное описание по имени и скопировать в новый файл?
Или удалить все кроме нужного
?

Бесспорно тут вы правы. Но когда файл обходит пару тройку аутсорс инженеров, то файл довольно сильно "распухает", что делает затруднительным поиск соответствующего типа линии. Как бы то ни было ни у кого такой проблемы не возникло, так что не утруждайте себя ответом на мое сообщение. Благодарю.

VVA · 03.10.2017, 13:58

Цитата:

Сообщение от mindchamber

файл довольно сильно "распухает",

Есть очень большое подозрение, что дело в "словарях DGN"
Читать 1-й пост Помогите уменьшить размер файла DWG и FАQ Как уменьшить объем файла dwg

maiklbua · 28.02.2019, 15:01

Доброго всем дня.
Не могу сам разрешить проблему.
С помощью лиспа LTEXTRACT(экспорт линий в Lin) создаю файл с типами линий.

описание из файла .Lin
*ЖЕЛЗНЫЕ ДОРОГИ(ОСЕВАЯ),Желзные дороги(осевая)
A,0.00000000,-12.00000000,[TRACK1,ltypeshp.shx,r=0d0'0",S=2.00000000,X=0.00000000,Y=0.00000000],0.00000000
*ЖЕЛЗНЫЕ ДОРОГИ УЗКОКОЛЕЙНЫЕ (ОСЕВАЯ),Желзные дороги узкоколейные (осевая)
A,0.00000000,-6.00000000,[TRACK1,ltypeshp.shx,r=0d0'0",S=1.50000000,X=0.00000000,Y=0.00000000],-6.00000000,[TRACK1,ltypeshp.shx,r=0d0'0",S=1.00000000,X=0.00000000,Y=0.00000000],0.00000000
*ТРАМВАЙНЫЕ ЛИНИИ,Трамвайные линии
A,0.00000000,-6.00000000,[TRACK1,ltypeshp.shx,r=0d0'0",S=2.00000000,X=0.00000000,Y=0.00000000],-6.00000000,[TRACK1,ltypeshp.shx,r=0d0'0",S=1.50000000,X=0.00000000,Y=0.00000000],0.00000000

Далее пытаюсь его загрузить в чистый чертеж и получаю ниже следующий ответ.
---------------------------
AutoCAD
---------------------------

Некорректное определение типа линий ЖЕЛЗНЫЕ ДОРОГИ(ОСЕВАЯ) в строке 2 файла C:\Users\fox\Desktop\Почта\Чертеж3.lin:
В выражении должны присутствовать R, A, U, S, X или Y
---------------------------
ОК
---------------------------

Нажмите на изображение для увеличения
Название: Screenshot_3.jpg
Просмотров: 97
Размер: 70.3 Кб
ID: 211460

kacugu · 28.02.2019, 15:10

Замените везде 0d0'0'' на 0

Александр Ривилис · 28.02.2019, 15:20

VVA,
Документация подсказывает, что углы должны быть в градусах (по умолчанию - иначе нужен суффикс d, r или g). Соответственно вместо

Код:

[Выделить все]

 (angtos test)

должно быть

Код:

[Выделить все]

 (angtos test 0) ;; Возможно следует сразу задать сразу и точность: (angtos test 0 3)

Кроме того в силу ограничения длины строки в 80 символов настоятельно рекомендуется установить DIMZIN в 8 (или 12) для отбрасывания замыкающих (и ведущих) нулей.

maiklbua · 04.03.2019, 15:28

огромное спасибо.
с кодами к Лиспам мне пока еще рано. Я в них ни чего не понимаю.

VVA · 05.03.2019, 09:30

Обновил #1 до версии 1.3
maiklbua, можешь попробовть

maiklbua · 07.03.2019, 14:21

Доброго дня Лисп попробовал обновленный 1.3. файл Lin создался без 0d0'0' и лишних нулей. но при загрузке в чистый чертеж автокад ругается и не все линии ест.

Нажмите на изображение для увеличения
Название: Screenshot_4.jpg
Просмотров: 79
Размер: 168.8 Кб
ID: 211697

Типы Линий.dwg

VVA · 10.03.2019, 13:32

Цитата:

Сообщение от maiklbua

но при загрузке в чистый чертеж автокад ругается и не все линии ест.

Обновил до версии 1.4
При загрузке в чистый чертеж по прежнему будет ругаться, т.к. в описании некоторых типов линий используется стиль Бм-431
Его предварительно нужно создать

Цитата:

*ВОДОПРОВОД НАЗЕМНЫЙ,Водопровод наземный
A,20,-2,["В",Бм-431,r=0,S=1,X=-1.9,Y=-0.875],20

maiklbua · 12.03.2019, 09:24

все получилось,
Безмерно благодарен за ваш труд.

peltsve · Регистрация: 25.03.2013

Всем привет.
Научился создавать линии через Express, mkltype и т.п.
Вижу что есть восхитительный макрос извлекающий эти данные из DWG.
Вижу в сети массу файлов с прописанными внутрь типами линий, которые великолепно позволяют копировать в голые файлы линии любого типа, автоматически перенося абсолютно левый тип линии прямо в чертеж.
Вопрос остался один, как собственно в dwg то люди добрые внедряют их, а?

peltsve · Регистрация: 25.03.2013

Я к тому, что Lin понятно как подгружаем, но если они используют какие то левые шейпы, которых нет в автоподгружаемых или системных таблицах, то как работают линии и их копирование из файла в файл, представленные в приложеном файле не понятно. А попытка сграбить все линии из него lisp-ом из этого топика - дает очень много ошибок. См. файлы...

VVA · 07.11.2019, 08:01

Цитата:

Сообщение от peltsve

Вопрос остался один, как собственно в dwg то люди добрые внедряют их, а?

Не создают собственные shx файлы, а для описания "зигзагов", "крючочков", "черточек" используют стандарнтый ltypeshp.shx
Пример еще пример
и цитата

Цитата:

Для всех описаний используется файл ltypeshp.shx, который входит в стандартную поставку AutoCAD и BricsCad, таким образом минимизируются проблемы с отображением при переносе файлов. Правда в седьмую версию BricsCad этот файл почему-то не вошел, поэтому в архиве прилагаю и его.

А вот пример с собственным shx файлом. Поэтому для передачи чертежа на сторону нужно использовать _etransmit

peltsve · 07.11.2019, 08:46

Цитата:

Сообщение от VVA

Не создают собственные shx файлы, а для описания "зигзагов", "крючочков", "черточек" используют стандарнтый ltypeshp.shx
Пример еще пример

Понял. Тогда во вложенном #33 примере линии копируются из файла в файл хорошо потому что используются типовые файлы форм присутствующие у всех по умолчанию.. Но ваш lisp версии 1.4 вместо многих названий шейпов пишет error.. это потому что не все shx при работе может найти - подгрузить? (результат работы в этом же каталоге).

VVA · 07.11.2019, 23:45

Цитата:

Сообщение от peltsve

Но ваш lisp версии 1.4 вместо многих названий шейпов пишет error.. это потому что не все shx при работе может найти - подгрузить?

Автор указан в первых строчках

Цитата:

;;; Опубликовано Keith
;;; http://www.theswamp.org/index.php?topic=506.0

Чтобы зайти на форум требуется регистрация, поэтому код выложен здесь
В остальном все верно

Цитата:

(if (and
(or (setq tmp (findfile shapefile))
(setq tmp (findfile (strcat shapefile ".shx")))
)

Nazarova · 11.07.2020, 16:35

Здравствуйте. Пытаясь извлечь описание описанными выше способами удалось выдернуть только часть линий, не могу разобраться что делаю не так с другими, или может ошибка изначально в формах, как это выяснить не знаю. Формы имеются. Файл шаблона откуда извлекаю прилагаю. Помогите пожалуйста выяснить как правильно исправить описание, чтобы линии загрузились.
Извлеченное описание и результат моих поправок вложила в архив.https://cloud.mail.ru/public/4M2h/3X8k5Wegp

Nazarova · 11.07.2020, 16:38

Это то, что извлеклось, но акад завис и закрылся только принудительно.
https://forum.dwg.ru/attachment.php?...1&d=1594474667
То,что получила после исправлений
https://forum.dwg.ru/attachment.php?...1&d=1594474667

Nazarova · 11.07.2020, 16:45

Находила исходник в папке support, пыталась создать папку по пути из этого описания и положить туда формы, тоже безрезультатно.
Вообще на форуме не встретила примера, чтобы в описании был путь указан.
https://forum.dwg.ru/attachment.php?...1&d=1594475106

mindchamber · 06.11.2020, 19:48

Здравствуйте! Почему не экспортируется тип линий?

VVA · 06.11.2020, 23:07

mindchamber, Экспортируется

Цитата:

*БОРДЮР(R),Бордюр Право
A,0.75,[TRACK1,ltypeshp.shx,r=0,S=0.075,X=0,Y=-0.075],[TRACK1,ltypeshp.shx,r=0,S=0.075,X=0,Y=-0.075],0.1,[TRACK1,ltypeshp.shx,r=0,S=0.075,X=0,Y=-0.075],0.75

Учти, что масштаб типа линии для твоего отрезка равен 5.
Правильнее в описании типа линии откорректировать размеры, чтобы масштаб типа линии примитивов был равен 1
Типа такого

Цитата:

*БОРДЮР(R),Бордюр Право
A,0.75,[TRACK1,ltypeshp.shx,r=0,S=0.375,X=0,Y=-0.375],[TRACK1,ltypeshp.shx,r=0,S=0.375,X=0,Y=-0.375],0.5,[TRACK1,ltypeshp.shx,r=0,S=0.375,X=0,Y=-0.375],0.75

mindchamber · 13.11.2020, 10:23

Цитата:

Сообщение от VVA

mindchamber, Экспортируется

У меня пишет эту ошибку и экспортирует пустой файл. В чем может быть проблема?

Нашел другой lisp, вроде не выдает эту ошибку.
upd: нет, все равно не все типы линий экспортирует... autocad 2021

Barmaley Bubusikin · 13.11.2020, 17:54

Сам пользуюсь LTEXTRACTом, но в этом чертеже корректнее сработал linout, - он убрал дубликат первой черты линии: [TRACK1,ltypeshp.shx,s=0.075,r=0,x=0,y=-0.075].

DmAK · 17.11.2020, 12:37

Присоединяюсь к mindchamber, большое спасибо VVA за полезные коды! Удивляюсь, когда поднимают вопрос применения данного лиспа. Так пишут те, кто никогда не передавал файлы заказчикам.
Но у меня возникают ошибки при загрузке выгруженного этим кодом файла. И я проанализировал то, что выгружает лисп на примере нескольких описаний линий.
Оригинальное описание линии:
*500_84_1, Откосы неукрепленные
A,1,[TOPOLINE,Topography.shx,S=1.2,R=90,X=0,Y=0],1,[TOPOLINE,Topography.shx,S=0.5,R=90,X=0,Y=0]
Выгруженное с помощью кода:
*500_84_1, Откосы неукрепленные
A,1,[TOPOLINE,Topography.shx,r=90,S=1.2,X=0,Y=0],[TOPOLINE,Topography.shx,r=90,S=1.2,X=0,Y=0],1

Как видите единичка улетает в конец описания. И-за этого не корректно отображается вид линии.
Далее...

Оригинальное описание линии:
*500_145_1, Участки с изрытой поверхностью
A,0.9,[TOPOZUBFILL,Topography.shx,S=-0.8,R=0],0
Выгруженное с помощью кода:
*500_145_1, Участки с изрытой поверхностью
A,0.9,[,Topography.shx,r=0,S=-0.8,X=0,Y=0],[,Topography.shx,r=0,S=-0.8,X=0,Y=0],0

Оригинальное описание линии:
*500_104, Сооружения морских нефтепромыслов разрушенные и полуразрушенные
A,0,[TOPOCIRCLEFILL,Topography.shx,S=1,R=0,X=0,Y=0],-1
Выгруженное с помощью кода:
*500_104, Сооружения морских нефтепромыслов разрушенные
A,0,[,Topography.shx,r=0,S=1,X=0,Y=0],[,Topography.shx,r=0,S=1,X=0,Y=0],-1
В следствие этого возникают ошибки.

Надеюсь это не из-за того что у меня кривой автокад. Хотя я допускаю это.

mindchamber · 18.03.2021, 10:01

Экспортируйте кто-нибудь пожалуйста этот тип линий. Хочу сделать стрелку двухстороннюю но без промежуточной линии. Во вложениях dwg.

koMon · 18.03.2021, 11:32

Код:

[Выделить все]

*119_3,"Электрокабель подземный низкого напряжения ---
A,2.0,-1.0,
[TRACK1,ltypeshp.shx,s=0.2,r=45,x=0.14142,y=-0.14142],
0.0,
[TRACK1,ltypeshp.shx,s=0.2,r=135,x=0.14142,y=0.14142],
4.0,
[TRACK1,ltypeshp.shx,s=0.2,r=135,x=-0.14142,y=-0.14142],
0.0,
[TRACK1,ltypeshp.shx,s=0.2,r=45,x=-0.14142,y=0.14142],
-1.0,2.0,0

mindchamber · 22.03.2021, 12:16

Цитата:

Сообщение от koMon

Код:

[Выделить все]

*119_3,"Электрокабель подземный низкого напряжения ---
A,2.0,-1.0,
[TRACK1,ltypeshp.shx,s=0.2,r=45,x=0.14142,y=-0.14142],
0.0,
[TRACK1,ltypeshp.shx,s=0.2,r=135,x=0.14142,y=0.14142],
4.0,
[TRACK1,ltypeshp.shx,s=0.2,r=135,x=-0.14142,y=-0.14142],
0.0,
[TRACK1,ltypeshp.shx,s=0.2,r=45,x=-0.14142,y=0.14142],
-1.0,2.0,0

Спасибо. Как вы это сделали?

koMon · 22.03.2021, 14:05

пишу очередной экстрактор

koMon · 05.04.2021, 09:57

Цитата:

Сообщение от Nazarova

Помогите пожалуйста выяснить как правильно исправить описание, чтобы линии загрузились.

не копаясь глубоко.

Код:

[Выделить все]

*ACAD_ISO03W100,ISO штриховая (дл. промежутки) __    __    __
A,12,-18
*ACAD_ISO07W100,ISO dot . . . . . . . . . . . . . . . . . . . .
A,0,-0.3
*ACAD_ISO10W100,ISO ш/пункт. __ . __ . __ . __ . __ . __ . __ .
A,12,-3,0,-3
*ACAD_ISO12W100,ISO ш/пункт. (2 точки) __ . . __ . . __ . . __
A,12,-3,0,-3,0,-3
*DASHEDX2,Dashed (2x) ____  ____  ____  ____  ____  ___
A,1,-0.5
*DOT,Dot . . . . . . . . . . . . . . . . . . . . . .
A,0,-0.25
*FENCELINE1,Fenceline circle ----0-----0----0-----0----0---
A,15,-2,[CIRC1,ltypeshp.shx,s=1.5,x=-2],-1,15
*GPodsc,GPodsc
A,10,-3,[ШТРИХ_ВЕРТИКАЛЬНЫЙ,STRICH.shx,s=0.5],-2,
[ШТРИХ_ВЕРТИКАЛЬНЫЙ,STRICH.shx,s=1],-2,[ШТРИХ_ВЕРТИКАЛЬНЫЙ,STRICH.shx,s=0.5],-3
*HIDDENX2,Hidden (2x) ____ ____ ____ ____ ____ ____ ____
A,0.5,-0.25
*POVER,\/\/\/\/\/\/\/\
A,2.5,[P,Sam_shp.SHX,s=0.15],4.5,[P1,Sam_shp.SHX,s=0.15],4.5,
[P2,Sam_shp.SHX,s=0.15],1
*TG,TG
A,15,-3,[ШТРИХ_ВЕРТИКАЛЬНЫЙ,STRICH.shx,s=0.7],-3
*TG2х2,TG2х2
A,15,-3,[ШТРИХ_ВЕРТИКАЛЬНЫЙ,STRICH.shx,s=0.5],-2,
[ШТРИХ_ВЕРТИКАЛЬНЫЙ,STRICH.shx,s=0.5],-3
*Zona,Zona
A,10,[US,US.shx,s=1],10
*Zona2,Zona2
A,10,[US,US.shx,s=1],2,[US,US.shx,s=1],10
*ZonaX2,->>-
A,10,[US,US.shx,s=1],4,[US,US.shx,s=1],10
*Изомощность6,Изомощность6
A,0.1,[VB,VB.shx,s=1.5],4,[VB,VB.shx,s=1.5],4,[VB,VB.shx,s=1.5],4,
[VB,VB.shx,s=1.5],4,[VB,VB.shx,s=1.5],4,[VB,VB.shx,s=1.5],4,[VB,VB.shx,s=1.5],-2
*ЛЕЖ_КРЫЛОх5,
A,15,-2.5,[KREST,KREST.SHX,s=1],-2.5
*граница_расщепления,граница расщепления ---- V ---- V ---- V ----
A,30,-5.08,["V",Standard,s=2.54,x=-2.54,y=-1.27],-5.08
*изозола30%,изозола30% ---- 30% ---- 30% ---- 30% ----
A,50,-7.08,["30%",Standard,s=2.54,x=-2.54,y=-1.27],-15.08
*изозола35%,изозола35% ---- 35% ---- 35% ---- 35% ----
A,50,-7.08,["35%",Standard,s=2.54,x=-2.54,y=-1.27],-15.08
*негодный,негодный ---- H ---- H ---- H ----
A,30,-5.08,["H",Standard,s=2.54,x=-2.54,y=-1.27],-5.08
*опасная,опасная ---- ОЗ ---- ОЗ ---- ОЗ ----
A,30,-5.08,["ОЗ",Standard,s=2.54,x=-2.54,y=-1.27],-10
*отщепление,отщепление
A,4,[VB,VB.shx,s=1.5],4,-2
*первая_очередь,первая очередь отработки ---- П ---- П ---- П -
A,30,-5.08,["П",Standard,s=2.54,x=-2.54,y=-1.27],-5.08
*поверхность,\/\/\/\/\/\/\/\
A,2.5,[P,Sam_shp.SHX,s=0.15],4.5,[P1,Sam_shp.SHX,s=0.15],4.5,
[P2,Sam_shp.SHX,s=0.15],1
*треуг,
A,15,-1,["Δ",Simvol,s=2,y=-0.5],-2.5
*штрих_с_точкой,ISO ш/пункт. (дл. штрихи) ____ . ____ . ____ .
A,24,-3,0,-3

Сохраняем линии в файл *.lin. Создаём новый dwg файл в директории с файлами форм, автокад сам их подгрузит, при загрузке линий. Поскольку в файле присутствует линия "треуг", использующая в описании Unicode символ, то выбираем кодировку файла Unicode и создаём стиль "Simvol" в чертеже. В файле присутствуют линии использующие формы. Линии, использующие форму "ШТРИХ_ВЕРТИКАЛЬНЫЙ" скорее всего не загрузятся. Если посмотреть загруженные формы после попытки загрузки линий, то можно увидеть, что файл форм "STRICH.shx" содержит форму "ØÒÐÈÕ_ÂÅÐÒÈÊÀËÜÍÛÉ", что есть "ШТРИХ_ВЕРТИКАЛЬНЫЙ" на Unicode. Если попытаться вставить форму "ШТРИХ_ВЕРТИКАЛЬНЫЙ" команда "_Shape" выдаст ошибку. При вставке формы "ØÒÐÈÕ_ÂÅÐÒÈÊÀËÜÍÛÉ" ошибка не появляется. Соответственно, для того чтобы использовать эту форму в линиях необходимо поменять этой форме имя, причём сделать это лучше латиницой. Следует иметь в виду, что такая модификация может повлиять негативно на какую-то совместимость чертежей использующих этот тип линий с разными именами форм.
Касательно пути к файлу форм в описании линии. Если создавать линию академически, то есть писать файл ручками, то естественно никакого пути писать не нужно (только имя файла), это указано и в хелпере. Появление пути в типе линии скорее всего связано с использованием альтернативных методов создания линий. Среди собранных примеров файлов в этой теме можно в них найти линии, начинающиеся с отрицательных чисел в описании. Такую линию, записанную в файл *.lin невозможно загрузить в чертёж, поскольку по правилам линия всегда должна начинаться со штриха/точки, но в файлах примерах они прекрасно существуют и рисуются.

lemurz9 · 28.07.2023, 11:08

Добрый день!
Помогите пожалуйста извлечь типы линий из файла? Не получается с помощью лиспа, извлекается только несколько типов линий, а все инженерные сети словно не видит. Может я что-то делаю не так?

Upd. Все, помощь не нужна, справилась сама, linout помог)

koMon · 28.07.2023, 12:25

на всякий пожарный случай

Код:

[Выделить все]

*106, пояса (контур фермы)
A,4,-2
*119_1, <<--->>  ------  каб высокого напряжения
A,8,[TRACK1,ltypeshp.shx,s=0.9604,r=51,x=-0.7464,y=0.6044],0.00002,
[TRACK1,ltypeshp.shx,s=0.6802,r=51,x=-2.1,y=0.428],0.00002,
[TRACK1,ltypeshp.shx,s=0.9604,r=309,x=-0.7464,y=-0.6044],0.00002,
[TRACK1,ltypeshp.shx,s=0.6802,r=309,x=-2.1,y=-0.428],-4,16,-4,
[TRACK1,ltypeshp.shx,s=0.9604,r=129,x=0.7464,y=0.6044],0.00002,
[TRACK1,ltypeshp.shx,s=0.6802,r=129,x=2.1,y=0.428],0.00002,
[TRACK1,ltypeshp.shx,s=0.9604,r=231,x=0.7464,y=-0.6044],0.00002,
[TRACK1,ltypeshp.shx,s=0.6802,r=231,x=2.1,y=-0.428],8
*119_3, <---->  ------  каб низкого напряжения
A,8,[TRACK1,ltypeshp.shx,s=0.9604,r=51,x=-0.7464,y=0.6044],0.00002,
[TRACK1,ltypeshp.shx,s=0.9604,r=309,x=-0.7464,y=-0.6044],-4,16,-4,
[TRACK1,ltypeshp.shx,s=0.9604,r=129,x=0.7464,y=0.6044],0.00002,
[TRACK1,ltypeshp.shx,s=0.9604,r=231,x=0.7464,y=-0.6044],8
*121g, --Г-- газопровод наземный
A,8,-0.8,["Г",Bm431,s=4,y=-2],-4.8,66.4
*121t, --Т-- теплосеть наземная
A,8,-0.8,["Т",Bm431,s=4,y=-2],-4.8,66.4
*121t3t, --3Т-- теплосеть наземная
A,3.2,-0.4,["3Т",Bm431,s=4,y=-2],-8,64.8
*121t4t, --4Т-- теплосеть наземная
A,3.2,-0.8,["4Т",Bm431,s=4,y=-2],-8,64.8
*122dr, --Др--  --- дренаж
A,8,-4,1.4,-0.8,["Др",Bm431,s=4,y=-2],-9.6,2.8,-4,16,-4,8
*122g, --Г--  --- газопровод подземный
A,8,-4,5.2,-0.8,["Г",Bm431,s=4,y=-2],-4.8,5.2,-4,16,-4,8
*122k, --К--  --- канализация подземная
A,8,-4,5.2,-0.8,["К",Bm431,s=4,y=-2],-4.8,5.2,-4,16,-4,8
*122kl, --Кл--  --- канализация ливневая
A,8,-4,3.2,-0.8,["Кл",Bm431,s=4,y=-2],-8.8,3.2,-4,16,-4,8
*122kn, --Кн--  --- канализация напорная подземная
A,8,-4,3.2,-0.8,["Кн",Bm431,s=4,y=-2],-8.8,3.2,-4,16,-4,8
*122t, --Т--  --- теплосеть подземная
A,8,-4,5.2,-0.8,["Т",Bm431,s=4,y=-2],-4.8,5.2,-4,16,-4,8
*122t2t, --2Т--  --- канализация подземная
A,8,-4,3.6,-0.8,["2Т",Bm431,s=4,y=-2],-8,3.6,-4,16,-4,8
*122t3t, --3Т--  --- канализация подземная
A,8,-4,3.6,-0.8,["3Т",Bm431,s=4,y=-2],-8,3.6,-4,16,-4,8
*122t4t, --4Т--  --- канализация подземная
A,8,-4,3.6,-0.8,["4Т",Bm431,s=4,y=-2],-8,3.6,-4,16,-4,8
*122v, --B--  --- водопровод подземный
A,8,-4,5.2,-0.8,["В",Bm431,s=4,y=-2],-4.8,5.2,-4,16,-4,8
*122v2t, --2В--  --- канализация подземная
A,8,-4,3.6,-0.8,["2В",Bm431,s=4,y=-2],-8,3.6,-4,16,-4,8
*123_1, камеры наземные
A,2,0
*123_2, камеры подземные на каналах
A,4,-2
*124, каналы непроходные для подземных трубопроводов
A,10,-4
*129_1, ливневка наземн (лоток)
A,2,0
*133, ---о---  связь
A,6,[CIRC1,ltypeshp.shx,s=0.4,x=-0.4],0.00002,[CIRC1,ltypeshp.shx,s=0.2,x=-0.2],
6,-2
*13_2, контур здания
A,2,0
*14_2, контур сооружения
A,2,0
*189_1, край дороги с бортовым камнем
A,4,0
*189_5, граница смены покрытия дорог
A,0,[CIRC1,ltypeshp.shx,s=0.14],0.00002,[CIRC1,ltypeshp.shx,s=0.06,x=0.08],-3
*195, тропы пешеходные
A,20,-8
*210_2, насаждения вдоль дорог, выс.менее 4м
A,0,-3,[CIRC1,ltypeshp.shx,s=0.8],-3
*22_2, контур здания строящегося
A,4,-2
*24, Отмостки зданий
A,3,-3
*280_1, подпорная стенка кам. отвесн.
A,0.00002,[TRACK1,ltypeshp.shx,s=1.04,r=197,x=0.3,y=-1],0.45,
[TRACK1,ltypeshp.shx,s=1.0112,r=189,y=-1],0.15,
[TRACK1,ltypeshp.shx,s=1,y=-1],0.15,
[TRACK1,ltypeshp.shx,s=1.0112,r=171,y=-1],0.15,
[TRACK1,ltypeshp.shx,s=1.04,r=163,y=-1],7.4
*323_3, трубы под дорогами
A,2,-2
*366, границы растительности
A,0,[CIRC1,ltypeshp.shx,s=0.14],0.00002,[CIRC1,ltypeshp.shx,s=0.06,x=0.08],-3
*42, части подземных зданий
A,3,-2
*44_49, ниши, лоджии, балконы, навесы, перекрытия межд
A,4,-2
*472, ограды каменные высотой менее 1м
A,5,[TRACK1,ltypeshp.shx,s=0.8,y=0.8],11
*474_1b, ограда металлическая H>1м мет.кр.стб.
A,4,-1,[CIRC1,ltypeshp.shx,s=1,x=-1],0.00002,
[CIRC1,ltypeshp.shx,s=0.7,x=-0.7],0.00002,
[CIRC1,ltypeshp.shx,s=0.4,x=-0.4],0.00002,
[CIRC1,ltypeshp.shx,s=0.15,x=-0.15],0.00002,
[TRACK1,ltypeshp.shx,s=0.4,y=1.4],-1,4
*474_1e, ограда металлическая H>1м мет.кв.стб.
A,4,-1,[BOX,ltypeshp.shx,s=1,x=-1],0.00002,
[BOX,ltypeshp.shx,s=0.7,x=-0.7],0.00002,
[BOX,ltypeshp.shx,s=0.4,x=-0.4],0.00002,
[BOX,ltypeshp.shx,s=0.15,x=-0.15],0.00002,[TRACK1,ltypeshp.shx,s=0.4,y=1.4],-1,4
*474_2b, ограда металлическая H<1м кругл.мет.стб.
A,4,-1,[CIRC1,ltypeshp.shx,s=1,x=-1],0.00002,
[CIRC1,ltypeshp.shx,s=0.7,x=-0.7],0.00002,
[CIRC1,ltypeshp.shx,s=0.4,x=-0.4],0.00002,
[CIRC1,ltypeshp.shx,s=0.15,x=-0.15],-1,4
*474_3b2, ограда метал H>1м на фунд с кругл.мет.стб.
A,6,-2,2,-0.8,[CIRC1,ltypeshp.shx,s=0.8,x=-0.8],0.00002,
[CIRC1,ltypeshp.shx,s=0.6,x=-0.6],0.00002,
[CIRC1,ltypeshp.shx,s=0.4,x=-0.4],0.00002,
[CIRC1,ltypeshp.shx,s=0.15,x=-0.15],0.00002,-0.8,2,-2
*476_3, ограждение из проволочной сетки
A,5,[TRACK1,ltypeshp.shx,s=0.84852,r=135,y=0.6],0.00002,
[TRACK1,ltypeshp.shx,s=0.84852,r=45,x=-1.2,y=0.6],10,
[TRACK1,ltypeshp.shx,s=0.84852,r=225,y=-0.6],0.00002,
[TRACK1,ltypeshp.shx,s=0.84852,r=315,x=-1.2,y=-0.6],5
*496, граница участка работ
A,18,-3,[CIRC1,ltypeshp.shx,s=0.06,x=-0.06],0.00002,
[CIRC1,ltypeshp.shx,s=0.03,x=-0.03],-3
*CONTI,---------
A,1,1
*Пунктир,
A,4,-4

skkkk · 28.07.2023, 12:58

И на другой пожарный случай:
Steal from Drawing от Lee Mac.

baaba · 13.03.2025, 15:42

Цитата:

Сообщение от VVA

LISP.Экспорт описания типа линии из dwg файла в lin

Добрый день. Пользуюсь утилитой уже очень давно. Сейчас понадобилось. Делал в AutoCAD 2023. Почему то получаю пустой файл *.lin Специально зашёл сюда и обновил код до версии 1.4. Всё равно - пустой. У кого так же? Что не так может быть?

baaba · 13.03.2025, 15:53

Методом тыка установил что "родные" типы линий оно выгружает а типы линий, которые применены в подоснове - нет. Может быть из-за кириллицы в названиях? Скриншот и файл с подосновой - прилагаю.

koMon · 14.03.2025, 08:57

типы линий из файла выше

Код:

[Выделить все]

*ACAD_ISO02W100,ISO dash __ __ __ __ __ __ __ __ __ __ __ __ __
A,12,-3
*ACAD_ISO03W100,ISO dash space __    __    __    __    __    __
A,12,-18
*ACAD_ISO04W100,ISO long-dash dot ____ . ____ . ____ . ____ . _
A,24,-3,0,-3
*ACAD_ISO05W100,ISO long-dash double-dot ____ .. ____ .. ____ .
A,24,-3,0,-3,0,-3
*ACAD_ISO06W100,ISO long-dash triple-dot ____ ... ____ ... ____
A,24,-3,0,-3,0,-3,0,-3
*ACAD_ISO07W100,ISO dot . . . . . . . . . . . . . . . . . . . .
A,0,-3
*ACAD_ISO08W100,ISO long-dash short-dash ____ __ ____ __ ____ _
A,24,-3,6,-3
*ACAD_ISO09W100,ISO long-dash double-short-dash ____ __ __ ____
A,24,-3,6,-3,6,-3
*ACAD_ISO10W100,ISO dash dot __ . __ . __ . __ . __ . __ . __ .
A,12,-3,0,-3
*ACAD_ISO11W100,ISO double-dash dot __ __ . __ __ . __ __ . __
A,12,-3,12,-3,0,-3
*ACAD_ISO12W100,ISO dash double-dot __ . . __ . . __ . . __ . .
A,12,-3,0,-3,0,-3
*ACAD_ISO13W100,ISO double-dash double-dot __ __ . . __ __ . .
A,12,-3,12,-3,0,-3,0,-3
*ACAD_ISO14W100,ISO dash triple-dot __ . . . __ . . . __ . . .
A,12,-3,0,-3,0,-3,0,-3
*ACAD_ISO15W100,ISO double-dash triple-dot __ __ . . . __ __ .
A,12,-3,12,-3,0,-3,0,-3,0,-3
*BATTING,Batting SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS
A,0.00254,-2.54,[BAT,ltypeshp.shx,s=2.54,x=-2.54],-5.08,
[BAT,ltypeshp.shx,s=2.54,r=180,x=2.54],-2.54
*BORDER,Border __ __ . __ __ . __ __ . __ __ . __ __ .
A,12.7,-6.35,12.7,-6.35,0,-6.35
*BORDER2,Border (.5x) __.__.__.__.__.__.__.__.__.__.__.
A,6.35,-3.175,6.35,-3.175,0,-3.175
*BORDERX2,Border (2x) ____  ____  .  ____  ____  .  ___
A,25.4,-12.7,25.4,-12.7,0,-12.7
*CENTER,Center ____ _ ____ _ ____ _ ____ _ ____ _ ____
A,31.75,-6.35,6.35,-6.35
*CENTER2,Center (.5x) ___ _ ___ _ ___ _ ___ _ ___ _ ___
A,19.05,-3.175,3.175,-3.175
*CENTERX2,Center (2x) ________  __  ________  __  _____
A,63.5,-12.7,12.7,-12.7
*DASHDOT,Dash dot __ . __ . __ . __ . __ . __ . __ . __
A,12.7,-6.35,0,-6.35
*DASHDOT2,Dash dot (.5x) _._._._._._._._._._._._._._._.
A,6.35,-3.175,0,-3.175
*DASHDOTX2,Dash dot (2x) ____  .  ____  .  ____  .  ___
A,25.4,-12.7,0,-12.7
*g5_01_5x1_5, контур отмостки, контур дороги без бортового к
A,0.75,-0.75
*g5_01x1, балконы на столбах, трубы лотки под дорогами
A,0.5,-0.5
*g5_02x1, навесы, въезды, разруш.здания, опоры и т.п.
A,1,-0.5
*g5_119_1, <<--->>  ------  <<--->> каб высокого напряжен
A,4,-1,[119,GUGK_2005.shx,s=0.1],0.35,[119,GUGK_2005.shx,s=0.08],3.3,
[119,GUGK_2005.shx,s=0.08,r=180.00001985],0.35,
[119,GUGK_2005.shx,s=0.1,r=180.00001985],-1
*g5_119_3, <---->  ------  <----> каб низкого напряжения
A,4,-1,[119,GUGK_2005.shx,s=0.1],4,[119,GUGK_2005.shx,s=0.1,r=180.00001985],-1
*g5_121_2, <---->------<----> наземный каб низкого напряж
A,4,[119,GUGK_2005.shx,s=0.1],4,[119,GUGK_2005.shx,s=0.1,r=180.00001985],8
*g5_121_g, --------Г-------- Газопровод наземный
A,4,-0.4,["Г",Line_GUGK,s=1,y=-0.5],-1.2,12
*g5_121_t, --------Т-------- Теплосеть наземная
A,4,-0.4,["Т",Line_GUGK,s=1,y=-0.5],-1.2,12
*g5_121_vx,  --------ВХ--------Воздухопровод Наземн
A,4,-0.3,["ВХ",Line_GUGK,s=1,y=-0.5],-2.1,12
*g5_122, трубопроводы подземные   ---- ---- ----
A,4,-1
*g5_122_d, ----Др----  ----- ---- Дренаж
A,1,-1,1.5,-0.4,["Др",Line_GUGK,s=1,y=-0.5],-2.4,1.5,-1,4,-1,4,-1,3
*g5_122_g, ----Г----  ------  ------  ----- Газ
A,1,-1,1.5,-0.4,["Г",Line_GUGK,s=1,y=-0.5],-1.5,1.5,-1,4,-1,4,-1,3
*g5_122_k, ----К----  ------  ------  ----- Канализация
A,1,-1,1.5,-0.4,["К",Line_GUGK,s=1,y=-0.5],-1.5,1.5,-1,4,-1,4,-1,3
*g5_122_kb, ----Кб----  ----- ---- КанализБытовая
A,1,-1,1.5,-0.4,["Кб",Line_GUGK,s=1,y=-0.5],-2.4,1.5,-1,4,-1,4,-1,3
*g5_122_kl, ----Кл----  ----- ---- КанализЛивневая
A,1,-1,1.5,-0.4,["Кл",Line_GUGK,s=1,y=-0.5],-2.4,1.5,-1,4,-1,4,-1,3
*g5_122_kpr, ----Кпр----  ----- ---- КаналПроизводств
A,1,-1,1.5,-0.4,["Кпр",Line_GUGK,s=1,y=-0.5],-3.2,1.5,-1,4,-1,4,-1,3
*g5_122_v, ----B----  -------  -------  ------ Водопровод
A,1,-1,1.5,-0.4,["В",Line_GUGK,s=1,y=-0.5],-1.5,1.5,-1,4,-1,4,-1,3
*g5_133_t, ---о---  ---о---  ---о--- телефонная канализ
A,2,[474-2,GUGK_2005.shx,s=0.4],2,-1
*g5_158_1, Осевая - ЖД узкоколейные 1.00
A,0,-3,[84,GUGK_2005.shx,s=20,y=-1],-3,[84,GUGK_2005.shx,s=10,y=-0.5],0
*g5_280_1, Подпорная стенка внемасштабная
A,0.001,[280,GUGK_2005.shx,s=1,r=180.00001985],2
*g5_366, Границы растительности
A,0.1,-0.75
*g5_472, Ограда каменная высота более 1м
A,0,-4,[472,GUGK_2005.shx,s=0.4,y=-0.2],0
*g5_474_1a, Ограда Металлическая H>1м мет.стб.
A,1,-0.25,[474-3,GUGK_2005.shx,s=1],-0.25,1
*g5_474_2a, Ограда Металлическая H<1м мет.стб.
A,1,-0.25,[474-2,GUGK_2005.shx,s=1],-0.25,1
*g5_474_3a, Ограда Метал H>1м на фунд с мет.стб.
A,1.5,-0.5,0.5,-0.2,[474-3,GUGK_2005.shx,s=0.8],-0.2,0.5,-0.5
*g5_476_3, ограждение из проволочной сетки
A,1.25,[476-3,GUGK_2005.shx,s=1],2.5,
[476-3,GUGK_2005.shx,s=1,r=180.00001985],1.25

baaba · 19.03.2025, 12:29

Цитата:

Сообщение от koMon

типы линий из файла выше

Спасибо огромное! А как Вам их удалось получить?

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
lisp : проверка наличия типа линии в файле	Кулик Алексей aka kpblc	LISP	4	21.06.2005 08:04
ГОСТ на ванты и оттяжки ???	зщцук?	Поиск литературы, чертежей, моделей и прочих материалов	1	17.05.2005 06:53
Загрузка типа линии из макроса	Кулик Алексей aka kpblc	Программирование	4	24.01.2005 14:57
Размер файла dwg	alex-alex	Прочее. Архитектура и строительство	5	10.09.2004 00:28