Как придать текстовую величину?
Как придать текстовую величину?
Замучалась искать,может кто поможет, есть точки или блоки с высотой в автокаде,но нет к ним отметок.Как им придать текстовую величину?есть какой-нибудь способ, КРОМЕ 3d service?????
- Александр Устинов
- Администратор
- Сообщения: 3555
- Зарегистрирован: 14 ноя 2013, 09:10
- Откуда: Химки
- Контактная информация:
Re: Как придать текстовую величину?
Если просто точки, то загнать в Civil и сделать текстовую метку. В свойствах группы точек стиль метки точек или стиль точки. В справке к Civil должно быть описано.
Re: Как придать текстовую величину?
Если для точек, то есть простенький и замечательный лиспик. Запускается командой PL. Ну, очень удобно.Belo4ka писал(а):Замучалась искать,может кто поможет, есть точки или блоки с высотой в автокаде,но нет к ним отметок.Как им придать текстовую величину?есть какой-нибудь способ, КРОМЕ 3d service?????
Код: Выделить всё
(defun c:pl ( / H SSET lay osm npoint n ent pxy pz)
(if(and
(setq sset (ssget '((0 . "POINT"))))
(setq h (getreal "\tУкажи высоту текста\t\t")))
(mapcar(function(lambda (x)
(entmake(list '(0 . "text")
(assoc 10 (entget x))(cons 40 h)
(cons 1 (rtos (cadddr (assoc 10 (entget x))) 2 2))))))
(vl-remove-if (function listp)
(mapcar (function cadr) (ssnamex sset)))))
(princ))
А блоки! А блоки у вас с атрибутами? Если с атрибутами, то тогда просто.
Если нет, то я бы сделал следующим образом: скопировал в исходные координаты все необходимые блоки в чистый чертёж, там, зашел в редактор блоков, и отредакторовал бы вхождение блока, то есть: заменил все элементы точки вставки блока на примитив Автокада точка. Соранил бы вхождение блока. А, потом взорвал бы их всех. В результате, вместо блоков у меня будут точки Автокада. Дальше догадываетесь, что надо сделать? Что бы отметки получить?
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и 1 гость