[Илья77]

Как разделить дугу эллипса построенную в системе AutoCad,по длине,на шесть одинаковых частей.

[zenon]

Сообщение от Илья77 Как разделить дугу эллипса построенную в системе AutoCad,по длине,на шесть одинаковых частей.

_divide для деления на равные части
_measure для деления на части определенной длины

[Bull]

Решил проверить. А почему это он сразу не делит? Только точки на примитиве ставит и всё.

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

Bull, а опции ком.строки просмотреть если, там столько интересного можно найти...

[Red Nova]

Bull, а опции ком.строки просмотреть если, там столько интересного можно найти...

Насколько я знаю при помощи _divide или _measure можно только расставить точки или блоки по длине элемента. Но чтоб они еще и делили на части , это что-то новенькое

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

Я намекал на возможность расстановки блоков, а не только точек.

[Bull]

Говоря "только" я и имел ввиду, что не делит. Опцию блоков видел.

PS Хотя, признаю, есть свойство у меня не смотреть ком. строку

[zenon]

Сообщение от Bull Решил проверить. А почему это он сразу не делит? Только точки на примитиве ставит и всё.

Как мед, так кружками??

[Bull]

кАнеШнА!!! И при этом быстро, качественно и недорого...

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

Ну тогда попробовать такое:

Код:

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

(defun c:mod-divide (/ adoc *error* ent num _osmode _cmdecho pt_lst dist new_ent)
  (defun *error* (msg)
    (mapcar '(lambda (a b)
               (if b
                 (setvar a b)
                 ) ;_ end of if
               ) ;_ end of lambda
            (list "cmdecho" "osmode")
            (list _osmode _cmdecho)
            ) ;_ end of mapcar
    (vla-endundomark adoc)
    (princ msg)
    (princ)
    ) ;_ end of defun

  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-startundomark
  (if (and (= (type (setq ent
                           (vl-catch-all-apply
                             '(lambda ()
                                (car (entsel "\nУкажите разбиваемый примитив <Отмена> : "))
                                ) ;_ end of lambda
                             ) ;_ end of vl-catch-all-apply
                          ) ;_ end of setq
                    ) ;_ end of type
              'ename
              ) ;_ end of =
           (= (type (setq num (vl-catch-all-apply
                                '(lambda ()
                                   (initget 7)
                                   (getint "\nКоличество сегментов <Отмена> : ")
                                   ) ;_ end of lambda
                                ) ;_ end of vl-catch-all-apply
                          ) ;_ end of setq
                    ) ;_ end of type
              'int
              ) ;_ end of =
           ) ;_ end of and
    (progn
      (mapcar '(lambda (a b)
                 (if b
                   (setvar a b)
                   ) ;_ end of if
                 ) ;_ end of lambda
              '("cmdecho" "osmode")
              '(0 0)
              ) ;_ end of mapcar
      (setq _osmode  (getvar "osmode")
            _cmdecho (getvar "cmdecho")
            ent      (vlax-ename->vla-object ent)
            dist     (/ (vlax-curve-getdistatpoint ent (vlax-curve-getendpoint ent))
                        num
                        ) ;_ end of /
            pt_lst   ((lambda (/ lst count)
                        (setq count 0)
                        (repeat (1- num)
                          (setq lst (append lst
                                            (list (vlax-curve-getpointatdist
                                                    ent
                                                    (* dist (setq count (1+ count)))
                                                    ) ;_ end of vlax-curve-getPointAtDist
                                                  ) ;_ end of list
                                            ) ;_ end of append
                                ) ;_ end of setq
                          ) ;_ end of repeat
                        lst
                        ) ;_ end of lambda
                      )
            ) ;_ end of setq
      (foreach item pt_lst
        (setq new_ent (vlax-vla-object->ename (vla-copy ent)))
        (command "_.break" new_ent item item)
        (vla-erase ent)
        (setq ent (vlax-ename->vla-object (entlast)))
        ) ;_ end of foreach
      ) ;_ end of progn
    ) ;_ end of if
  (mapcar '(lambda (a b)
             (if b
               (setvar a b)
               ) ;_ end of if
             ) ;_ end of lambda
          (list "cmdecho" "osmode")
          (list _osmode _cmdecho)
          ) ;_ end of mapcar
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

[Red Nova]

Нет слов, даже spline разбил. Прибавил к своему сборнику лиспов.

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

Я тестировал на сплайнах, полилиниях (плоских), отрезках, 3д-полилиниях. Я четко понимаю, что для окружностей и полных эллипсов не сработает (там нормальную математику надо подключать, а не надеяться на корректность обработки команды _.break). Также не будут обработаны мультилинии (mline которые).