[klinker]

Привет, инженеры! Подскажите, как сделать текст параллельным линии произвольно ориентированной в пространстве, или так что бы он при вставке поворачивался параллельно указанной линии, кто знает как это сделать, подскажите! Может лисп какой есть или что-то подобное!

[zenon]

_align

[Profan]

Расположи ПСК (UCS) по объекту и пиши текст. Только проверь направление осей X и Y.

[skif58]

torient из Экспресс

[AlexV]

..Да в конце концов просто _rotate с опцией "Опорный угол"..

[Krieger]

http://forum.dwg.ru/showthread.php?t=31118

[VVA]

Dynamically Align Text to Curve { With Reactors }(Требуется регистрация)

[Bassreflex]

День добрый.
Столкнулся с такой проблемкой. При повороте текста (многострочного или однострочного) в котором содержатся поля - эти самые поля и примыкающий за ними текст "съезжают" с линии и образуют "ступеньки".
Что с этим делать и как бороться - ума не приложу :-(

[black_mts]

Сообщение от Bassreflex Столкнулся с такой проблемкой.

Это глючит ваш А-КАД. У меня все норм открылось, и крутится нормально.

[Victor]

Код:

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

(vl-load-com)
(defun cent ( pln / vlaObj minPt maxPt)
(setq vlaObj (vlax-ename->vla-object pln))
(vla-GetBoundingBox vlaObj 'minPt 'maxPt)
(setq minp (vlax-safearray->list minPt))
(setq maxp (vlax-safearray->list maxPt))
(setq midp (list (/(+(car minp)(car maxp)) 2)(/(+(cadr minp)(cadr maxp)) 2)))
)

(defun C:11 ( / *error* bl lw prm proiz ugol_pl ugol_pl_gr spis_blk 
                ugol_t kor_blok P-ugol ugol_rad ugol_grad ugol-povorota)
     (defun *error* (msg)
     (if snp (setvar "osmode" snp))
     )
;;;;;;;;;;;;;;;;
(setq snp (getvar "Osmode"))
(setvar "Osmode" 0) 
(setq lw (entsel "\n Select segment in a polyline. "))
(repeat 20
(setq bl (car(entsel "\n Select blok")))
(setq prm  (vlax-curve-getParamAtPoint
              (car lw)
              (vlax-curve-getClosestPointTo (car lw) (cadr lw))
              )) ;_  vlax-curve-getParamAtPoin
(cent bl)
(setq proiz (vlax-curve-getFirstDeriv (car lw) prm))
(setq ugol_pl (angle '(0 0 0) proiz))
(setq ugol_pl_gr (* ugol_pl 57.29747))
(setq spis_blk (entget bl)); spiisok bloka       
(setq P-ugol (assoc 50 spis_blk));para ugol
(setq ugol_rad  (cdr P-ugol)) ;ugol v rad                          
(setq ugol_grad (* ugol_rad 57.29747)) ;ugol v grad
(setq ugol-povorota (- ugol_pl_gr ugol_grad))           
(setq ugol_t (+ ugol-povorota ugol_grad))
(if (and(> ugol_t 90)(< ugol_t 270))
    (setq ugol-povorota (- ugol-povorota 180)))
(command "_rotate" bl "" midp ugol-povorota)
)
(setvar "Osmode" snp) 
)