[Ольга12345]

Подскажите пожалуйста...Заранее спасибо

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

Можно. _divide в руки и вперед

Попробуйте команду РАЗМЕТИТЬ (_MEASURE).
Добавлено:
Опоздал
Да, ПОДЕЛИТЬ (_DIVIDE), пожалуй, будет удобней.

[Ольга12345]

Спасибо большое

[engngr]

Offtop: Ого, это ж способ защиты от копирования!

[Baza]

Подскажите, а как сделать обратную операцию, т.е. обьект состоящий из точек (видимо разделенный данной командой) объединить в полилинию?

Сообщение от Baza Подскажите, а как сделать обратную операцию, т.е. обьект состоящий из точек (видимо разделенный данной командой) объединить в полилинию?

Есть идея только в два действия. И то, получится строить одну полилинию за раз.
1. Экспорт координат выбранных точек в *.txt.
2. Создание графика в AutoCAD на основе txt или xls файла.

Может кто-то и объединит эти два действия в одно программке.

[Baza]

AlphaGeo, спасибо! Ваша идея мне понравилась.
Просто я думал раз есть команда разделить полилинию до точек, то может есть и обратная. Пока буду использовать ваш метод!

[Profan]

Да нет такой команды - разделить полилинию до точек, ГАВ.

[BM60]

Зато позабавились! Особенно с восстановлением линии из точек.
Да нет, в самом деле создать полилинию из точек, чтобы в итоге иметь нечто похожее на линию маршрута пиратов к сокровищу на карте древнего моря - некая пунтирная, но жирная и с легким масштабированием (черные и белые квадратики, белые без контуров, как пробел).
Да ладно, я пошутил...

[sbi]

Profan и BM60 зря смеетесь, все началось из точек, потом и линия в экране засветилась...Да Baza А может нужно историю немного знать...
И только лишь тогда с начала созидать.

[BM60]

Зря, значит, я написал, что пошутил?
Тогда, пусть кто-нибудь попробует создать такую прерывистую плавную полилинию "из пункта А в пункт Б через горы и моря". Понятно, да? на этот раз смысл серьезной озабоченности в качестве идеи. Может, кому-то не такая, но аналогичная по схеме идея понадобится.
Но Profan прав, поскольку команды, делящей плинию НЕТ!

[sbi]

BM60 Обратные пути видны (когда пройдешь), один из них у AlphaGeo, но есть ещЁ другие. Но, "термины" у "юности" есть

[Profan]

Сообщение от sbi Profan и BM60 зря смеетесь, все началось из точек, потом и линия в экране засветилась...Да Baza А может нужно историю немного знать... И только лишь тогда с начала созидать.

Я нисколько не смеюсь. Есть команда "расчленить", которая превращает полилинию в набор состыкованных отрезков и дуг. Но команды, превращающей полилинию в один объект состыкованных точек - нет, как бы sbi ни извращался и не наводил тень на плетень. Вспомним вопрос в начале темы. Там речь идет об объекте, состоящим из полилиний. Об одном объекте, понятно это? В данном случае это может быть блок. Теперь назовите мне команду, которая создает из блока, состоящего из полилиний, блок, состоящий из точек?

[Startrek]

Может я чего не понял - а не проще ли сиздать тип линии из точек и
изменить тип линии вашей полилинии.... и не мучать бедную полилинию
всякими расчленениями (ну прям коцлагерь какой-то)

[Profan]

Да такой тип линии есть в AutoCAD'е - DOT.

[Baza]

Сообщение от Profan Да нет такой команды - разделить полилинию до точек, ГАВ.

Команды такой нет, но вот случаи когда из точек нужно создать полилинию есть!

[sbi]

Baza Так сделай САМ, в любом доступном языке команду и назови основой Да, и Профан, совместно с Кадом Вам дозволит!

[VVA]

Сообщение от Startrek Может я чего не понял - а не проще ли сиздать тип линии из точек и изменить тип линии вашей полилинии.... и не мучать бедную полилинию всякими расчленениями (ну прям коцлагерь какой-то)

Эта тема зародилась из этой

Может кто-то и объединит эти два действия в одно программке.

Пробуй. Строит LW или 3d полилиния по выбранным точкам. ТОчки предварительно сотрируются.

Код:

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

(defun C:PFP (/ ss lst is3dPoly minPt pl-list tmp)
(vl-load-com)
;;; Polyline From Point
;;; Если координата Z выбранных точек 0 - то создается LW полилиния
;;; иначе 3d полилиния  
  (if (setq ss (ssget '((0 . "POINT"))))
    (progn
      (repeat (setq tmp (sslength ss)) ;_ end setq
        (setq lst (cons (ssname ss (setq tmp (1- tmp))) lst))
      ) ;_ end repeat
      (setq lst
             (mapcar (function (lambda (x) (cdr (assoc 10 (entget x)))))
                     lst
             ) ;_ end of mapcar
      ) ;_ end of setq
      (setq is3dPoly
             (vl-some (function (lambda (x) (not (zerop (caddr x)))))
                      lst
             ) ;_ end of vl-some
      ) ;_ end of setq
      (setq minPT
             ((lambda (x)
                (list
                  (apply (function min) (nth 0 x))
                  (apply (function min) (nth 1 x))
                  (apply (function min) (nth 2 x))
                ) ;_ end of list
              ) ;_ end of lambda
               (apply 'mapcar (cons 'list lst))
             )
      ) ;_setq
      (while lst
        (setq lst
               (vl-sort lst
                        (function (lambda (a b)
                                    (< (distance minPT a)
                                       (distance minPT b)
                                    ) ;_ end of <
                                  ) ;_ end of lambda
                        ) ;_ end of function
               ) ;_ end of vl-sort
        ) ;_ end of setq
        (setq pl-list (cons (setq minPT (car lst)) pl-list)
              lst     (cdr lst)
        ) ;_ end of setq
      ) ;_while
      (setq pl-list (reverse pl-list))
      (if 3dPoly
        (progn
          (setq tmp (apply 'append pl-list))
          (setq tmp (vlax-make-variant
                      (vlax-safearray-fill
                        (vlax-make-safearray
                          vlax-vbdouble
                          (cons 0 (1- (length tmp)))
                        ) ;_ end of vlax-make-safearray
                        tmp
                      ) ;_ end of vlax-safearray-fill
                    ) ;_ end of vlax-make-variant
          ) ;_ end of setq
          (vla-add3dpoly
            (vla-get-modelspace
              (vla-get-activedocument (vlax-get-acad-object))
            ) ;_ end of vla-get-ModelSpace
            tmp
          ) ;_ end of vla-Add3DPoly
        ) ;_ end of progn
        (progn
          (setq tmp (mapcar '(lambda (pt) (list (car pt) (cadr pt)))
                            pl-list
                    ) ;_ end of mapcar
          ) ;_ end of setq
          (setq tmp (apply 'append tmp))
          (setq tmp (vlax-make-variant
                      (vlax-safearray-fill
                        (vlax-make-safearray
                          vlax-vbdouble
                          (cons 0 (1- (length tmp)))
                        ) ;_ end of vlax-make-safearray
                        tmp
                      ) ;_ end of vlax-safearray-fill
                    ) ;_ end of vlax-make-variant
          ) ;_ end of setq
          (vla-addlightweightpolyline
            (vla-get-modelspace
              (vla-get-activedocument (vlax-get-acad-object))
            ) ;_ end of vla-get-ModelSpace
            tmp
          ) ;_ end of vla-addLightWeightPolyline
        ) ;_ end of progn
      ) ;_ end of if
    ) ;_ end of progn
  ) ;_ end of if
  (princ)
) ;_ end of defun

[Baza]

VVA, спасибо.
При попытке использования пишет: ; ошибка: no function definition: VLAX-MAKE-SAFEARRAY
Может я что-то не так делаю?