[reddiska]

Экспресс Тулс, ториент, насколько я понимаю, разворачивает только по двум точкам. Весь интернет обыскала - не нашла, как можно повернуть текст по кривой линии Может, кто поможет? Точек много тысяч, дорога - много километров... По двум точка не подходит - у меня этих точек поворота сотни. Это точно можно как-то сделать, люди делают.

[Олег (jr.)]

Сообщение от reddiska Экспресс Тулс, ториент, насколько я понимаю, разворачивает только по двум точкам. Весь интернет обыскала - не нашла, как можно повернуть текст по кривой линии Может, кто поможет? Точек много тысяч, дорога - много километров... По двум точка не подходит - у меня этих точек поворота сотни. Это точно можно как-то сделать, люди делают.

Приложи чертеж для примера (не выше A2010), я делал что-то подобное
типа расстановки пикетов

~'o'~

[reddiska]

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

[gomer]

Указываете отметки, указываете трассу и вуаля

Код:

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

 (defun c:alite (/ *error* ss bent cent i pt doc rot)
  (defun *error* (msg) (princ))
  (vl-load-com)
  (if (and (setq ss (ssget '((0 . "TEXT"))))
          (setq bent (car (entsel)))
      )
    (progn
      (setq i   0
            doc (vla-get-activeDocument (vlax-get-acad-object))
      )
      (vla-StartUndoMark doc)
      (repeat (sslength ss)
        (setq
          cent (ssname ss i)
          rot
          (+ (* 0.5 pi)
            (angle
              (vlax-curve-getclosestpointto
                (vlax-ename->vla-object bent)
                (setq bpt (cdr (assoc 10 (entget cent))))
              )
              bpt
            )
          )
        )
        (if (< (* 0.5 pi) rot (* 1.5 pi))
          (setq rot (+ pi rot))
        )
        (vla-put-Rotation
          (vlax-ename->vla-object cent)
          rot
        )
        (setq i (1+ i))
      )
      (vla-EndUndoMark doc)
    )
  )
  (princ)
)

[reddiska]

Не получается((( ЛИсп загрузила, ввожу alite, а автокад пишет - неизвестная команда

[gomer]

может с номерами строк скопировали? у меня работает

[reddiska]

АаааааааАААААААААаА!!!!! КРуто!!!! Спасибо огромное, то, что надо!!!!

[Олег (jr.)]

Проверь из моих запасов

Код:

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

;; fixo () 2010 * all rights released

;; created: 3/23/10
;; last edit date: 8/19/12
(defun C:ALPIK(/ *error* adoc ang curve en pt ss tp txtobj)
(vl-load-com)
  (defun *error* (msg)
    (if adoc (vla-endundomark  adoc))
    (if
      (and msg
	   (not
	     (member
	       msg
	       '("console break"
		 "Function cancelled"
		 "quit / exit abort"
		 ""
		)
	     )
	   )
      )
       (princ (strcat "\nError: " msg))
    )

    (setvar "nomutt" 0)
        
    (princ)
  );_ error function
  
 (or adoc
     (setq adoc	(vla-get-activedocument
		  (vlax-get-acad-object))))
  
(vla-startundomark adoc)
 (setvar "nomutt" 0)
 (prompt
   "\nВыбрать весь текст для выравнивания по оси дороги\n")
  (setvar "nomutt" 1)
  (setq ss (ssget "_:L" (list (cons 0 "TEXT"))))
  (setvar "nomutt" 0)
  (setq curve (car (entsel "\nВыбрать сторону дороги для выравнивания пикетов: ")))
  (if (and ss curve)
	       (while
		 (setq en (ssname ss 0))
		       (setq txtobj(vlax-ename->vla-object en))
		  (setq	pt (vlax-curve-getclosestpointto
			     curve
			     (setq tp (vlax-get txtobj 'insertionpoint))))
		  (vlax-put txtobj 'rotation (setq ang (- (angle pt tp) (/ pi 2))))
		  (if (< (/ pi 2) ang (* pi 1.5))
		    (vlax-put txtobj 'rotation (+ pi ang)))
		  (ssdel en ss)
		  )
    )
 
 (*error* nil)
 (princ)
  )   
(princ "\n\t\t   Старт команды: \"ALPIK\" или \"alpik\"\n")
(prin1)
(or (vl-load-com)(princ))

~'o'~

[gomer]

Олег (jr.), твой лисп то же что и мой делает, но мой похардкорнее

[Valery Brelovsky]

Сообщение от gomer Олег (jr.), твой лисп то же что и мой делает, но мой похардкорнее

А тоже самое, но для блока с атрибутом.

[Олег (jr.)]

Посмотри здесь:
http://forums.augi.com/showthread.ph...=1#post1172418

[Valery Brelovsky]

Сообщение от Олег (jr.) Посмотри здесь: http://forums.augi.com/showthread.ph...=1#post1172418

По ссылке это не то. Там разбивается пикетаж. А мне всётаки нужно блоки. Не хотелось взрывыать блоки что бы потом вращать текст.

[gomer]

Сообщение от Valery Brelovsky Не хотелось взрывыать блоки что бы потом вращать текст.

Блок - понятие непостоянное, сегодня он так выглядит, завтра иначе, поэтому универсального решения не может быть для блоков
В принципе, если блок сделан правильно, то, если заменить (0 . "TEXT") на (0 . "TEXT,INSERT"), вcе получится

[Valery Brelovsky]

Сообщение от gomer Блок - понятие непостоянное, сегодня он так выглядит, завтра иначе, поэтому универсального решения не может быть для блоков В принципе, если блок сделан правильно, то, если заменить (0 . "TEXT") на (0 . "TEXT,INSERT"), вcе получится

Понял. Спасибо. Попробуем.

[Krovlaf]

Блок - понятие непостоянное, сегодня он так выглядит, завтра иначе

Пардон, это как? Самопроизвольно? (два добрых духа - Crazy)
С блоками работает!!! Автору - большое человеческое СПАСИБО!

[Valery Brelovsky]

Сообщение от gomer вcе получится

Всё получилось отлично. Теперь работает с текстами и блоками.

[Петров Евгений]

Я так понял, что Alite работает только с блоками и текстом. У меня проблема с метками точек COGO в CIVIL. Кто-нибудь знает как повернуть их массово вдоль длинной и изогнутой полилинии не взрывая?

[reddiska]

Блин, 12 лет прошло, а вот на новом компе в чужом месте понадобился лисп, и аж пришлось на форум заходить, чтобы опять его скачать. 12 блин лет спустя пользуюсь все теми же лиспами)