Как объединить текст и точку в AutoCAD

Пока ничего не найду Спасибо

 

В менюГЕО можно, там есть лиспы. Но, надо знать как ими пользоваться.Можно и геоэкспортом от Диснея. Тоже, удобно.
Мне больше нравится пользоваться этим
http://www.dxf-workshop.com/applications/3_applications_near.php
Там эсть возможность проанализировать к какой точке какой текст прицепился. Удобно!
Этот вопрос возникает у пользователей довольно часто. Значит, форум не курят. Перенаправляю в нужную тему. Там всё и читайте.

 

Николай Ерошкин, Уточните, отметки то к точкам съемки есть? Если отметки подписаны то нужно присвоить точкам отметку с текста, а это можно выполнить с помощью "лиспа" входящего в комплект программ таких как Geo Tools или Меню Гео например.

 

(defun C:Ztxt ( / objSet Point ptLst tmp1 tmp2 pat txtZList dst *error*)
(vl-load-com)
(defun *error*(msg)(princ msg)
(vla-EndUndoMark (vla-get-activedocument (vlax-get-acad-object)))(princ))
(vla-StartUndoMark (vla-get-activedocument (vlax-get-acad-object)))
(if (and
(setq objSet(ssget "_:L" '((0 . "POINT"))))
(setq Point (vl-remove-if 'listp(mapcar 'cadr(ssnamex objSet))))
(setq ptLst(mapcar 'cdr (mapcar '(lambda(x)(assoc 10 x))(mapcar 'entget Point))))
(setq objSet nil objSet(ssget "_X" (list '(0 . "*TEXT")(cons 410 (getvar "CTAB")))))
)
(progn
(setq tmp1 (vl-remove-if 'listp(mapcar 'cadr(ssnamex objSet))))
(setq tmp1 (mapcar '(lambda(x)(setq x (entget x))(list (cdr(assoc 10 x))(cdr(assoc 1 x)))) tmp1))
(foreach pt ptlst
(setq tmp2 (mapcar '(lambda(x)(list (distance pt (car x))(cadr x))) tmp1))
(setq pat (car tmp2))
(foreach dst tmp2 (if (< (car dst) (car pat))(setq pat dst)))
(setq txtZList (cons (cadr pat) txtZList))
)
(setq txtZList (reverse txtZList))
(setq txtZList (mapcar '(lambda(x)
(vl-string-translate "," "." (vl-string-trim "%UuoOcC \t" x))
)txtZList))
(mapcar '(lambda(ptObj pt Z)
(vla-put-coordinates (vlax-ename->vla-object ptObj)
(vlax-3d-point (list (car pt)(cadr pt) Z))
)
)
Point ptLst (mapcar 'atof txtZList)
)
)
)
(vla-EndUndoMark (vla-get-activedocument (vlax-get-acad-object)))
(princ)
)
(princ "\nType Ztxt in command line")

 

Николай Ерошкин, ещё, это глянь. В этой жизни всё просто, только надо знать как ею пользоваться.
http://geodesist.ru/forum/threads/nadstrojki-po-geodezii-k-autocad.4611/#post-68093

 

Благодарю завтра буду пробовать

--- Сообщения объединены, 29 окт 2015, Оригинальное время сообщения: 29 окт 2015 ---

Лиспы у меня установлены только вот не получилось почему то с мощью их сделать буду ещё пытаться. Попробую той утилитой что вы посоветовали Спасибо

 

А что именно не получилось?

 

Подскажите пжл как правильно установить Экстра тулс?

 

А что конкретно Вам не ясно? Здесь в видео ролике все разъяснено.

 

Вот за полминуты сделал.Все просто как божий день.Лисп ACAD2TXT

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

--- Сообщения объединены, 19 ноя 2015 ---

Можно и прогой от диснея.Ставишь галочку в графе текст по моему и выбираешь близлежащий текст и все файл готов!От Диснея тоже очень шикарная программа.Только в ТХТ можно а в той которой я пользуюсь можно сразу и вTXT и в SDR

 

Что надо сделать с скаченым файликом чтобы он автокаде появился?

 

Ищи на форуме по слову: geo_import

 

Благодарю

 

Да Меню Гео скачай и все вопросы отпадут сами собой.Там есть все!!!!Только установи VBA модуль а то не все программы из этого сборника будут работать.Желаю успехов!

 

Благодарю разобрался.

 

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

 

Отдельный лисп прикрепил.

 

Как присвоить точке (или блоку) отметку рядом стоящего текста? может лисп есть или прога какая?

 

МенюГео Вам в помощь (раздел геодезия)

 

мне тут посоветовали GEO_EXPORT уже... буду пробывать