| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > Помогите с созданием команды. Создание точки с вставкой отметки Z из выбранного текста

Помогите с созданием команды. Создание точки с вставкой отметки Z из выбранного текста

Ответ
Поиск в этой теме
Непрочитано 30.07.2013, 16:17 #1
Помогите с созданием команды. Создание точки с вставкой отметки Z из выбранного текста
Tablatura
 
Регистрация: 30.07.2013
Сообщений: 2

Здравствуйте.
Смысл команды такой. Создание точки и задание ее высотной отметки из указанного на экране текста. Необходимо при оцифровке съемки. Т. к Мосгеотрест присылает съемку без активных точек с высотной отметкой, а текст и окружности как место привязки. Из-за большого скопления отметок на чертеже т.к работаем в городе невозможно пользоваться командой Civil 3d поднятие текста на высоту указанную в тексте. Поэтому вручную кропотливо перебивать кучу отметок и хочется немного автоматизировать процесс.
Честно не дружу с autolisp, пытался обойтись макросом с объединением команд.
Список примерно такой:
1. Создание точки
2. Выбор ближайшего нужного текста с высотной величиной и копирование ее в буфер обмена
3. Используя команду "Выбрать последний" выбираем последнюю созданную точку.
А вот дальше возникла проблема как вставить буфер обмена в графу свойств "Положение z" выбранной точки командой а не наведением курсора и Ctrl+v.
Данные нужны для создания поверхности для робура. т.к в робуре тоже жутко неудобно пробивать точки.
Плиз помогите с командой или наведите на мысль как ее все-таки сделать.

Изображения
Тип файла: jpg 31016tp-Model.jpg (184.6 Кб, 189 просмотров)

Просмотров: 3116
 
Непрочитано 30.07.2013, 16:19
#2
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Раз "помогите", значит, самостоятельно уже что-то сделано. Что именно?
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 30.07.2013, 17:30
1 | #3
sertor

Геодезист
 
Регистрация: 23.05.2012
Ухта
Сообщений: 1,374


Попробуйте этот набор, может в какой-то степени решит Вашу пробему.
Вложения
Тип файла: rar Пример обработки исходного файла.rar (378.7 Кб, 52 просмотров)
__________________
Как-то так.
sertor вне форума  
 
Непрочитано 30.07.2013, 17:36
1 | #4
ProPeller

Пастух
 
Регистрация: 16.07.2012
Питер
Сообщений: 318


На уровне макросов вряд ли получится сделать.
Я в лиспе совсем новичок, но накидал кривенькую программку. Надеюсь пригодится.

Принцип простой, загружаете программку, в коммандной строке набираете pnt, далее жмете в место куда поставить точку, а затем нажимаете на текст отметки.

Код:
[Выделить все]
(defun c:pnt (/)
  (repeat 10000
    (progn
      (setq pnt
	     (cdr (reverse
		    (cons 10
			  (getpoint "Укажите положение точки: ")
		    )
		  )
	     )
      )
      (setq coorz
	     (atof
	       (cdr
		 (assoc	1
			(entget
			  (car
			    (entsel "Выберите отметку: ")
			  )
			)
		 )
	       )
	     )
      )
      (setq pnt
	     (reverse
	       (cons coorz pnt)
	     )
      )
      (setq newpnt '((0 . "POINT") (10 0.0 0.0 0.0)))
      (setq newpnt
	     (subst pnt (assoc 10 newpnt) newpnt)
      )
      (entmake newpnt)
    )
  )
  (princ)
)

Последний раз редактировалось ProPeller, 31.07.2013 в 14:52.
ProPeller вне форума  
 
Автор темы   Непрочитано 02.08.2013, 08:57
#5
Tablatura


 
Регистрация: 30.07.2013
Сообщений: 2


Спасибо, сори что не отвечаю. Сейчас на обучении. Большое спасибо за ответы попробую lisp.
Tablatura вне форума  
 
Непрочитано 02.08.2013, 13:57
#6
hwd

C, C++, C#
 
Регистрация: 07.10.2009
С-Пб.
Сообщений: 2,762
Отправить сообщение для hwd с помощью Skype™


Offtop:
Цитата:
Сообщение от Tablatura Посмотреть сообщение
Помогите с созданием команды.
Та самая "команда"...
Изображения
Тип файла: jpg users.jpg (81.2 Кб, 1192 просмотров)
__________________
Надеюсь, ты не социальный овощ? Это определяется делами! :welcome:
hwd вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > Помогите с созданием команды. Создание точки с вставкой отметки Z из выбранного текста

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Линии электрических соединений Shoorup Программирование 23 07.02.2015 15:13
Программное создание размерных стилей Кулик Алексей aka kpblc Программирование 89 08.04.2013 12:59
Создание точки поверхности Civil 3D из текста Maria-Mirabella Вертикальные решения на базе AutoCAD 29 26.02.2013 07:18