[kminas]

Как считать координаты в файл, затем плясать от них: добавлять (отнимать) и снова записывать?

[KAI]

Я работаю в геологии и не представляю себе работу без 2-х моих программ: INSP2TXT и OCREATE (http://geol-dh.ru/). Первая сбрасывает информацию о координатиах объектов (линии, полилинии, точки, окружности, блоки, в том числе и значения атрибутов) в текстовые файлы с разделителями (по умолчанию - запятая), а вторая создает эти объекты Acad по данным (координатам и пр.) из текстового файла.
А уж в Excel что-то добавить или изменить очень легко.
Например, сбросил координаты точек, а загрузил блоки с нужными атрибутами.

[kminas]

Это готовая программа. А я просил код.

[kminas]

А я думал тут профи водятся?

[Александр Ривилис]

Сообщение от kminas А я думал тут профи водятся?

А я думал, что здесь все вопросы умеют задавать... Какие координаты? В какой файл? Кого с чем складывать и отнимать?

[Profan]

затем плясать

Пойду плясать -
Дома нечего кусать.
Сухари да корки,
На ногах опорки.

[fixo]

Сообщение от Profan затем плясать Пойду плясать - Дома нечего кусать. Сухари да корки, На ногах опорки.

Из колодца вода льется,
Из бадейки плещется.
Моя милая танцует -
Как карась трепещется

~'J'~

[kminas]

Сообщение от Александр Ривилис Сообщение от kminas А я думал тут профи водятся? А я думал, что здесь все вопросы умеют задавать... Какие координаты? В какой файл? Кого с чем складывать и отнимать?

На 2-d чертеже ставлю точку. Ее координаты, например, 20.800,10.000.
Вместо них пишу вручную начало ккординат: 0.000, 0.000.
Координаты следующей точки должен мой модуль определить и поставить на чертеж сам, например, 3.600,0.000 или 6.000,6.000. Спасибо веселым ребятом. Скучно без них перед Новым Годом!

[DEM]

А систему координат по чему бы не перевести.
Задача сейчас поставлена не верно.

[kminas]

Сообщение от DEM А систему координат по чему бы не перевести. Задача сейчас поставлена не верно.

Может я тупой, но что означает в данном случае "система координат", не понимаю

[DEM]

Перенести ПСК в эту точку.

[kminas]

Как это сделать программно?

[kminas]

Туповатый, но понял. Перенёс. А отметки программа ставит всё равно от начала координат, а не от моего нуля.

[DEM]

Блин не знаю но должно работать команда

Код:

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

_ucs

и переносите куда угодно.

[Vova]

Kminas, ты похож на моего шефа. Тот обдумывает известный только ему вопрос, добывает информацию, рисует картиночки и т. далее и в середине процесса зовет меня и говорит: вот это надо сюда, а то - туда, и все это надо очень быстро, прямо сейчас. Из какой это оперы? привычно спрашиваю, что за объект, и вообще, это план или разрез? Или схема?
Поэтому давай сначала и очень подробно, что у тебя за проблема? Ты пишешь:

А отметки программа ставит всё равно от начала координат, а не от моего нуля

. Что за программа, что за модуль? Тут действительно профи водятся, но даже они не понимают, что надо. Не говоря о простых смертных. Поэтому и веселятся.

[kminas]

Я хочу сам научиться писать Lisp-овские модули,а из меня все вытягивают информацию. Ладно. Надо на разрезе ставить отметки этажей. Если мне дадут готовый вариант, то что же буду делать я? Дайте, если можно, только подсказку.

[DEM]

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

[kminas]

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

[DEM]

Поиск рулить

[kminas]

Поиск на трех форумах перерыл

[fixo]

Код:

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

(defun c:test()
(setvar "osmode" 703)
(setvar "cmdecho" 0)  
(setq pt (getpoint "\nPick point on screen: "))
(setq orig
       (getpoint "\nSpecify origin point <or press Enter to set default (0,0,0) >: "))
(if (null orig)(setq orig '(0.0 0.0 0.0)))
; here is a point you have a got from your "module" i.e.(5,10,0):
(setq level (getpoint "\nSpecify a level point <or press Enter to set default (5,10,0)>: "))
(if (null level)(setq level '(5.0 10.0 0.0)))
(setq outpt (mapcar '+ level pt))
(setvar "osmode" 0)
(command "_.point" (trans outpt 1 0 orig) "")
(alert (strcat "point 1: " (vl-princ-to-string pt) "\n"
	       "point 2: " (vl-princ-to-string level) "\n"
	       "point 3: " (vl-princ-to-string outpt) ))
(setvar "cmdecho" 1)  
(setvar "osmode" 703)
(princ)
)

?????????????????????????

~'J'~

[kminas]

Спасибо, Fatty! Буду изучать!