[Dante]

День добрый!


У когото когдато возникала задача вывести на печать или в файл?

[Dante]

Вывести в файл или напечать перечень всех слоёв чертежа

[VVA]

Код:

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

(defun C:LAYPRN ( / file all_layers fl)
;;;Written By Michael Puckett. 
;;;Список элементов символьных таблиц АвтоКАДа 
;;; - s- имя таблицы
;;;Пример - список всех слоев - (setq all_layers (tablelist "LAYER"))
;;;(setq all_layers (tablelist "LAYER"))
;;;AutoLisp should return something like this :
;;;Start Coding Here 
(defun tablelist (s / d r)
  (while (setq d (tblnext s (null d)))
    (setq r (cons (cdr (assoc 2 d)) r))))
(setq file (getfiled "Файл для сохранения списка слоев" "" "txt" 1))
(setq all_layers (vl-sort (tablelist "LAYER") '<))
(setq fl (open file "w"))
(mapcar '(lambda (lay)(write-line lay fl)) all_layers)
(close fl)(princ))
(princ "\nНаберите LAYPRN")

[X-DeViL]

Сохраняете на диск layer state и потом его в notepad печатаете

[Dante]

Сообщение от X-DeViL Сохраняете на диск layer state и потом его в notepad печатаете

а как, извините?

[X-DeViL]

1. заходим в layer state manager
2. правую кнопку на списке слоев
3. save layer states...

но к сожалению там вся инфа о слоях... так что наверное лучше лиспом из поста выше...

[VVA]

С вызовом notepad'a

Код:

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

(defun C:LAYPRN ( / file all_layers fl) 
;;;Written By Michael Puckett. 
;;;Список элементов символьных таблиц АвтоКАДа 
;;; - s- имя таблицы 
;;;Пример - список всех слоев - (setq all_layers (tablelist "LAYER")) 
(defun tablelist (s / d r) 
(while (setq d (tblnext s (null d)))(setq r (cons(cdr(assoc 2 d)) r)))) 
(setq file (getfiled "Файл для сохранения списка слоев" "" "txt" 1)
all_layers (vl-sort (tablelist "LAYER") '<)
        fl (open file "w"))
(mapcar '(lambda (lay)(write-line lay fl)) all_layers)
(close fl)(STARTAPP "notepad.exe" file)(princ))
(princ "\nНаберите LAYPRN")

[Dante]

Гопода, простите за темноту, но как можно запустить лисповый скипт (из предыдущего поста) не делая из него файла, а так на лету?

[Dante]

Заработало!

Большое человеческое спасибо!

Слава труду!

[VVA]

1. _vlide
2. В окне вижуал лисп жми F6 (консоль) и туда копируй код.
3. В Автокаде в ком. строке набери LAYPRN

[boy_infinity]

Спасибо! тоже пригодилось!

[gomer]

Зачем это вообще надо?

[boy_infinity]

В моем конкретном случае: наша проектная организация привязывает немецкую проектную документацию к условиям Республики Беларусь, я привязываю чертежи трубопроводов (их более 940 шт), каждый трубопровод в свой слой отнесен, чтобы не запутаться, а кто-то привязывает спецификации и ведомости по данным трубопроводам (в Excel), потом создаем списки набранных трубопроводов (каждый со своей стороны) и сравниваем чтобы никто не упустил ни одного. Ситуация осложнена тем, что у немцев есть чертежи некоторых трубопроводов, но нет для них спецификаций и наоборот.