Список форумов Регистрация Поиск FAQ Вход

Аватар пользователя
Valang
Geo-опытный специалист
Offline
15.01.2009 выложена в обменник последняя версия Mif_Kat 2.13. Ссылка на архив:http://www.filehoster.ru/files/ca9602Ссылка будет доступна в течение месяца.В подборке утилиты для автокада и для MapInfo, условные знаки и типы линий. Примеры съемок и пр.Название архива - Utils_MapInfo&Acad.zip.aqРазмер файла - 25 мгбСтарые ссылки и файлы предыдущих версий удалены.Всем удачи:)
_________________
 Профиль
Аватар пользователя
slava_l
Geo-опытный специалист
Offline
Уважаемый Valang, подскажите пожалуйста какой программой открыть архив Utils_MapInfo&Acad.zip.aq?
_________________
 Профиль
Аватар пользователя
Valang
Geo-опытный специалист
Offline
slava_lomov
Уважаемый Valang, подскажите пожалуйста какой программой открыть архив Utils_MapInfo&Acad.zip.aq?
Это обычный архив ZIP. В интернете есть несколько видов вирусов, которые инфицируют именно Zip-архивы, есть вирусы которые инфицируют файлы Doc. Вот для этого, чтобы хоть немного обезапасить файлы от заражения к ним в расширение добавляют несколь символов, в данном случае добавлено .aq. Переименуйте файл в Utils_MapInfo&Acad.zip и распакуйте WinZip-ом или WinRar-ом.
_________________
 Профиль
Аватар пользователя
Qvinto
Geo-Гуру
Offline
Утилита для Автокада. Как координаты, в виде таблицы Ексель: № тч. X,Y,Z импортировать в Автокад. Всё раскладывается по разным слоям.Написал когда то сам, и небезуспешно пользовался. Скрипт
_________________
 Профиль
Аватар пользователя
Gennady Shkliar
Geo-студент
Offline
как посоветуете делать экспорт точек из Автокада в ексель или текстовый файл
_________________
 Профиль
Аватар пользователя
Qvinto
Geo-Гуру
Offline
Код:
(defun defpoints ()  (setq lst nil)  (setq loop T)  (setq  pt  (getpoint "\nПервая точка :")  lst (cons pt lst)  )  (while    (setq pt (getpoint "\nСледующая точка :" pt))     (if (null pt)       (setq loop nil)     )     (setq lst (cons pt lst))  )  (reverse lst))(defun C:PUN (/          *aplexcel*      *books-colection*        *excell-cells*  *new-book*      *sheet#1*        *sheet-collection*        col        header        iz_listo        punto_datos        row       );;; Written by  ALEJANDRO LEGUIZAMON -  http://arquingen.tripod.com.co;;; edited by FATTY T.O.H. - FattyHallex@gmail.com  (or (vl-load-com))  (setq punto_datos (defpoints))  (alert "Просто закрой Эксель")  (setq  *AplExcel*     (vlax-get-or-create-object "Excel.Application")  *Books-Colection*  (vlax-get-property *AplExcel* "Workbooks")  *New-Book*     (vlax-invoke-method *Books-Colection* "Add")  *Sheet-Collection* (vlax-get-property *New-Book* "Sheets")  *Sheet#1*     (vlax-get-property *Sheet-Collection* "Item" 1)  *excell-cells*     (vlax-get-property *Sheet#1* "Cells")  )  (vla-put-visible *AplExcel* :vlax-true)  (setq row 1)  (setq col 1)  (setq header '("X" "Y" "Z"))  (repeat (length header)    (vlax-put-property      *excell-cells*      "Item"      row      col      (vl-princ-to-string (car header))    )    (setq header (cdr header))    (setq col (1+ col))  )  (setq  row 2  col 1  )  (repeat (length punto_datos)    (setq iz_listo (car punto_datos))    (repeat (length iz_listo)      (vlax-put-property  *excell-cells*  "Item"  row  col  (vl-princ-to-string (car iz_listo))      )      (setq iz_listo (cdr iz_listo))      (setq col (1+ col))    )    (setq punto_datos (cdr punto_datos))    (setq col 1    row (1+ row)    )  )  (vlax-invoke-method    *New-Book*    'SaveAs    (strcat (getvar "dwgprefix")      (vl-string-right-trim ".dwg" (getvar "dwgname"))    )    -4143    nil    nil    :vlax-false    :vlax-false    1    2  )  (vlax-release-object *excell-cells*)  (vlax-release-object *Sheet#1*)  (vlax-release-object *Sheet-Collection*)  (vlax-release-object *New-Book*)  (vlax-release-object *Books-Colection*)  (vlax-release-object *AplExcel*)  (setq *AplExcel* nil)  (gc)  (gc)  (princ))(prompt "\n\t\t***\tНабери в командной строке PUN \t***\n")(princ);|«Visual LISP© Format Options»(72 2 50 2 nil "end of " 60 9 0 0 0 T T nil T);*** DO NOT add text below the comment! ***|;(Файл Эксель автоматически сохраняется с именем чертежа)
Полагаю, что знаете как пользоваться кодом.
_________________
 Профиль
Аватар пользователя
Gennady Shkliar
Geo-студент
Offline
взял текст,сохранил как *.txt,переименовал с помощью тотал командера в *.lsp открыл автокад( 2009 английский ) и через Tools-Load Aplication загрузил файл,было сообщение что он загрузился ...в списке апликаций он появился серым цветом?в командной строке набрал команду - pun получил сообщение 1 точка кликнул ,2 точка ,3,4потом ентер и открылся эксель с этими 4 точками в чертеже у меня примерно 1000 пунктов которые я хотел бы вытащить что не так сделал :shock:
_________________
 Профиль
Аватар пользователя
Qvinto
Geo-Гуру
Offline
Вы всё правильно сделали. Но, это немного не тот лисп, который Вам нужен был.Воспользуйтесь ToolPachttp://geostart.ru/phpBB/viewtopic.php?p=7502#7502ToolPac->Inguiry->Grid List...Дальше выбираем объекты, любые. В Диалоговом окне они будут отфильтрованы, и копируем в буфер обмена. Очень удобная утилита, постоянно пользуюсь.
_________________
 Профиль
Аватар пользователя
lazut4ik
Geo-гость
Offline
Valang 15.01.2009 выложена в обменник последняя версия Mif_Kat 2.13. Ссылка на архив:http://www.filehoster.ru/files/ca9602Ссылка будет доступна в течение месяца.В подборке утилиты для автокада и для MapInfo, условные знаки и типы линий. Примеры съемок и пр.Название архива - Utils_MapInfo&Acad.zip.aqРазмер файла - 25 мгбСтарые ссылки и файлы предыдущих версий удалены.Всем удачи:)Перезалей, плиз:wink: . Не успел :?
_________________
 Профиль
Аватар пользователя
Ivan22
Geo-гость
Offline
перезалейте, плиз или может кто скачать успел поделитесь
_________________
 Профиль

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 0