• Alex_Ander
  • Восстановленный участник
  • На форуме с 20 августа 2008г.
  • Сообщений: 2
  • Спасибо: 0

Тема: Как зкачать файл с координатми в автокад?

Граждане! подскажите пожалуйста какой-нибудь простой способ по закачке текста вида x,y,z в автокад, заранее спасибо.

  • Откуда: Украина / Ивано-Франковская /
  • На форуме с 14 сентября 2005г.
  • Сообщений: 429
  • Спасибо: 2

Re: Как зкачать файл с координатми в автокад?

Копируем в буфер текст с координатами X,Y,Z  в автокаде команда _point, и вставляем в командную строку.

  • Victor
  • Восстановленный участник
  • На форуме с 26 марта 2007г.
  • Сообщений: 270
  • Спасибо: 0

Re: Как зкачать файл с координатми в автокад?

Попробуй

(defun c:tta( / scl namset namefile nmfile runline firstr Xstr Ystr Zstr
              firstr ZstrN Xnum Ynum Znum koord blcN nmAt nmAt2 myAtsp
              myAtsp2 myAtrr myAtrr2 myAttsp myAttsp2 )
(setvar "CMDECHO" 0)
(setq snp (getvar "Osmode"))
(setvar "Osmode" 0)
(setq scl 1.0)
(setvar "attreq" 0)
(setq namefile (getfiled "Select file" "c:\\" "txt" 4))
(setq nmfile (open namefile "r"))
;(getint scl "Enter Scale(1):")
(setq runline (read-line nmfile))
(while (/= runline nil)
(setq firstr (substr runline 1 8))
(setq Xstr   (substr runline 12 9))
(setq Ystr   (substr runline 22 9))
(setq Zstr   (substr runline 32 6))
(setq firstr (vl-string-trim " " firstr))
(setq ZstrN  (vl-string-trim " " Zstr))
(setq Xnum (atof Xstr))
(setq Ynum (atof Ystr))
(setq Znum (atof Zstr))
(setq koord (list Xnum Ynum Znum))
(setvar "attreq" 0)
(command "_.insert" "blck001" koord scl scl 0)
(setq blcN  (entlast)); imya bloka
(setq nmAt   (entnext blcN)); imya atributa
(setq nmAt2  (entnext nmAt)); imya atributa 2
(setq myAtsp  (entget nmAt )); spisok atributa
(setq myAtsp2 (entget nmAt2)); spisok atributa 2
(setq myAtrr  (cons 1 firstr))
(setq myAtrr2 (cons 1 ZstrN))
(setq myAttsp  (subst myAtrr  '(1 . "") myAtsp )); zamena
(setq myAttsp2 (subst myAtrr2 '(1 . "") myAtsp2)); zamena
(entmod myAttsp)
(entmod myAttsp2)
(entupd  (cdr (assoc -1 myAttsp)))
(entupd  (cdr (assoc -1 myAttsp2)))
(setq runline (read-line nmfile))
)
(setvar "Osmode" snp)
(command "zoom" "_e")
);defun

Должен быть файл с крестиком с двумя атрибутами с именем blck001 ,расположеный по путям поиска автокада. Крестик д.б. расположен с координатами 0.00 0.00. Можно нолик.В файле txt с 1 позиции название точки, с 12 икс,с 22 вай, с 32 зет

  • Alex_Ander
  • Восстановленный участник
  • На форуме с 20 августа 2008г.
  • Сообщений: 2
  • Спасибо: 0

Re: Как зкачать файл с координатми в автокад?

> Victor
Вы разрушили мне мозг )))

  • Victor
  • Восстановленный участник
  • На форуме с 26 марта 2007г.
  • Сообщений: 270
  • Спасибо: 0

Re: Как зкачать файл с координатми в автокад?

Ну наверное не до конца. Могу ещё пару програмок предложить. Кстати ошибку нашёл, вместо zoom д.б. _.zoom

  • На форуме с 1 июля 2007г.
  • Сообщений: 59
  • Спасибо: 0

Re: Как зкачать файл с координатми в автокад?

Посмотри ветку:
https://www.caduser.ru/forum/topic36797.html

  • VVA
  • Активный участник
  • Откуда: Беларусь / Минск
  • На форуме с 29 марта 2006г.
  • Сообщений: 1,859
  • Спасибо: 26

Re: Как зкачать файл с координатми в автокад?

Можно еще здесь посмотреть
VBA-AutoCAD программы для геодезистов, маркшейдеров

  • AC
  • Восстановленный участник
  • На форуме с 20 января 2009г.
  • Сообщений: 1
  • Спасибо: 0

Re: Как зкачать файл с координатми в автокад?

Программа Geograf. Это классика!!!
http://www.mostisiz.ru/software.htm