Форум геодезистов

Форум для геодезистов, маркшейдеров, топографов, картографов, землемеров и всех кому интересны науки о Земле
Текущее время: Ср апр 23, 2014 17:52


Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ Сообщений: 10 ] 
Автор Сообщение
 Заголовок сообщения: Утилиты для MapInfo и Автокада
СообщениеДобавлено: Чт янв 15, 2009 04:30 
Не в сети
Geo-опытный специалист
Geo-опытный специалист

Зарегистрирован: Вт дек 02, 2008 14:56
Сообщений: 106
15.01.2009 выложена в обменник последняя версия Mif_Kat 2.13. Ссылка на архив:
http://www.filehoster.ru/files/ca9602
Ссылка будет доступна в течение месяца.
В подборке утилиты для автокада и для MapInfo, условные знаки и типы линий. Примеры съемок и пр.
Название архива - Utils_MapInfo&Acad.zip.aq
Размер файла - 25 мгб
Старые ссылки и файлы предыдущих версий удалены.
Всем удачи:)


Вернуться наверх
 Профиль  
 


 Заголовок сообщения:
СообщениеДобавлено: Сб янв 17, 2009 20:49 
Не в сети
Geo-продвинутый специалист
Geo-продвинутый специалист
Аватар пользователя

Зарегистрирован: Пт мар 14, 2008 10:50
Сообщений: 181
Откуда: Северная пальмира
Уважаемый Valang, подскажите пожалуйста какой программой открыть архив Utils_MapInfo&Acad.zip.aq?


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Вс янв 18, 2009 02:26 
Не в сети
Geo-опытный специалист
Geo-опытный специалист

Зарегистрирован: Вт дек 02, 2008 14:56
Сообщений: 106
slava_lomov писал(а):
Уважаемый Valang, подскажите пожалуйста какой программой открыть архив Utils_MapInfo&Acad.zip.aq?

Это обычный архив ZIP. В интернете есть несколько видов вирусов, которые инфицируют именно Zip-архивы, есть вирусы которые инфицируют файлы Doc. Вот для этого, чтобы хоть немного обезапасить файлы от заражения к ним в расширение добавляют несколь символов, в данном случае добавлено .aq. Переименуйте файл в Utils_MapInfo&Acad.zip и распакуйте WinZip-ом или WinRar-ом.


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Вт янв 27, 2009 19:30 
Не в сети
Geo-Гуру
Geo-Гуру
Аватар пользователя

Зарегистрирован: Сб июн 21, 2008 21:20
Сообщений: 1521
Откуда: Калуш. УКРАИНА
Утилита для Автокада. Как координаты, в виде таблицы Ексель: № тч. X,Y,Z импортировать в Автокад. Всё раскладывается по разным слоям.
Написал когда то сам, и небезуспешно пользовался.
Скрипт


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Сб янв 31, 2009 12:29 
Не в сети
Geo-студент
Geo-студент

Зарегистрирован: Чт янв 29, 2009 10:42
Сообщений: 17
Откуда: Israel
как посоветуете делать экспорт точек из Автокада в ексель или текстовый файл


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Вс фев 01, 2009 23:41 
Не в сети
Geo-Гуру
Geo-Гуру
Аватар пользователя

Зарегистрирован: Сб июн 21, 2008 21:20
Сообщений: 1521
Откуда: Калуш. УКРАИНА
Код:
(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! ***|;

(Файл Эксель автоматически сохраняется с именем чертежа)


Полагаю, что знаете как пользоваться кодом.


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Пн фев 02, 2009 23:12 
Не в сети
Geo-студент
Geo-студент

Зарегистрирован: Чт янв 29, 2009 10:42
Сообщений: 17
Откуда: Israel
взял текст,сохранил как *.txt,переименовал с помощью тотал командера в *.lsp
открыл автокад( 2009 английский ) и через Tools-Load Aplication загрузил файл,было сообщение что он загрузился ...
в списке апликаций он появился серым цветом?
в командной строке набрал команду - pun
получил сообщение 1 точка кликнул ,2 точка ,3,4
потом ентер и открылся эксель с этими 4 точками
в чертеже у меня примерно 1000 пунктов которые я хотел бы вытащить

что не так сделал :shock:


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Вт фев 03, 2009 02:27 
Не в сети
Geo-Гуру
Geo-Гуру
Аватар пользователя

Зарегистрирован: Сб июн 21, 2008 21:20
Сообщений: 1521
Откуда: Калуш. УКРАИНА
Вы всё правильно сделали. Но, это немного не тот лисп, который Вам нужен был.
Воспользуйтесь ToolPac
http://geostart.ru/phpBB/viewtopic.php?p=7502#7502
ToolPac->Inguiry->Grid List...
Дальше выбираем объекты, любые. В Диалоговом окне они будут отфильтрованы, и копируем в буфер обмена.
Очень удобная утилита, постоянно пользуюсь.


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: Утилиты для MapInfo и Автокада
СообщениеДобавлено: Пт фев 27, 2009 19:45 
Не в сети
Geo-гость
Geo-гость

Зарегистрирован: Пт фев 27, 2009 19:24
Сообщений: 1
Откуда: Ukraine
Valang
15.01.2009 выложена в обменник последняя версия Mif_Kat 2.13. Ссылка на архив:
http://www.filehoster.ru/files/ca9602
Ссылка будет доступна в течение месяца.
В подборке утилиты для автокада и для MapInfo, условные знаки и типы линий. Примеры съемок и пр.
Название архива - Utils_MapInfo&Acad.zip.aq
Размер файла - 25 мгб
Старые ссылки и файлы предыдущих версий удалены.
Всем удачи:)

Перезалей, плиз:wink: . Не успел :?


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Пт янв 15, 2010 08:15 
Не в сети
Geo-гость
Geo-гость

Зарегистрирован: Пт янв 15, 2010 08:04
Сообщений: 1
Откуда: Барнаул
перезалейте, плиз или может кто скачать успел поделитесь


Вернуться наверх
 Профиль  
 
Показать сообщения за:  Сортировать по:  
Начать новую тему Ответить на тему  [ Сообщений: 10 ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на форуме

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


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  


Создано на основе phpBB® Forum Software © phpBB Group
Русская поддержка phpBB