[Danger_pgs]

Название для темы не совсем коректное, но всё же....
Есть динамический блок высотной отметки, числовые значения задаются 2-мя атрибутами (вверх и вниз хвостиком, левая правая - просто отражается) блок вставляется из файла Блоки.dwg имя блока Ometka, тэги атрибутов: OV и ON, текстовые строки для заполнения атрибутов формируются программно...
Нужна функция (желательно на ActiveX), которая бы вставляла блок с заданным именем из заданного файла в указанную точку с заполнением обоих атрибутов заданным значением. И ещё, если можно, функцию (на ActiveX) для переноса начала координат в заданную точку.
Вопрос на самом деле несложный... просто жуДко не хватает времени

[Sleekka]

ИМХО вставку блока я бы делал все-таки через командные методы, уже обсуждалось.
http://forum.dwg.ru/showthread.php?t=22534 - а вот тута можно посмотреть как отследить появившийся объект, спасибо VVA и всем остальным, кстати для блока с атрибутами я немного поправил код.

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

Есть вариант командой вставить целиком внешний файл (с отменой в момент запроса точки вставки), потом уже через vla-insertblock выполнять собственно вставку блока. Сильно хочется спать. Если завтра будет время, попробую нарисовать код (точнее, "выдрать" из собственной библиотеки нужные куски).

[Danger_pgs]

Кулик Алексей aka kpblc буду оченно благодарен!!!

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

В общем, попробуй. Код во вложении. Я прогнал на нескольких "штатных" блоках, вроде работало...

[config]

Доброго времени суток, уважаемые форумчане. Возник вопрос по автоматическому определению высотной отметки. Не смог найти поиском, возможно уже есть реализация такой идеи. Допустим, имеем продольный профиль. Указав поперечный масштаб и базовую отметку начала отсчета кликом мыши в произвольной части профиля нужно определить высотную отметку точки. AutoCAD 2010. Спасибо.

[VVA]

Сообщение от config Не смог найти поиском

Помогаю

[config]

Сообщение от VVA Помогаю

За помощь конечно спасибо. Прежде чем задавать вопрос, я конечно же эти сообщения прочел. Нет там того, о чем я вопрошал. Именно ввода базовой отметки отсчета к сожаления нет.

[VVA]

Автоотметка?

[config]

Сообщение от VVA Автоотметка?

В первую очередь пытался опробовать этот блок. Но вот ведь какая незадача вышла. Стоит только ткнуть курсором в текст, как он тот час же исчезает. Я в начальном посте указал версию AutoCAD. Может быть он под десятку не работает?
ЗЫ: Регенерацию и обновление поля проверял.

[RNB]

Как мне показалось, разбираться не хотите. Поэтому установите СПДС от Autodesk. Там такая функция есть.

[P_S]

Просто нужно человеку что-то вроде:

Код:

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

 (setq scale(getint "\nВведите вертикальный масштаб:  1:")
      pt_y(cadr(getpoint "\nУкажите точку с известной отметкой"))
      ish_otm(getreal "\nВведите отметку указанной точки: "))
(princ(strcat "\nОтметка указанной точки: "(rtos(+ ish_otm(/(-(cadr(getpoint "\nУкажите точку")) pt_y)(/ 1000 scale)))2 3)))

[config]

P_S, супер! Спасибо огромное! А нельзя зациклить указание множества точек на базовой отметке?

[P_S]

Можно зациклить:

Код:

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

 (setq scale(getint "\nВведите вертикальный масштаб:  1:")
      pt_y(cadr(getpoint "\nУкажите точку с известной отметкой"))
      ish_otm(getreal "\nВведите отметку указанной точки: ")
      do_next T)
  (while do_next
    (initget 1 "Точка Выход")
    (setq res (getkword "[Точка/Выход]"))
    (cond
      ((= res "Точка") (princ(strcat "\nОтметка указанной точки: "(rtos(+ ish_otm(/(-(cadr(getpoint "\nУкажите точку")) pt_y)(/ 1000 scale)))2 3))))
      ((= res "Выход")(setq do_next nil))))

[config]

P_S, на этапе указания точки, к сожалению, происходит сбой программы.

[P_S]

Предлагается выбор: ввести точку или выйти. Контекстное меню или ключевое слово.

[config]

Сообщение от P_S Предлагается выбор: ввести точку или выйти. Контекстное меню или ключевое слово.

Прошу прощения, это я не досмотрел. Все работает как надо. Ну и последний штрих. Если возможно сделать запуск программы командой, чтобы была возможность повесить макрос на кнопку. Спасибо!

[config]

Доброго времени суток. Подскажите пожалуйста, а возможно на эту функцию (#14) сделать макрос, для автозагрузки и запуска с кнопки. Спасибо.

[VVA]

достаточно обернуть в defun

Код:

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

(defun C:Macros ()
(setq scale(getint "\nВведите вертикальный масштаб:  1:")
     pt_y(cadr(getpoint "\nУкажите точку с известной отметкой"))
     ish_otm(getreal "\nВведите отметку указанной точки: ")
     do_next T)
 (while do_next
   (initget 1 "Точка Выход")
   (setq res (getkword "[Точка/Выход]"))
   (cond
     ((= res "Точка") (princ(strcat "\nОтметка указанной точки: "(rtos(+ ish_otm(/(-(cadr(getpoint "\nУкажите точку")) pt_y)(/ 1000 scale)))2 3))))
     ((= res "Выход")(setq do_next nil))))
(princ)
)

Вместо Macros впиши более подходящее название команды

[trushev]

Сообщение от VVA достаточно обернуть в defun

А локальные переменные объявить было лень?