Объемный текст

Объемный текст · 14.09.2004, 17:03

Хочу сделать объемные буквы, а как незнаю. Текст не выдавливается, попробывал вставитьиз корела - тоже ничего не получилось. Это, конечно можно самому буковку нарисвать (ручками), а если их много и ширфт какой-нибудь хитрый...

URKA · 14.09.2004, 17:20

3DS MAX

Рогатин · 14.09.2004, 17:29

А в автокаде это можно сделать или нет?

{Smirnoff} · 14.09.2004, 17:31

Возмите какой нибудь TTF и взорвите с помощью Explode Text из Экспресов. Результат на картинке, правда он не идеален, т. к. не все элементы явл. замкнутыми полилиниями нужными для _Extrude, но в общем то более мение. Недоработки "отшлифовать напильником"

[ATTACH]1095168702.gif[/ATTACH]

Mikhail · 14.09.2004, 17:46

Цитата:

Сообщение от Fantomas

Возмите какой нибудь TTF и взорвите с помощью Explode Text из Экспресов.

Прикольно получается и быстро)) хоть алфавит создавай

Потом вот еще попросить бы лисп програмистов этот тект волнами пускать в виде массива... вообще красота.

{Smirnoff} · 14.09.2004, 17:51

Цитата:

тект волнами пускать в виде массива...

Чёрт. Фантазии нехватает чтобы это себе представить... :shock:

vk · 14.09.2004, 18:07

В Ворде кажись волнами мона пускать... и в Кореле...
А в АКАДе волну ежли только из дуг синтезировать... и "Текст по дуге" из Экспрессов :twisted:

Mikhail · 14.09.2004, 18:44

Вот что то загорелся... задержался на работе... Получил косые взгляды... но текст волнами пустил)))
[ATTACH]1095173078.jpg[/ATTACH]

{Smirnoff} · 14.09.2004, 18:57

>Mikhail [sm205]

Кстати из Corel получается очень хорошо. Просто перед сохранением в DXF надо убрать цвет букв, но выделить контуры и конечно Convert to Curves.
[ATTACH]1095173873.gif[/ATTACH]

Рогатин · 14.09.2004, 19:27

F a n t o m a s: У меня сейчас под рукой нет автокада, чтобы попробывать, но кажеться это то что мне нужно. Огромное спасибо.
Целую в попу.

plaz · 15.09.2004, 07:57

:shock:

HasBolla · 25.06.2009, 17:46

Цитата:

Сообщение от {Smirnoff}

Возмите какой нибудь TTF и взорвите с помощью Explode Text из Экспресов. Результат на картинке, правда он не идеален, т. к. не все элементы явл. замкнутыми полилиниями нужными для _Extrude, но в общем то более мение. Недоработки "отшлифовать напильником"

[ATTACH]1095168702.gif[/ATTACH]

а можно чуть подробнее. TTF - это какой например. С Arial неполучилось взорвать

ASLYS · 25.06.2009, 17:54

[FONT=Tahoma, sans-serif]Программа Дениса Флюстикова "[/FONT][FONT=Tahoma, sans-serif]Text[/FONT][FONT=Tahoma, sans-serif]3[/FONT][FONT=Tahoma, sans-serif]D[/FONT][FONT=Tahoma, sans-serif]_[/FONT][FONT=Tahoma, sans-serif]Den[/FONT][FONT=Tahoma, sans-serif]" от 30.06.07[/FONT]
[FONT=Tahoma, sans-serif][/FONT][FONT=Tahoma, sans-serif]^C^C^P(load "Text3D_Den");Text3D_Den [/FONT]

Код:

[Выделить все]

 
(defun c:Text3D_Den (/ sys a0 a1 a2 a3 a4 a5 a6
a7 a8 a9 a10 a11 a12 a13 *error*)


(setq sys (mapcar 'getvar '("cmdecho" "osmode" "mirrtext"
"aunits" "angdir" "delobj"))
a5 nil
a10 t
;;; a10 (< (atof (getvar "ACADVER")) 16.1)
a3 (strcat (getvar "tempprefix") "den.wmf"))


(while (null a5)
(if (setq a1 (entsel))
(setq a1 (car a1)
a2 (entget a1)
a4 (cdr (assoc 0 a2))
a5 (wcmatch a4 "TEXT,MTEXT"))
)
(if a5
(setq a0 (trans (cdr (assoc 10 a2)) 0 1)
a9 a0
a6 (cdr (assoc 40 a2))
a8 (cdr (assoc 50 a2))
a8 (* (/ a8 pi) -180))
(princ "\nТекст не выбран")
))


(if (= a4 "TEXT")(progn
(setq a4 (tblsearch "style" (cdr (assoc 7 a2)))
a4 (strcase (cdr (assoc 3 a4)))
a4 (wcmatch a4 "*.TTF,~?*"))
(if a4
(setq a4 (cadr (Textbox a2))
a5 (cdr (assoc 1 a2))
a5 (- (strlen a5)(strlen (vl-string-left-trim " " a5)) -1)
a4 (mapcar '- a0 a4 (list (* a6 a5) 0))
a2 (mapcar '+ a0 (list a6 (* a6 2))))
(princ "\nВыбранный текст не выдавить,
\nпрограмма работает только с TTF-шрифтами")
)))


(if a4 (progn


(initget 3)
(setq a7 (getdist "\nГлубина выдавливания:"))


(princ "\nПодождите, выполняется обработка данных...")


(vl-load-com)
(vla-startundomark
(vla-get-activedocument (vlax-get-acad-object)))


(mapcar 'setvar '("cmdecho" "osmode" "mirrtext"
"aunits" "angdir" "delobj") '(0 0 1 0 0 1))


(defun *error* (msg)
(vla-endundomark (
vla-get-activedocument (vlax-get-acad-object)))
(if (>= (atof (getvar "ACADVER")) 16.2)
(vla-sendcommand (vla-get-activedocument
(vlax-get-acad-object)) "_.undo 1 ")
(command nil nil nil nil "_.undo" 1))
(princ "\nВыход во время обработки данных\n")
)


(if (= a4 "MTEXT")(progn


(setq a5 (cdr (assoc 71 a2))
a4 (cdr (assoc 42 a2))
a2 (cdr (assoc 43 a2))
a6 (list a6 0))


(cond
((< a5 4)(setq a0 (mapcar '- a0 (list 0 a2))))
((< a5 7)(setq a0 (mapcar '- a0 (list 0 (/ a2 2)))))
)


(setq a0 (mapcar '- a0 (list (* a4 0.5 (rem (+ 2 a5) 3)) 0))
a4 (list a4 (- a2))
a4 (mapcar '- a0 a4 a6)
a2 (mapcar '+ a0 a6))
))


(if (setq a6 (>= (atof (getvar "ACADVER")) 17))
(command "_.shademode" "2"))


(if a10
(command "_.rotate" a1 "" a9 a8
"_.mirror" a1 "" a0 "@0,1" "_y"
"_.zoom" "_w" a4 a2)
(command "_.mirror" a1 "" a0 "@0,1" "_y"
"_.zoom" "_o" a1 ""))


(command "_.wmfout" a3 a1 ""
"_.erase" a1 "")


(setq a2 (getvar "vsmin")
a1 (getvar "vsmax")
a2 (angle a1 a2)
a1 (getvar "viewsize")
a4 (getvar "viewctr")
a1 (/ (/ a1 (sin a2)) -2)
a5 (polar a4 (+ a2 pi) a1)
a2 (polar a4 a2 a1)
a2 (list (car a2)(cadr a5)))


(command "_.wmfin" a3 a2 "2" "" ""
"_.zoom" "_p")
(if a6 (vl-cmdf "_.zoom" "_p"))


(vl-file-delete a3)


(setq a11 (entlast)
a4 (cdr (assoc 2 (entget a11)))
a3 (ssadd)
a13 a11)


(command "_.explode" a11)


(vla-Delete (vla-Item (vla-get-Blocks
(vla-get-activedocument (vlax-get-acad-object))) a4))


(while (entnext a11)


(setq a11 (entnext a11)
a4 (entget a11))


(if (= (cdr (assoc 0 a4)) "POLYLINE")(progn


(setq a3 (ssadd a11 a3)
a1 a11)


(if (= (cdr (assoc 70 a4)) 1)


(while a1


(setq a1 (entnext a1)
a4 (cdr (assoc 10 (entget a1)))
a2 (entnext a1)
a12 0
a6 0)


(while a12


(if (= (cdr (assoc 0 (entget a2))) "SEQEND")
(setq a2 (entnext a11)
a1 nil
a6 (1+ a6))
)


(setq a5 (cdr (assoc 10 (entget a2))))


(if (and (equal a5 a4 0.000001)(< a6 3))
(setq a2 (entnext a2))
(setq a12 nil)
)
)
(if (< a6 3)(progn
(setq a12 (entnext a2)
a2 (entget a2))


(while a12


(if (= (cdr (assoc 0 (entget a12))) "SEQEND")
(setq a12 (entnext a11))
)


(setq a6 (cdr (assoc 10 (entget a12))))


(if (equal a6 a5 0.000001)
(setq a12 (entnext a12))
(setq a12 nil)
)
)


(if (equal (sin (- (angle a5 a6)
(angle a5 a4))) 0.0 0.0005)
(entmod (subst (cons 10 a4)(assoc 10 a2) a2))
))
(entdel a11)
)
)
(while (/= (cdr (assoc 0 a4)) "SEQEND")
(setq a11 (entnext a11)
a4 (entget a11))
))
))
)


(if (> (sslength a3) 0)(progn


(command "_.mirror" a3 "" a0 "@0,1" "_y")


(if a10 (command "_.rotate" a3 "" a9 (- a8)))


(vl-cmdf "_.region" a3 "")


(setq a3 (ssadd)
a4 (ssadd))


(while (setq a13 (entnext a13))


(if (= (cdr (assoc 0 (entget a13))) "REGION")
(setq a3 (ssadd a13 a3))
(if (= (cdr (assoc 0 (entget a13))) "POLYLINE")
(setq a4 (ssadd a13 a4))
)))
))


(if (> (sslength a3) 0)
(progn


(princ "\nПодождите, выполняется обработка данных...")


(if (> (sslength a3) 1)
(command "_.union" a3 ""))


(command "_.extrude" a3 "" a7 0)


(mapcar 'setvar '("cmdecho" "osmode" "mirrtext"
"aunits" "angdir" "delobj") sys)
(vla-endundomark
(vla-get-activedocument (vlax-get-acad-object)))


(if (> (setq a3 (sslength a4)) 0)(progn
(sssetfirst nil a4)
(princ (strcat "\nНе удалось обработать " (itoa a3) " контура(ов)."))
))


)(progn
(vla-endundomark
(vla-get-activedocument (vlax-get-acad-object)))
(command "_.undo" 1)
(princ "\nНе удается выдавить выбранные объекты.")
))
))
(princ)
)

HasBolla · 25.06.2009, 18:25

Выдавливает один раз, а когда пытаешся выдавить следующее слово пишет, что выдавить невозможно. Не все буквы выдавливает. Выдавливает только после перезагрузки CAD-a. Что такое TTF шрифты? как их отличить от не TTF?

ASLYS · 25.06.2009, 18:49

Цитата:

как их отличить от не TTF?

отличить- по значку перед шрифтом.
попробуй этот код

sasha_lif · 26.06.2009, 11:55

http://forum.dwg.ru/showthread.php?t...F2%E5%EA%F1%F2
во похожая тема
Накатка текста (кривой) на 3d тело

14.09.2004, 17:03		#1
Объемный текст Рогатин конструктор Al (не волшебник, а только учусь) Моcква Регистрация: 04.12.2003 Сообщений: 137 Хочу сделать объемные буквы, а как незнаю. Текст не выдавливается, попробывал вставитьиз корела - тоже ничего не получилось. Это, конечно можно самому буковку нарисвать (ручками), а если их много и ширфт какой-нибудь хитрый...
Просмотров: 15622