Как задать точку вставки элемента?

Александер · 20.10.2005, 10:44

Такой вопрос:
вставляю некий объект в рисунок, (точку вставки пользователь указывает, например р1(x1,y1,z1)) надо этот элемент еще раз вставить, точка вставки тоже указывает пользователь, но координаты y,z должны совпадать с координатами y,z первой точки. Желательно чтобы вторая точка вставки отслеживалась как-то. (например как при черчении отрезка идет отслеживание).

Лентяй · 20.10.2005, 11:11

А если так:
"_copy" <Enter> @ <расстояние по "Х">, 0, 0 <Enter>?

Александер · 20.10.2005, 13:42

Спасибо, можно и так, практически то что нужо

VetalBY · 20.10.2005, 17:38

То ли я чего-то не понял, то ли понял все правильно и можно вот так:

Код:

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

(setq p1 (getpoint "\nУкажите первую точку"))
(setq p2 (getpoint "\nУкажите вторую точку" p1))

Далее преобразуешь p2 (или p1)

Александер · 21.10.2005, 08:26

> VetalBY

- понял не совсем правильно, т.е. мне надо было точку задать указанием машью (это в твоем примере и описано), но при этом координата "у" должна быть фиксированной и равной координате "у" первой точки. и чтобы после указания первой точки, вторая отслеживалась.
вариант Лентяя очень даже подошел, даже получилось проще чем я расчитывал

Лентяй · 21.10.2005, 10:16

Цитата:

Александер: вариант Лентяя очень даже подошел, даже получилось проще чем я расчитывал

Душевно рад. Вам же по такому поводу следует ежеденно утренне и нощно возносить Господу - подателю просветления и мудрости благодарствие за то, что я есть.

Александер · 21.10.2005, 13:26

еще вопросик в дагонку

как пользоваться сист. переменной lastpoint.
последней точкой является почка вторая вставки, как можно вставить кусок текста с точкой вставки, смещенной относительно последней точки, координаты которой записаны в сист. пер. last point?
что-то вроде

(setq a10 (getvar "lastpoint"))
(setq a11 (polar a10 (* pi 0.6) 1017))
(command "_text" "_m" a10 ang txt)

так не выходит.... ошибку выдает.

VetalBY · 21.10.2005, 15:06

А так:

Код:

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

 (setq hold (cdr (assoc 40 (tblsearch "STYLE" (getvar "TEXTSTYLE")))))
     (if (zerop hold)
       (command "_text" "_m" a11 <Высота текста> ang txt) 
       (command "_text" "_m" a11 ang txt) 
 )

И что за ошибку выдает?

Кулик Алексей aka kpblc · 21.10.2005, 15:13

А если так:

Код:

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

 (setq hold (cdr (assoc 40 (tblsearch "STYLE" (getvar "TEXTSTYLE"))))) 
     (if (zerop hold) 
       (command "_text" "_m" a11 <Высота текста> ang txt "") 
       (command "_text" "_m" a11 ang txt "") 
 )

:?:

VetalBY · 21.10.2005, 15:17

Идет проверка, в текущем текстовом стиле установлена высота?
Далее ветвление, если высота не задана, значит ее нало задать в комманде text, иначе задавать не надо

VetalBY · 21.10.2005, 15:28

<Высота текста> - это переменная либо константа

Кулик Алексей aka kpblc · 21.10.2005, 15:41

Я не про это. Я про то, что в конце команды у меня стоит дополнительный Enter - "", завершающий "_.dtext"

Александер · 21.10.2005, 15:52

видимо я суть проблемы описал не точно, раз все меня не поняли

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

"Неверная точка"
далее пишет "функция отменена; сброс после ошибки"

суть вопроса - как использую сист. переменную lastpoint можно задать координаты точке вставке текста. текст надо вставить в точке, смещенной от lastpoint на некую величину:

для этого и пишу, примерно так:

(setq a10 (getvar "lastpoint")) - присваиваю переменной a10 координаты последней точки.

(setq a11 (polar a10 (* pi 0.6) 1017)) - пытаюсь другой точке (точка куда надо вставить текст) задать координаты.

(command "_text" "_m" a10 ang txt) - пытаюсь вставить текст в нужной точке

и не получается т.к. точка вставки не нравиться - как ее правильно задать???

Кулик Алексей aka kpblc · 21.10.2005, 16:07

Давай соберем все воедино, а?

Код:

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

(setq a10 (getvar "lastpoint")) 
(setq a11 (polar a10 (* pi 0.6) 1017)
      text_height 3 ; Эту строку сделал для проверки
      ang 0           ; Эту строку сделал для проверки
      txt "test"      ; Эту строку сделал для проверки
      )
 (setq hold (cdr (assoc 40 (tblsearch "STYLE" (getvar "TEXTSTYLE"))))) 
     (if (zerop hold) 
       (command "_text" "_m" a11 text_height ang txt "") 
       (command "_text" "_m" a11 ang txt "") 
 )

ытя · 21.10.2005, 17:21

см. ниже

ытя · 21.10.2005, 17:22

Цитата:

Сообщение от Александер

(command "_text" "_m" a10 ang txt) - пытаюсь вставить текст в нужной точке

д.б.:
(command "_text" "_m" a10 "" ang txt "")
или (command "_text" "_m" a10 height ang txt "")

VetalBY · 21.10.2005, 23:40

Цитата:

Сообщение от kpblc

Я не про это. Я про то, что в конце команды у меня стоит дополнительный Enter - "", завершающий "_.dtext"

oops, сразу не заметил, только он там абсолютно лишний, он повторит последнюю комманду :shock:
и не "_.dtext", а "_.text", а это существенная разница.
Пятница.... :?

ЗЫ: Да я же поэт!

VetalBY · 22.10.2005, 00:00

Цитата:

Сообщение от Александер

для этого и пишу, примерно так:

(setq a10 (getvar "lastpoint")) - присваиваю переменной a10 координаты последней точки.

(setq a11 (polar a10 (* pi 0.6) 1017)) - пытаюсь другой точке (точка куда надо вставить текст) задать координаты.

Здесь все правильно. (крЫс пример привел, все пашет)
Приведи лучше свой код точный, может чего и подскажем...

ЗЫ обрати внимание, ты текст вставляешь в точку a10, а не a11 (а если перед (command "_text" ....) было (setq a10 "test"))
Посмотри внимательнее свой код...

Александер · 24.10.2005, 11:10

Всем спасибо, разобрался

просто забыл паузу поставить:

(command "_.copy" a1 a2 a3 a4 a5 a6 a7 a8 "" a1 pause) - в этой строке
(setq a10 (getvar "lastpoint"))
(setq a11 (polar a10 (* pi 0.4) 1017))
(command "_.text" "_m" a11 ang txt )

а все остальное было правильно

Кулик Алексей aka kpblc · 24.10.2005, 11:27

> VetlaBY : :?:

Цитата:

oops, сразу не заметил, только он там абсолютно лишний, он повторит последнюю комманду
и не "_.dtext", а "_.text", а это существенная разница.

для 2005-го не повторяет, а именно завершает. Если тестировалось на 2006, то там не знаю, но у меня идет завершение команды.

VetalBY · 24.10.2005, 12:05

Проверил на версиях 2002, 2004, 2005, 2006 - у меня повторяет. Да и странно было бы, если на разных версиях работает по-разному. И у Александер судя по всему работает.
В своих программах уже 5 лет использую без последнего Enter - до сих пор вопросов не возникало.
Вот к примеру другого автора
http://www.autocad.ru/cgi-bin/f1/board.cgi?t=19645NL
или вот
http://www.autocad.ru/cgi-bin/f1/board.cgi?t=14456Ok

Может я чего-то не догоняю (или какая-то неизвестная мне установка) :shock:
Подскажите, если кто знает....

Кулик Алексей aka kpblc · 24.10.2005, 12:14

Ну если честно, то я предпочитаю тексты все-таки создавать через (entmake) - меньше шансов огрести проблем. А тут просто пошел по пути повтора запросов командной строки. Вот и получил по полной

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

VetalBY · 24.10.2005, 12:18

Ну что ж ты так народ-то пугаешь

Кулик Алексей aka kpblc · 24.10.2005, 12:40

:?: Чем пугаю-то?

VetalBY · 24.10.2005, 12:53

Цитата:

Сообщение от kpblc

для 2005-го не повторяет, а именно завершает.

20.10.2005, 10:44		#1
Как задать точку вставки элемента? Александер Регистрация: 15.06.2005 Сообщений: 184 Такой вопрос: вставляю некий объект в рисунок, (точку вставки пользователь указывает, например р1(x1,y1,z1)) надо этот элемент еще раз вставить, точка вставки тоже указывает пользователь, но координаты y,z должны совпадать с координатами y,z первой точки. Желательно чтобы вторая точка вставки отслеживалась как-то. (например как при черчении отрезка идет отслеживание).
Просмотров: 7372