выноска координат одной клавишей по иксам и игрекам

Это понятно.... Я бы хотел красоту наводить после того как выноску определил...

 

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

 

Добрый день!А возможно ли такая же программа,но не с мультвынос.,а как с обычной ОРДИНАТНЫЙ Р-Р?

 

CONSTANTIN,
Если чего подправить в значении координат, "взорви" мультивыноску и "усё у парадку, шэф"...
Хотя, настройки мультивыноски позволяют решить практически все "заморочки"...

 

В составе AsmiTools - сборник Lisp программ от Александра Смирнова есть программки ORDI.LSP и ORDY.LSP, которые подписывают координаты и (при необходимости) номер точки именно при помощи ординатного размера.

 

А как сделать так, чтобы автокад показывал координаты креста одновременно по X и по Y.

 

Есть лиспы (подпись кооррдинат) которые взаимосвязаны с другими лиспами, хотелось бы иметь лисп, который бы сам по себе работал

образец который работает в связке с другими

Код:

;;COORDS.LSP
;;28.09.2001
;;KARIMOV A.
;;version 1.0
(defun *error* (msg)
(princ "Error:")
(princ msg)
(princ)
(setvar "OSNAPCOORD" osn)
(setvar "OSMODE" osm)
(setvar "CMDECHO" cmd)
(princ))
(defun c:coord (/ dcl_id p x y sz p1 p2 s ss)
(setq cmd (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(setq osn (getvar "OSNAPCOORD"))
(setq osm (getvar "OSMODE"))
(setvar "OSNAPCOORD" 1)
(setvar "OSMODE" 0)
(setq p (getpoint "Укажите точку:"))
(setq sz "1.0") (setq x (rtos (car p) 2 2)) (setq y (rtos (car (cdr p)) 2 2))
(setq dcl_id (load_dialog "coords.dcl"))
(if not (new_dialog "coords" dcl_id) (exit) ) (action_tile "size" "(setq sz $value)")
(set_tile "size" sz) (action_tile "xpos" "(setq x $value)") (set_tile "xpos" x)
(action_tile "ypos" "(setq y $value)") (set_tile "ypos" y) (start_dialog)
(unload_dialog dcl_id) (setq s (atof sz))
(setq p1 (polar p (* pi 1.75) (* s 1)))
(setq p1 (polar p1 (* pi 1.5) (* s 1)))
(setq p2 (polar p (* pi 0.75) (* s 1)))
(setq ss (ssadd (entlast)))
(ssadd (entlast) ss)
(if (= (cdr (assoc 40 (tblsearch "style" (getvar "textstyle")))) 0)
(command "_text" p1 s "0" y)
(command "_text" p1 "0" y))
(ssadd (entlast) ss)
(if (= (cdr (assoc 40 (tblsearch "style" (getvar "textstyle")))) 0)
(command "_text" p2 s "90" x)
(command "_text" p2 "90" x))
(ssadd (entlast) ss)
(setvar "OSNAPCOORD" osn)
(setvar "OSMODE" osm)
(setvar "CMDECHO" cmd)
(princ))

 

borik, Спасибо ваш LSP очень выручил !

 

tuban,
НЕ я АВТОР ЭТОГО ЛИСПА !!!!!!!!!!!!!!!!!!!!!!

 

borik, да, я это знаю, просто если бы не вы я бы его не нашел )

 

Обалдеть!!!
Так и говори спасибо автору, а то я уже сильно-сильно

 

borik, спасибо автору и вам )

 

Друзья, у меня беда(( набираю команду, выбираю не выводить Z... Итог отметку не выводит но и криво отображает. Нужна черта между X и Y. Также лишняя строчка над координатой Х. Подскажите как это в коде подправить?

Хочется что бы было так


Помогите пожалуйста!!

И она у меня не как мультивыноска получается почему-то(((

 

У меня он работает именно так, как у Вас во втором варианте.
Поменяйте настройки мультивыноски так, как нужно Вам.
Формат -> Стиль мультивыноски.
и попробуйте мой лисп, я его приложил к ответу

 

stormok, Вот Ваш лисп определяется как мультивыноска, все сделал как хотел, Спасибо вам!))) Но нет маски текста... Как это сделать, а то в настройках мультивыноски я не нашел этого((

 

Под маской текста Вы имеете ввиду скрытие заднего плана?
Если да, то к сожалению, в данный момент у меня нет возможности открыть автокад и посмотреть.
Но как вариант расставлять выноски с координатами, когда все выноски будут расставлены выделить одну из них->нажать правой кнопкой мыши по ней -> клацнуть по: выбрать подобные. Выделятся все выноски с координатами. далее нажать ctrl+1 откроется окно со свойствами и там в блоке настроек текста выбрать скрытие заднего фона - да.

 

Спасибо, работает))))) Только выбрать подобные у меня не было в контекстном меню (AutoCAD 2014). И все же очень бы хотелось чтобы маска автоматом появлялась. Как я понял это прописано в коде лиспа, только какими командами это прописано я не понял((

 

Может быть пригодится - не знаю. Выноски не практикую, делал просто из интереса. Навернул, возможно, лишнего, а нужное мог не сделать.
Сделал не как вариант лучше предыдущих - как пропаганду динамических блоков. :)
Иногда достаточно самому сделать динамический блок. И изменять его тогда самому можно.
Программно же, конечно, сделать можно многое лучше.

 

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

--- Сообщения объединены, 27 авг 2014, Оригинальное время сообщения: 27 авг 2014 ---

Странно, сам работаю в 2014 автокаде и у меня есть пункт в контекстном меню: выбрать подобные. Так-же была эта функция у меня всегда начиная с 11 акада.
Не знаю, на сколько серьезно наказывается администрацией геодезиста ссылка на сторонний ресурс, но рискнем... ссылка там про скрытие заднего фона, может поможет

 

Без программы - блоком с атрибутами, которые сами считывают и надписывают координаты вставки блока. Шрифт, блок креста (или его отсутствие), размеры, аннотативность, единицы и пр. - по вкусу через редактор блоков.
Если такой вставленный в файл блок размножали простым копированием, то надписи координат обновятся после _REGEN, _REGENALL (РЕГЕН, ВСЕРЕГЕН), после открытия чертежа и т.п.

Еще вариант - с параметром видимости. Уже почти динамический блок.

Эти блоки делал в размерах для 1:2000.