[Terminator637]

Здравствуйте! Замучал здешний поиск, замучал гугл и т.п. никак не могу найти. Можно ли как то провести следующую операцию: я указываю точку, назовем ее исходной, затем указываю точки в других местах поочередно и от этих точек автоматически строятся отрезки до исходной точки. Чтобы просто каждый раз не выбирать заново исходную точку, а просто щелкнуть на ней 1 раз а дальше щелкать только на точках, которые должны быть с ней соединены отрезком.
Может есть какой то способ? помогите пожалуйста, заранее большое спасибо!

[АлексЮстасу]

Как такое сделать - в голову пока не приходит.
Если бы были известны координаты точек, то можно было бы сделать текстовый файл типа:
100,100 200,200


100,100 700,200


100,100 250,600


100,100 0,400


, где 100,100 - координаты X, Y общей точки. К координатам через запятую могут быть добавлены и Z.
Координаты одного отрезка через пробел, после координат каждого отрезк по две пустые строки, включая последний (по два Enter).
Скопировать в буфер, вызвать команду черчения отрезков, и вставить из буфера в ком. строку. Отрезки все начертятся разом.

А можно в одну строку:
100,100 200,200 100,100 700,200 100,100 250,600 100,100 0,400
После каждой пары координат по три пробела, включая последний.


А для какой задачи нужно так чертить?

[Лиспер]

Код:

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

(vl-load-com)

(defun c:lss (/ adoc pt_base pt)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (if (= (type (setq pt_base
                      (vl-catch-all-apply
                        (function
                          (lambda ()
                            (getpoint "\nУкажите базовую точку <Отмена> : ")
                            ) ;_ end of lambda
                          ) ;_ end of function
                        ) ;_ end of vl-catch-all-apply
                     ) ;_ end of setq
               ) ;_ end of type
         'list
         ) ;_ end of =
    (while
      (= (type
           (setq
             pt (vl-catch-all-apply
                  (function
                    (lambda ()
                      (getpoint pt_base "\nКонец отрезка <Отмена> : ")
                      ) ;_ end of lambda
                    ) ;_ end of function
                  ) ;_ end of vl-catch-all-apply
             ) ;_ end of setq
           ) ;_ end of type
         'list
         ) ;_ end of =
       (vla-startundomark adoc)
       (entmakex (list (cons 0 "LINE")
                       (cons 10 pt_base)
                       (cons 11 pt)
                       ) ;_ end of list
                 ) ;_ end of entmakex
       (vla-endundomark adoc)
       ) ;_ end of while
    ) ;_ end of if
  (princ)
  ) ;_ end of defun

[АлексЮстасу]

Круто!

[Хмурый]

команда _ray ЛУЧ

[Terminator637]

Сообщение от Лиспер Код: [Выделить все] (vl-load-com) (defun c:lss (/ adoc pt_base pt) (setq adoc (vla-get-activedocument (vlax-get-acad-object))) (if (= (type (setq pt_base (vl-catch-all-apply (function (lambda () (getpoint "\nУкажите базовую точку <Отмена> : ") ) ;_ end of lambda ) ;_ end of function ) ;_ end of vl-catch-all-apply ) ;_ end of setq ) ;_ end of type 'list ) ;_ end of = (while (= (type (setq pt (vl-catch-all-apply (function (lambda () (getpoint pt_base "\nКонец отрезка <Отмена> : ") ) ;_ end of lambda ) ;_ end of function ) ;_ end of vl-catch-all-apply ) ;_ end of setq ) ;_ end of type 'list ) ;_ end of = (vla-startundomark adoc) (entmakex (list (cons 0 "LINE") (cons 10 pt_base) (cons 11 pt) ) ;_ end of list ) ;_ end of entmakex (vla-endundomark adoc) ) ;_ end of while ) ;_ end of if (princ) ) ;_ end of defun

Спасибо вам огромное! Всё работает как и требовалось. Вот бы научиться так же, да время никак на язык не найду

[VVA]

Terminator637, Для этого не нужно писать программу. Рисуешь отрезок, выделяешь ручки, цепляешься за ручку, ПКМ->копировать

[Terminator637]

Сообщение от VVA Terminator637, Для этого не нужно писать программу. Рисуешь отрезок, выделяешь ручки, цепляешься за ручку, ПКМ->копировать

Спасибо вам тоже, как то я до этого не догадался. Но с программой как то удобнее чтоли, сделл себе кнопку и рисую.

ВСЕМ ОГРОМНЕЙШЕЕ СПАСИБО!