[Victor83]

Украинец.
Данные - №, X,y,h. Нужно загрузить №, X,y. Обрабатывал топографическую съемку в Microstation 7. Грузил по 1000 пикетов за 5хв. Теперь вторая работа - кадастровая съемка. Пикеты по одному копирую из блокнота в AUTOCAD 2004 RUS. Долго.
Подскажите как загрузить файл пикетов из блокнота в AUTOCAD 2004 RUS. Извиняйте. Благодарю.

[Солидворкер]

http://forum.dwg.ru/showthread.php?p=76961&

[Valery Brelovsky]

Сообщение от Victor83 Украинец. Данные - №, X,y,h. Нужно загрузить №, X,y. Обрабатывал топографическую съемку в Microstation 7. Грузил по 1000 пикетов за 5хв. Теперь вторая работа - кадастровая съемка. Пикеты по одному копирую из блокнота в AUTOCAD 2004 RUS. Долго. Подскажите как загрузить файл пикетов из блокнота в AUTOCAD 2004 RUS. Извиняйте. Благодарю.

Сбрось мне на почту текстовый файл я загружу тебе точки в Civil_е и верну.

[abil]

Здравствуйте! подскажите пожалуйста возможноли обратное точки в двж отправит х.у.н. в текст

[Victor]

прпрбуй

Код:

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

(defun c:p2t( / nameset setlength namefile mypath myfile 
blcrun i attrun namrun korrun xrun yrun zrun
str___ strnam kol__ probel)
(setq nameset (ssget "_:L" '(( 0 . "POINT")))); imya nabora
(setq setlength (sslength nameset)); dlina nabora
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq name_file (getfiled "Save point" "c:\\" "txt" 1))
(setq myfile (open name_file "w"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq i -1)
(repeat setlength
(setq i (1+ i))
(setq blcrun (ssname nameset i));imya
(setq namrun (itoa(+ 1 i))) 
(setq str___ " ")
(setq strnam (strlen namrun)) ;dlina
(setq kol__ (- 11 strnam)) ;sk probelov
(setq probel (substr str___ 1 kol__))
(princ namrun myfile)
(princ probel myfile)
(setq korrun (cdr (assoc 10 (entget blcrun)))); koord (X Y Z)
(setq xrun (rtos (car korrun) 2 2)) ; X 
(princ xrun myfile)
(princ " " myfile)
(setq yrun (rtos (cadr korrun) 2 2)) ;Y
(princ yrun myfile)
(princ " " myfile)
(setq zrun (rtos (caddr korrun) 2 2)) ;Z
(princ zrun myfile)
(princ "\n" myfile)
) ;konec repeat
(close myfile)
(setq myfile nil)
) ;konec defun

[abil]

Спасибо Виктор!!! Но я опят не чего смыслю в "код". Не подскажешь как изпользыват код

[Victor]

http://dwg.ru/art/8

[abil]

Виктор ОГРОМНОЕ СПАСИБО!!!!!

[Victor83]

Сбрось мне на почту текстовый файл я загружу тебе точки в Civil_е и верну.Сбрось мне на почту текстовый файл я загружу тебе точки в Civil_е и верну.


Благодарю за предложение. Я бы хотел сам настроить, чтобы часто грузити txt файлы в автокад. я веб-дизайнер, смогу за советом усовершенствовать свой автокад. Благодарю!