[Janna_R]

Всем здравствуйте!

Нуждаюсь в помощи знатоков лиспа...
Задача такова: Я запускаю лисп, указываю какое-либо место на экране мышью, и лисп определяет и записывает координаты в буфер памяти в формате X,Y.
В работе постоянно возникает необходимость накладывать чертежи архитекторов и конструкторов на топографические планы. Проблема в том, что архитекторы и конструкторы работают в условных системах координат... Пока я это побеждаю так, команда ID: (Specify point: X = 360.9796 Y = 176.0386 Z = 0.0000). Ctr+c (360.9796 Y = 176.0386) , Ctr+p в блокнот, заменяю пробелы и Y = запятой, получаю 360.9796,176.0386 копирую то что получилось в буфер и передвигаю все обьекты с чертежей архитекторов и конструкторов в нужное место... Имею смутное подозрение, что такие танцы с бубном можно автоматизировать. Надеюсь на помощь и моя благодарность не будет иметь разумных границ :-)

Жанна

[Сергей812]

Что именно Вы хотите автоматизировать то?) И задание базовой точки на чертежах конструкторов/архитекторов - не вариант? Или копирование с базовой точкой....

[Janna_R]

2 Сергей812
Вот, базовая точка, это то что мне нужно!!! Расскажите, как ее получить и как пользоваться? Вот у меня чертеж архитектора координаты X=0 Y=0, чертеж конструктора координаты X=-2853,25 Y=-3685,25. Нужно переместить их в координаты X=252638,25 Y=689353,25 ,научите как проще это сделать.
Жанна

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

А простой _.move не сработает?

[Сергей812]

например, при копировании Ctrl+Shift+C.. в ответ на запрос указываете базовую точку.. теперь в любом другом чертеже можно вставить как блок (Ctrl+Shift+V), либо просто как совокупность элементов - Ctrl-V с заданной ранее базовой точкой. Очень удобно, когда требуется, например, перенести часть оборудования смежников в свой проект для подключения.. привязались к осям и все встало по месту сразу

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

Есть еще масса вариантов: вставка внешней ссылки, изменение переменной insbase, вставка блока из файла... Как говорится, "учите матчасть" - там много интересного

[VVA]

Janna_R, Эти чертежи потом вставляются как ссылки? Если да, то посмотри команду _BASE (БАЗА)
На лиспе так же нет проблем http://forum.dwg.ru/showthread.php?t=14860

Код:

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

(defun C:MyID (/ p1 )
  (if (setq p1 (getpoint "\nТочка: "))
    (copyToclipboard (strcat (rtos (car p1) 2 3) "," (rtos (cadr p1) 2 3)))
    );if
  );defun


;  ! ***************************************************************************
;; !                          copyToclipboard
;; ! ***************************************************************************
;; ! Function : Copy text to clipboard
;; ! Argument : 'str'    - String
;; ! Returns  : nil
;; see http://www.theswamp.org/index.php?topic=21764.new
;; ! ****************************************************************************

(defun copyToclipboard ( text / htmlfile result)
 (setq result
        (vlax-invoke
            (vlax-get
                (vlax-get
                    (setq htmlfile (vlax-create-object "htmlfile"))
                  'ParentWindow
                )
              'ClipBoardData
            )
          'SetData
            "Text"
            text
        )
    )

    (vlax-release-object htmlfile)
    result
)

[trir]

генплан в метрах, арх. чертежи в мм - INSUNITS!

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

А также insunitsdefsource, insunitsdeftarget

[Janna_R]

For VVA !!!

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