[Jeriko]

Доброго времени суток.
Есть план трассы трубопровода в виде полилинии, на всем его протяжении куча текста, блоков и тд под разным углом. Существуют ли какиенибудь макросы или лиспы, что бы автоматически выровнять текст и блоки параллельно полилинии?

[Victor]

Автоматически не могу предложить. Только с кликами. Делал для блоков но работает и для текстов как ни странно. Клик по полилинии а потом кликай по текстам

Код:

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

(defun C:11 ( / bl lw prm proiz ugol_pl ugol_pl_gr spis_blk ugol_t
                 kor_blok P-ugol ugol_rad ugol_grad ugol-povorota)
(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
(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 kor_blok (cdr(assoc 10 spis_blk))); tochka vstavki(x y z)        
(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 "" kor_blok ugol-povorota)
)
)

[Jeriko]

Victor То что нужно, огромное Вам, спасибо!

[Кулик Алексей aka kpblc]

Victor, про тэг CODE не забывай

[msilk]

Интересно...а есть такой лисп,который бы текст,не параллельно а перпендикулярно выравнивал выбранной линии.

[Кулик Алексей aka kpblc]

Как вариант:

Код:

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

 (vl-load-com)

(defun c:complex-align (/ adoc ang ent selset)

  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (if
    (and (= (type (setq ent (vl-catch-all-apply
                              (function
                                (lambda ()
                                  (car (entsel "\nУкажите кривую <Отмена> : "))
                                  ) ;_ end of lambda
                                ) ;_ end of function
                              ) ;_ end of vl-catch-all-apply
                        ) ;_ end of setq
                  ) ;_ end of type
            'ename
            ) ;_ end of =
         (wcmatch (cdr (assoc 0 (entget ent))) "*LINE")
         (setq ent (vlax-ename->vla-object ent))
         (= (type (setq selset (vl-catch-all-apply
                                 (function
                                   (lambda ()
                                     (ssget "_:L" '((0 . "TEXT,INSERT")))
                                     ) ;_ end of lambda
                                   ) ;_ end of function
                                 ) ;_ end of vl-catch-all-apply
                        ) ;_ end of setq
                  ) ;_ end of type
            'pickset
            ) ;_ end of =
         (= (type
              (setq
                ang
                 (vl-catch-all-apply
                   (function
                     (lambda ()
                       (cond
                         ((getangle
                            "\nУкажите угол поворота, градусов (0 - параллельно ближайшей точке; 90 - перпендикулярно <0> : "
                            ) ;_ end of getangle
                          )
                         (t 0.)
                         ) ;_ end of cond
                       ) ;_ end of lambda
                     ) ;_ end of function
                   ) ;_ end of vl-catch-all-apply
                ) ;_ end of setq
              ) ;_ end of type
            'real
            ) ;_ end of =

         ) ;_ end of and
     (foreach item (mapcar (function vlax-ename->vla-object)
                           ((lambda (/ tab item)
                              (repeat (setq tab  nil
                                            item (sslength selset)
                                            ) ;_ end setq
                                (setq tab (cons (ssname selset (setq item (1- item))) tab))
                                ) ;_ end of repeat
                              ) ;_ end of lambda
                            )
                           ) ;_ end of mapcar
       (vl-catch-all-apply
         (function
           (lambda ()
             (vla-put-rotation
               item
               (+ ang
                  (angle
                    '(0. 0. 0.)
                    (vlax-curve-getfirstderiv
                      ent
                      (vlax-curve-getparamatpoint
                        ent
                        (vlax-curve-getclosestpointto
                          ent
                          (vlax-safearray->list
                            (vlax-variant-value
                              (cond
                                ((and
                                   (vlax-property-available-p item 'textalignmentpoint)
                                   (not
                                     (equal (vlax-safearray->list (vlax-variant-value (vla-get-textalignmentpoint item)))
                                            '(0. 0. 0.)
                                            1e-6
                                            ) ;_ end of equal
                                     ) ;_ end of not
                                   ) ;_ end of and
                                 (vla-get-textalignmentpoint item)
                                 )
                                (t (vla-get-insertionpoint item))
                                ) ;_ end of cond
                              ) ;_ end of vlax-variant-value
                            ) ;_ end of vlax-safearray->list
                          ) ;_ end of vlax-curve-getClosestPointTo
                        ) ;_ end of vlax-curve-getParamAtPoint
                      ) ;_ end of vlax-curve-getfirstderiv
                    ) ;_ end of angle
                  ) ;_ end of +
               ) ;_ end of vla-put-Rotation
             ) ;_ end of lambda
           ) ;_ end of function
         ) ;_ end of vl-catch-all-apply
       ) ;_ end of foreach
     ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

[TararykovDG]

Еще вариант Вставка объектов под заданным углом к кривой

[VVA]

Align Objects to Curve

Align Text, MText or Attribute to Curve

[Кулик Алексей aka kpblc]

Не, ну так неинтересно У LeeMac, гляжу, вообще все есть

[TararykovDG]

Может будет кому-то интересно. Анимация к ссылке в посте #7

[msilk]

Я в восхищении!!! Во первых огромное спасибо всем за супер оперативные ответы. И то что предложил VVA это то что нужно, 5 баллов!!! А программка TararykovDG тоже очень хороша,она мне пригодиться! Еще раз Всем спасибо!!!

[angel-fear]

А можно сделать нечто похожее на пост 7 или 8, но так, чтобы можно было выравнивать объекты листа относительно объектов модели?

[VVA]

angel-fear, Думаю что нет. Но можно с помощью _CHSPACE перенести копию объекта модели в лист, затем использовать любой понравившийся лисп, а копию потом удалить.
Можно 3 команды (переход в модель, копирование выбранного объекта и перенос в пространство листа) объединить одной.

Код:

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

(defun C:C2L ( / Express ss obj en)
    ;;;Copy 2 Layout
  (vl-load-com)
  (setq Express
    (and (vl-position "acetutil.arx" (arx))
      (not
        (vl-catch-all-error-p
          (vl-catch-all-apply
            (function (lambda nil (acet-sys-shift-down)))
          )
        )
      )
    )
  )
  (cond
    ((not(zerop (getvar 'tilemode)))
     (cond
        (Express
          (acet-ui-message "Not working in Model space" "Warning" 16)
        )
        (t
          (princ "\n** Not working in Model space **")
        )
      )
     )
    (t
     (if (= (getvar "cvport") 1)(command "_.MSPACE"))
     (setq ss (ssget "_:E:S:L" '((0 . "*LINE,CIRCLE,ACR,ELLIPSE"))))
     (setq obj (vla-copy (vlax-ename->vla-object(ssname ss 0)))
           en (vlax-vla-object->ename obj)
           )
     (command "_.CHSPACE" en "" "")
     (SSSETFIRST nil (ssadd en))
     )
    )
  (princ)
  )

[angel-fear]

Прерывается ошибкой:

_.MSPACE
Команда:
Выберите объекты:
; ошибка: неверный тип аргумента: lselsetp nil

или работает только с LINE,CIRCLE,ACR,ELLIPSE? сюда же можно добавить TEXT, MTEXT, размерные линии и прочее....

[Nata1]

Сообщение от VVA Align Objects to Curve

У меня этот лисп "ObjectAlignV1-1.lsp" с сайта lee-mac не работает. Выбираю объект для выравнивания, задаю точку привязки, потом выбираю кривую, куда будут выравниваться объекты и в командной строке есть только вариант <Exit>. Далее при нажатии Ентера или кнопки мыши выравниваемые объекты просто исчезают. Что-то там в коде не так...
Код опробовала на 2004 автокаде.
PS
Еще раз проверила. Работает, но объекты далеко от кривой "улетают" почему-то.

[La Persona]

Вопрос примерно из той же оперы, только несколько иной. Вдоль полилинии расставлены блоки. Рядом с каждым блоком надо автоматически проставить мтекст так, чтобы он не пересекался с полилинией (т.е. если мтекст пересекается с полилинией, он должен ставится с другой стороны от нее). Буду благодарен хотя бы за идею, как это организовать..

[RAD24]

Здравствуйте! Можете подсказать выравнивание текста, относительно других объектов, таким образом что бы исключалось их наложение друг на друга (что бы текст сдвигался с линий( полилиний, блоков, другого текста)-не было пересечений?

[nolte]

это как можно получить такой эффект (пост 7 и 15), чтобы объект двигался за мышкой.

[VVA]

nolte, grread
http://forums.autodesk.com/t5/Visual...d/td-p/2706707
Examples of usage GRREAD - let's share
Динамические построения