[Tesan]

Доброго дня всем, прошу помощи у людей знающих толк в создании лисп. Задача такова: необходим лисп, который делит все пространство модели на квадраты размером 1000 на 1000 единиц чертежа, отсчет идет от координат 0,0 которые в свою очередь делятся на 16 квадратов каждый с размером 250 на 250 единиц чертежа, который будет вставлять текст при указании любой точки в пространстве модели и в значении текста будет выводится: значение координаты Х только не все целиком, а вторые две цифры, перед ними стоит знак + по умолчанию, затем ставится снова знак плюс и вторые две цифры, но координаты по оси У, затем ставится ; и цифра номера от 1 до 16 в зависимости в какой квадрат размером 250 на 250 попал курсор при нажатии. Должно получиться например так: +05+65;7 Полные координаты точки изначально выглядели так X=5805583.75, Y=1165575.57, т.е. программа взяла вторые две цифры по Х, вторые по У и вычислила номер одного из 16 квадратов размером 250х250, т.е. 7. Затем программа не завершается, а снова предлагает указать новую точку вставки текста и так далее пока не нажимается esc или enter. Есть еще особенность, Х и У берутся не как в автокаде (математике), а наоборот (как в геодезии). Высота текста 20, стиль тот который установлен по умолчанию, слой 0. Прилаживаю рисунок для наглядности. Это необходимо для автоматизации определения номенклатур планшетов. Чертеж выполнен с единицами чертежа метры. Буду очень признателен за помощь.

[Кулик Алексей aka kpblc]

А что сделано самостоятельно?

[trir]

https://geodesist.ru/threads/razgraf...7/#post-850861

На самом деле проще подключить готовую разграфку

[lenivec]

Сообщение от Tesan необходим лисп, который делит ВСЕ пространство модели

А ваш комп потянет?

[trir]

А ваш комп потянет?

А я как то делал разграфку в dwg и таки AutoCAD помер

[Tesan]

Сообщение от Кулик Алексей aka kpblc А что сделано самостоятельно?

Сейчас все в ручную делаю, подумал спросить у знающих людей, возможно это не так трудно автоматизировать и реализовать на лисп. Если конечно это затратно и сложно, то вопрос снят.
По поводу определения номенклатур всего пространства модели, возможно я не так выразился, номенклатуры всего пространства модели определять не нужно, это необходимо задать как критерий работы программы чтобы был понятен сам принцип определения. Задача получить программу которая при ее выполнении будет определять номенклатуру в виде текста, при указании курсором интересующего места в модели.
trir спасибо за ссылку попробую может получится, но как то там все сложновато для освоения )

[ciril]

Код:

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

 
(defun aiku-nomenclature  (/ x00)
  (and (not (initget "Завершить"))
       (setq x00 (getpoint "\nУкажите точку на планшете или [Завершить]: <Завершить> "))
       (listp x00)
       (entmake
         (list '(0 . "TEXT")
               '(40 . 20.0)
               (cons 10 x00)
               (cons 1
                     (apply (function
                              (lambda (e10 e11 e12)
                                (strcat "+" (car e11) "+" (car e10) ";" (rtos (+ (* 4 (- 4 (cadr e10))) (cadr e11)) 2 0))))
                            (mapcar (function
                                      (lambda (e10 / a10)
                                        (list ((lambda (a10) (substr a10 (1- (strlen a10))))
                                                (strcat "0" (rtos (- (setq a10 (fix (/ e10 1000))) (* 100 (fix (/ e10 100000)))) 2 0)))
                                              (+ (cdr (assoc (zerop (- (setq a10 (/ (- e10 (* 1000 a10)) 250)) (setq a10 (fix a10))))
                                                             '((nil . 1) (t . 0))))
                                                 a10))))
                                    x00)))))
       (aiku-nomenclature)))

(defun c:номенклатура () (aiku-nomenclature) (princ))

Вызывается номерклатура с кс, завершается пустым вводом.

Проверь правильность вычисления квадрата, я в этих ваших геодезических XY вечно путаюсь

[Tesan]

Спасибо, это то что нужно, работает, Х и У верно определяет, но вот только с числом одного из 16 квадратов 250х250 что то не так, я приложил чертеж, синим расставлена номенклатура верная, черным определил с помощью Вашего лиспа, цифры по X и Y совпадают, только повторюсь не корректно вычисляется последняя. Еще раз моя Вам благодарность за труды, если немного поправите программу буду Вам очень признателен

Понял зависимость получается программа рассчитывает последнюю цифру не с левого верхнего угла квадрата 1000х1000 и далее слева на право сверху вниз:
1 2 3 4
5 6 7 8
9 10 11 12
13 14 15 16
а рассчитывает с левого нижнего угла и с низу вверх, получается как то так:
16 12 8 4
15 11 7 3
14 10 6 2
13 9 5 1

Уважаемый ciril, примете мою благодарность !!! это именно то что было нужно, если возможно поправьте пожалуйста определение последней цифры, та которая идет после ;

[ShaggyDoc]

С разграфками планшетов все непросто... В каждом "монастыре" бывают свои "уставы".

В одних городах разграфка соответствует классической, описанной в учебниках. В других какая-то своя. Обозначения планшетов делают по-разному.
В некоторых городах даже ось Х направлена не на Восток по геодезически, а на Север - как в математике.

Поэтому когда пришлось делать универсальную программу для любого города было сделаны в INI-файлах городов настройки на конкретную систему
Наподобие

Код:

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

[CoordSys]
XNord=1
NameCoordSystem=Местная г.Шантарска

[HeightSys]
NameHeightSystem=Местная
GorizFrom=0.25

[PlanSys]
BaseFor500=5000
OsnPlanshet=5000
Exist5000=Y
Exist2000=Y
Exist1000=N
Exist500=Y

NumColumn=12
FirstEast=-14000.00
FirstNord=10000.00
NumFirst=1

Но для конкретного города можно и

Сообщение от trir На самом деле проще подключить готовую разграфку

Причем сделать так, чтобы при щелчке по квадрату, обозначающему планшет подгружался именно этот планшет.

И даже в Интернете это делали, показывая при щелчках по разграфке соответствующие планшеты в DWF-формате.

[ciril]

Код:

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

 (defun aiku-nomenclature  (/ x00)
  (while (and (not (initget "Завершить"))
              (setq x00 (getpoint "\nУкажите точку на планшете или [Завершить]: <Завершить> "))
              (listp x00))
    (entmake
      (list '(0 . "TEXT")
            '(40 . 20.0)
            (cons 10 x00)
            (cons 1
                  (apply (function
                           (lambda (e10 e11 e12)
                             (strcat "+" (car e11) "+" (car e10) ";" (rtos (+ (cadr e10) (* 4 (- 4 (cadr e11)))) 2 0))))
                         (mapcar (function
                                   (lambda (e10 / a10)
                                     (list ((lambda (a10) (substr a10 (- (strlen a10) 1)))
                                             (strcat "0" (rtos (- (setq a10 (fix (/ e10 1000))) (* 100 (fix (/ e10 100000)))) 2 0)))
                                           (+ (cdr (assoc (zerop (- (setq a10 (/ (- e10 (* 1000 a10)) 250)) (setq a10 (fix a10))))
                                                          '((nil . 1) (t . 0))))
                                              a10))))
                                 x00)))))))

(defun c:номенклатура () (aiku-nomenclature) (princ))

Не за что
Проверил по файлу пример.dwg - номера совпадают, считает с левого верхнего к правому нижнему. Единственно, уточнение, а точка с координатами на границе планшета - какому планшету должна принадлежать?

[Tesan]

ciril все теперь замечательно работает, спасибо Вам большое, успехов в программировании !!! Моя Вам признательность

[ciril]

Пожалуйста.