Приемы работы для начинающих в Автокаде

Да оно как бы и не сложно, был бы от нее вам прок))
http://geodesist.ru/forum/resources/dr-pk-road.12/
Запуск: _DRPK

 

Alexandr-GR,
Qvinto,
Благодарю за советы, прок есть и будет!
Удачи!

 

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

 

btigeotop, а этот вариант чем не устраивает? Или имеется ввиду координатная сетка. Уточните.

 

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

образец который работает в связке с другими
;;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))

 

Спасибо за чудесный лисп, крайне доволен))

 

как сделать пикетаж на полилинии?

 

посмотреть на 3 сообщения выше и скачать лисп

 

А для определения пикетажного положения на трассе (полилиния или сплайн) можно воспользоваться этим лиспом:
"Под себя" настраивается отображением стиля мультивыноски.

 

Выручил, чувак! Спасибо!

 

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

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


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

 

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

 

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

 

В ресурсы заглянуть "слабо"?
На 4 странице...

 

Слабо! знал бы не спрашивал

 

Гулов,

Так нашёл, или нет?

 

да ! спасибо

 

Гулов,

 

Программа хорошая. Вот, если бы еще сначала спрашивала какой величины текст!!!

 

А при чём тут величина текста? Как мультивыноску, с какой величиной текста выставишь в настройках, так и получишь.