[Wasso]

Ребят подскажите чайнику как раставить окружности с задаваемым радиусом по вершинам полилинии!

А то мы долбимся и унас ничего не получается а програмировать не могём .
Заранее большое спасибо!!!

[Лентяй]

Не умеешь программировать, так нарисуй свой кружок один раз и копируй его с базовой точкой в центре и с привязкой "_END" по вершинам полилинни.

[vk]

Предельно тупо и почти без проверок можно так.
Со временем и желанием - обработать напильником по вкусу )

Код:

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

(defun c:c2vertix (/ e ptl r)
  (setq r 5.7) ;_ радиус окружности
  (princ "\nУкажите LW-полилинию > ")
  (if (and (setq e (ssget "_:S" '((0 . "LWPOLYLINE"))))
           (setq e (ssname e 0))
           (setq ptl (apply 'append ;_ список точек 
                            (mapcar '(lambda (el)
                                       (if (= 10 (car el))
                                         (list (cdr el))
                                       ) ;_  if
                                     ) ;_  lambda
                                    (entget e)
                            ) ;_  mapcar
                     ) ;_  apply
           ) ;_  setq
      ) ;_  and
    (mapcar '(lambda (c) (command "_.circle" c r)) ptl)
    (princ "\nЭто не LW-полилиния")
  ) ;_  if
  (princ)
) ;_  defun

Надеюсь, как загрузить и вызвать программу, разберетесь )

[Wasso]

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

Заранее спасибо!

[faysst]

---

[Wasso]

Ну а все таки! Пожалуйста!

[Arkady]

1. Открыть пустой файл в программе блокнот (Notepad). Скопировать в него код из сообщения VK. Сохранить файл под именем c2vertix.lsp.
2. В автокаде загрузить файл c2vertix.lsp командой appload.
3. Запустить команду c2vertix, выбрать полилинию.

Должно работать. Если не работает - опиши подробнее, что именно не работает.

[VVA]

Как запустить программу на лиспе, создать свое меню - об этом все ещё часто спрашивают на форумах и конференциях. Поэтому читайте!

[Wasso]

Ребят огромное спасибо все получилось!!!!!