[Zaghim]

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

[hwd]

Сообщение от Zaghim Вопрос такой. Можно ли, имея файл, в котором содержатся списки, описывающие полностью примитив (координаты тип линии и тд), брать из него всю эту инфу и отрисовывать это в автокаде?

можно. Ещё в бытность 14-го Автокада, когда в качестве носителя информации были дискеты и объем файла был в связи с этим весьма важным пунктом, я на Лиспе написал команду, которая анализировала все примитивы чертежа, извлекая из них списковую информацию. Полученную строку обрабатывал формируя на её основе вызов функции entmake (убирая лишнюю инфу).
Все полученные т.о. строки программно записывались мною в scr-файл (внешний текстовый файл). После этого scr-файл сжимался архиватором и свободно помещался на дискете. Такой способ позволял существенно сжимать информацию.
На др. компе я запускал на исполнение этот scr-файл, восстанавливая тем самым содержимое чертежа.

Т.е. в вашем случае так же можно преобразовать содержимое так, чтобы оно выглядело как вызов функции entmake, и оформить это в виде scr-файла.

[Zaghim]

Дело за малым, кто поможет такое осуществить?))))))

[hwd]

Сообщение от Zaghim Дело за малым, кто поможет такое осуществить?))))))

Я так понимаю, что "Поможет" = "Напишет"...
Offtop: Пожалуй промолчу, а то и так уже обиженных на меня море...

[Zaghim]

Хотя бы сам процесс всего этого действия. Вообще не врубаюсь, как можно считывать по строчно инфу и колбасить это все в чертеж...

[hwd]

Сообщение от Zaghim Хотя бы сам процесс всего этого действия. Вообще не врубаюсь, как можно считывать по строчно инфу и колбасить это все в чертеж...

построчно считывать не нужно ничего. Автокад сам считывает и создаёт.
Тебе нужно изначально записывать в текстовый файл не просто список, описывающий примитив, а указанную мною команду, которая на основании этого списка создаёт примитив. Только из списка нужно всякое г... убрать (типа ключей). Текстовому файлу дашь расширение scr.

Потом в автокаде запустишь команду _script и укажешь этот файл. Всё вычертится автоматом.

[Sad Dog]

Ну и маленький пример в студию!

[hwd]

Сообщение от Sad Dog Ну и маленький пример в студию!

Клоун

[Кулик Алексей aka kpblc]

Записывай в dxf - вот и пример готов.

[Sad Dog]

Алексей, и ты туда же!
Пример в студию!

[Кулик Алексей aka kpblc]

Чего пример? Сохранения файла в формате dxf?

[hwd]

Сообщение от Кулик Алексей aka kpblc Чего пример? Сохранения файла в формате dxf?

Offtop: не обращай на него внимание, ему на самом деле примеры до лампочки...

[Sad Dog]

Для Алексея.
Да разве об этом человек спрашивает? Просит показать, в каком виде можно хранить в текстовом файле инфу о примитивах, извлекать её программно и строить (восстанавливать) примитивы по ней. Блоки хочет парень делать, описанные в собственном текстовом формате (ИМХО).

[Zaghim]

Сообщение от Sad Dog Для Алексея. Да разве об этом человек спрашивает? Просит показать, в каком виде можно хранить в текстовом файле инфу о примитивах, извлекать её программно и строить (восстанавливать) примитивы по ней. Блоки хочет парень делать, описанные в собственном текстовом формате (ИМХО).

Да, именно так

[Zaghim]

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

[alex8888]

Zaghim, это то? Берет данные из текстового файла.
http://www.afralisp.net/dialog-contr...-in-action.php

[zamtmn]

если мне не изменяет память, в формате DXF12 можно опустить всё "лишнее" оставив только секцию ENTITIES. сохраните файл в DXF12 откройте его в блокноте и вы увидете как "можно считывать по строчно инфу и колбасить это все в чертеж..." причем считывать и колбасить будет сам автокад, без какого-либо стороннего вмешательства.
А придумывать свои форматы, как и использовать *.SCR имхо не верно

[Кулик Алексей aka kpblc]

Zaghim, вот тебе пример: есть окружность, центр в точке с координатами в объектной системе координат '(10. 10. 20.), радиус 60.0, система координат объекта - плоскость zOy. Как читать координаты этого объекта из файла?
Или выполни в командной строке такой код:

Код:

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

(entmakex '((0 . "LWPOLYLINE") (100 . "AcDbEntity") (100 . "AcDbPolyline") (90 . 7) (70 . 0) (43 . 0.0) (38 . 16.0) (39 . 10.0) (10 173.885 111.239) (10 224.555 64.5731) (10 278.483 123.177) (10 319.381 160.438) (10 336.753 206.381) (10 233.242 206.381) (10 224.555 23.4763) (210 1.0 0. 0.)))

и расскажи, как и какие координаты читать.

[Zaghim]

Даже с нарисованными тремя линиями, файл формата dxf получается нереальной простыней. Можно сделать, например такую строку в файле
(20 а1 30 в2 15 а2 30 в1), где я точно знаю, что цифра - это смещение от заданной точки, а а1 - это определенный блок и командой nth как-то в цикле со смещением буду просматривать этот каждый элемент и принимать определенные действия?

[Zaghim]

Zaghim, это то? Берет данные из текстового файла. http://www.afralisp.net/dialog-contr...-in-action.php

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

Кулик Алексей aka kpblc
В командной строке данный код не сработал(((

[alex8888]

Zaghim,

В командной строке данный код не сработал

почему не сработал, он написал:

<Objektname: 7ffff76b420>

, т.е. объект создал с указанными значениями. 0-тип примитива (облегченная полилиния, 10-точки там всякие -это DXF-коды , стр.844-860 вышеуказанной книги)

[Кулик Алексей aka kpblc]

В ком.строке код может не сработать - он просто слишком длинный. Его можно попробовать запустить из-под vlide, например - тогда все будет ок. Ну или в lsp-файл загнать и потом этот файл загрузить.

[Zaghim]

Ладно, с этим я более-менее разобрался. DXF слишком муторно я думаю...лучше передать такую строку, как писал выше, из которой я сам выцеплю то, что нужно. Пока что всем спасибо за помощь!!!

[Кулик Алексей aka kpblc]

Zaghim, я говорил не о DXF, а о том, "как с подобного примитива собирать координаты" - тебе же это интересно. Вот распиши, как и какие координаты для указанного примитива будут критичными (только не забудь в 3D чертеж повертеть).

[Zaghim]

Не совсем так...мне интересно что бы был файл, в котором определенным образом будет занесена инфа, что нужно разместить на чертеже. Исходными данными на чертеже будут 4 точки (начало-конец и 2 промежуточные). Имея список, я знаю, что он начальной точки например должен провести линию, затем вставить блок, потом опять линию и тд...вот такая задумка.

[Кулик Алексей aka kpblc]

Ну, раз принципиально не хочется использовать dfx-вариант, придумывай свой формат данных.
P.S. Я тоже когда-то думал, что каждая задача требует индвидуального решения...

[Zaghim]

Ну а как же вариант, который прислал alex8888. Там же свои данные, которые потом заносятся в переменные и следуя им рисуется двутавр.

[Sad Dog]

Идея, думаю, не нова. На авторство не претендую.
Смеяться можно.

Пусть имеется некое условно существующее приложение, предоставляющее пользователям AutoCAD
удобный способ выбора и вставки в чертеж блоков из тематически организованных коллекций.
Информационную поддержку одной из таких коллекций можно организовать следующим образом.

Представте себе такой lisp-файл:

Код:

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

; Файл Article0.lsp
(list
  (cons "title" "Изделие 0"); атрибут: название дружественное к пользователю.
  (cons "type" "single"); атрибут: определяет, что файл вставляется целиком, как блок.
  (cons "src" "OffTheSelf\\Article0.dwg"); атрибут: относительный путь к файлу-носителю.
);

Файл содержит информацию о блоке из состава некоторой гипотетической коллекции под общим названием Articles.
Видно, что блок содержится в дочернем каталоге OffTheSelf некоторого корневого каталога базы.
Носителем блока является файл Article0.dwg.
При вставке такого файла примитивы из его пространства модели и формируют описание блока.
Описание получит имя Article0, совпадающее с именем dwg-файла.

А вот другой lisp-файл описания из той же коллекции:

Код:

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

; Файл Article1.lsp
(list
  (cons "name" "art1"); базовая часть имени блока.
  (cons "title" "Изделие 1"); название дружественное к пользователю.
  (cons "type" "select"); выбор по имени из коллекции описаний блоков, хранящихся в файле-носителе.
  (cons "src" "OffTheSelf\\Article1.dwg"); атрибут: относительный путь к файлу-носителю.
  ; Далее идут параметры блока.
  ; Они запрашиваются у пользователя и используются для определения полного имени блока.
  ; Если список параметров отсутствует, то окно запроса не выводится.
  (list
    "params"
    (list; первый параметр:
      "height"
      (cons "title" "Высота"); название, которое увидит пользователь при запросе параметра.
      (cons "type" "string"); тип параметра: в данном случае строковый, но может быть так же целочисленный или действительный.
      (list "enum" "20 см" "40 см"); выбор данного параметра возможен только из указанного перечисления.
    )
    (list; второй параметр:
      "width"
      (cons "title" "Ширина")
      (cons "type" "string")
      (list "enum" "50 см" "70 см")
    )
  );
);

Блок, соответствующий приведенному описанию, содержится в файле Article1.dwg в дочернем
каталоге OffTheSelf корневого каталога базы. Особенность заключается в том, что в Article1.dwg содержатся
описания нескольких блоков с именами, начинающимися на art1. Полное имя формируется приложением
путем конкатенации базового имени со строковым представленим параметров после запроса их у пользователя.

Вот ещё один вариант описания блока из той же коллекции:

Код:

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

; Файл Article2.lsp
(list
  (cons "name" "art2"); базовая часть имени блока.
  (cons "title" "Изделие 2"); название дружественное к пользователю.
  (cons "type" "create"); блок создается програмно ("на лету")
  (cons "src" "OnTheFly\\Article2.lsp"); относительный путь к файлу-носителю.
  ; Далее идут параметры блока.
  ; Они запрашиваются у пользователя, передаются в функцию создания блока, а так же используются для формирования полного имени создаваемого блока.
  (list
    "params"
    (list; первый параметр:
      "length"
      (cons "title" "Длина основания"); название, которое увидит пользователь при запросе параметра.
      (cons "type" "int"); тип параметра.
      (list "range" 200.0 400.0); выбор данного параметра возможен только из указанного диапазона, включая границы.
    )
    (list; второй параметр:
      "width"
      (cons "title" "Ширина основания")
      (cons "type" "string")
      (list "enum" "Скромная" "Средняя" "Огромная")
    )
    (list; третий параметр:
      "thickness"
      (cons "title" "Толщина стали")
      (cons "type" "real")
      (list "enum" 1.0 1.5 2.0)
    )
  );
);

Логическим носителем блока с базовым именем art2 является файл Article2.lsp (файл с кодом)
из каталога OnTheFly корневого каталога базы. Ожидается, что в Article2.lsp содержится
определение функции с именем article2. При вызове этой функции ей передаются три аргумента
с соответствующми значениями парметров. Функция создает описание блока и назначает ему имя,
используя конкатенацию базового имени и строковых представлений выбранных парметров.

Ну и напоследок:

Код:

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

; Файл Article3.lsp
(list
  (cons "title" "Изделие 3"); название дружественное к пользователю.
  (cons "type" "edit"); описание блока редактируется с последующим переименованием.
  (cons "src" "HalfFinished\\Article3.dwg"); относительный путь к файлу-носителю.
  (cons "escort" "HalfFinished\\Article3.lsp"); относительный путь к файлу сопровождения, содержащему функцию редактирования и переименования.
  ; Далее идут параметры блока.
  ; Они запрашиваются у пользователя, передаются в функцию редактировния блока,
  ; а так же используются для формирования полного имени при переименовании блока.
  (list
    "params"
    (list; первый параметр:
      "param"
      (cons "title" "Наличие отверстия")
      (cons "type" "string")
      (list "range" "Есть" "Нет")
    )
  );
);

Блоком является файл Article3.dwg из дочернего каталога HalfFinished корневого каталога базы.
Функция редактирования содержится в файле сопровождения Article3.lsp и называется article3.
При вызове в функцию передается один аргумент с соответствующм значением парметра, указанного пользователем.
Функция редактирует описание блока Article3 переименовывает его, используя конкатенациюя базового имени
и строкового представления парметра.

Представленный набор из четырех файлов (реально их могут быть сотни) объединяется в единое целое
пятым головным файлом:

Код:

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

; ArticlesMain.lsp
; Головной файл базы Articles.
(list
  "Articles"
  (include "Article0.lsp")
  (include "Article1.lsp")
  (include "Article2.lsp")
  (include "Article3.lsp")
);

Ключевая идея заключается в том, чтобы хранить информацию в виде, непосредственно воспринимаемом интерпретатором LISP.
Так, чтобы загружать её штатной функцией LOAD и получать сразу в виде списка, а не преобразуя строки в список,
как чаще всего предлагается. Я назвал бы это внутренне присущей для языка LISP техникой разметки данных -
Lisp Intrinsic Markup Technique (LIMT).
Таким образом, LIMT-документ представляет собой текстовый файл, содержащий код на языке AutoLISP,
при загрузке которого формируется список. В составе кода, формирующего список, может присутствовать
вызов функции include, позволяющей включать в состав документа другие LIMT-документы.
LIMT-документы могут иметь расширение .lsp или любое другое (например .limt).
LIMT-документы, при желании, могут быть скомпилированы и иметь расширение .fas
Круглые скобочки (), list и cons - вот и весь арсенал.

Для поддержки этой техники достаточно написать две крошечных функции (одна из них вложена в другую):

Код:

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

; LimtEngine.lsp
(defun get-limt-document (full_path; полный путь к limt-документу.
              /
              include
              )
  ; Локальное определение функции:
  (defun include (private_path / ) (load (strcat (vl-filename-directory full_path) "\\" (vl-string-trim " \\/" private_path))));
  ;
  (load full_path)
); end defun.

Функция include используется в коде, формирующем список, для вставки данных из другого LIMT-файла.
В качестве аргумента она получает строку с [относительным путём и] именем включаемого файла.
Возвращает список, сформированный кодом из указанного файла и кодом возможных вложенных через
рекурсивный вызов include файлов.

Функция get-limt-document формирует список из набора взаимосвязанных LIMT-документов.
В качестве аргумента получает строку с полным путем к каталогу и именем головного документа.
Все относительные пути, указанные в вызовах (в т.ч. вложенных) include отсчитываются от каталога головного документа.
Функция возвращает окончательный список, сформированный на основе всей иерархии LIMT-файлов.

В прилагаемом архиве содержатся все выше упоминавшиеся файлы. Прочитайте там коротенький ReadMe.txt
и попробуйте сами.

[gomer]

Сообщение от Sad Dog и маленький пример в студию!

Вот простой пример:

Код:

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

(defun cdx-GetInterfaceObject (str / obj)
  (if (vl-catch-all-error-p (setq obj (vl-catch-all-apply 'vla-GetInterfaceObject (list (vlax-get-acad-object) str)))) nil obj)
)

(defun cdx-FileSystem()
	(cdx-GetInterfaceObject "Scripting.FileSystemObject")
)

(defun cdx-ReadTextFile (strFile / strFullName objScr objFile Result)
 (if (setq strFullName(findfile strFile))
  (progn
	(setq
		objScr (cdx-FileSystem)
		objFile(vlax-invoke-method objScr 'OpenTextFile strFullName 1 nil -2)
		Result(vlax-invoke objFile 'ReadAll)
	)
	(vlax-invoke objFile 'Close)
	(mapcar 'vlax-release-object (list objFile objScr))
  )
 )
  Result
)
(defun cdl-string->list (s p / i)
  (cond
	((setq i (vl-string-search p s))
		(cons (substr s 1 i) (cdl-string->list (substr s (+ (strlen p) i 1)) p))
	)
	(T (list s))
  )
)

(defun cdl-csv->list (strFile)
  (if (findfile strFile)
	(mapcar
		'(lambda(x)(cdl-string->list x ","))
		(cdl-string->list (cdx-ReadTextFile strFile) "\r\n")
	)
  )
)

Набираете все, например в Excel, экпортируете в csv, преобразовываете в список... а дальше чего душенька пожелает

[Sad Dog]

Непонял только, почему нельзя было использовать стандартную (open...) из AutoLISP? Чем Scripting.FileSystemObject лучше?

[gomer]

Сообщение от Sad Dog почему нельзя было использовать стандартную (open...) из AutoLISP? Чем Scripting.FileSystemObject лучше?

В таком случае не избежать цикла while и поcтрочного read-line и кстати он имхо быстрее...

[Zaghim]

gomer, я вижуал лисп вообще не знаю, только автолисп и то плохо)))
Отсюда вопрос по программе. Где загружается нужное имя файла? Дальше я так понимаю все что внутри читается построчно, убираются запятые и формируется список типа (а1 а2 а3 ... ан)? А в какие переменные они заносятся... или мы их можем брать командой nth? А если число переменных будет различаться... ну например из одного списка нужно вставить 2 линии и два блока, а из другого 5 линий и 4 блока...

Пишет, что очень много аргументов, как ей пользоваться?

[gomer]

>Zaghim: алгоритм такой:
есть файл csv? его название передается в cdl-csv->list в качестве аргумента...
cdl-csv->list читает файл с помощью cdx-ReadTextFile причем сразу, так что на выходе строка по типу мтекст (строка разделяется запятыми и "\r\n" по определению... построчного чтения нет
дальше все это дело дробится на список, так что получается:
((а1 а2 а3 ... ан)
(b1 b2 b3 ... bн)
........
)
Остальные вопросы, читай последнюю фразу
А лучше пример подгони... а то ведь не понятно, что ты хочешь...

[Zaghim]

Пример такой, помоему уже писал. Ставлю 4 точки произвольно и от 1 до последней нужно рисовать линию, вставлять блоки и в некоторых местах от линии делать ответвления (т.е. шла линия вниз и от нее нужно вправо или влево. Причем ответвление потом возвращается назад в исходную линию в другом месте (нужно это анализировать как-то)

(дистанция1, имяблока1, дистанция2, имя блока2, дистанция3, ответвление1, дистанция4, имяблока1, ответвление2, дистанция5)

а так должно быть в файле...
(100, блок1, 150, блок2, 70, отв1, 100, блок1, отв2, 80)

Фишка в том, что файл будет только с одной такой строкой, т.е. что бы отрисовать все на этих 4 точках нужно описать в одной строке, а вот элементов может быть разное количество...был пример про чтение, писал алекс, там все круто, но строки все одного типа, а тут всегда разные (кол-во блоков различно, больше или меньше расстояний и тд). И каждый элемент, получается, нужно брать из этого списка и анализировать, т.е. если я вижу, что число иду и рисую линии с отступом от первой точки по направлению к другой, если блок, иду на вставку блока от последней точки.... типа так

[alex8888]

gomer, в какой переменной или где получается сформированный список? Сама функция прошла успешно (написали nil в конце)
Потом из этого списка выбирать с помощью nth?

Про Scripting.FileSystemObject где-нибудь по русски прочитать можно? Где ни поищу - все английский.

[Zaghim]

alex8888, как ты ее запустил?)

[alex8888]

Вот так:
(cdx-GetInterfaceObject "g:/drawing/file1.csv")
Прописываешь путь к файлу, вместо \ надо \\ ставить или одну /. Я так назвал свой файл file1.

[gomer]

Ребяты ну вы хоть код посмотрите

Код:

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

  (setq lst (cdl-csv->list "g:/drawing/file1.csv"))

в принципе должен получиться в результате должен список типа
'((100 блок1 150, блок2 70 отв1 100 блок1)
(100 блок1 150, блок2 70 отв1)
;;; ..............
(100 блок1 150, блок2 70 отв1 100 блок1 отв2 80))
Вот так вот...

И вообще есть замечательные фуннции cаr и cdr подходят для обработки любых спиков

с Scripting.FileSystemObject у меня проблем не было, так как читаю на английском свободно
Описание можно найти в справочной системе MSDN

[alex8888]

gomer, а что, я не правильно вызываю?

(cdx-GetInterfaceObject "g:/drawing/file1.csv")

И все-таки не понял где полученный список. В lst? Надо поискать еще раз. Только не ругайся

[gomer]

Тааак, спокойнооо...
cdx-GetInterfaceObject вызывает сом-сервер и возвращает его в виде vla-объекта (например Excel, Word, Scripting.FileSystemObject) и тд
Аргумент - строка, его индетифицирующая...
"g:/drawing/file1.csv" определяет файл на дисе g в папке drawing с именем file1 и расширением csv и уж ни как не объект Scripting.FileSystemObject естественно (cdx-GetInterfaceObject "g:/drawing/file1.csv") возвратит nil

в данном случае правильно (см. выше):
(cdx-GetInterfaceObject "Scripting.FileSystemObject")
этот объект нужен для работы с файлом ( открытия, чтения и тд)
и наконец список возвращается функцией cdl-csv->list (см. выше еще раз...)