[pwm58]

как нарисовать??

[E-degtyarev]

Полилиния->Дуга->Замкнуть

ЗЫ: только это получится полилиния в виде окружности, а вот как окружность в виде полилинии- не хватает фантазии.

[getr]

нарисуй квадрат командой rectangle..а затем скругли углы командой fillet..

[Лиспер]

_.polygon

[Хмурый]

_DONUT

[Лиспер]

Кстати, окружность в виде полилинии - имелось в виду применение дуговых сегментов или аппроксимация окружности прямыми?

[pwm58]

любой вариант

[Хмурый]

_DONUT

[Profan]

Кольцо, блин.

[Disney]

Либо если окружности уже нарисованы, то можно с помощью TotalPurge

[IMG]http://s44.***********/i103/1010/67/e121a14b1d2b.gif[/IMG]

[Владимир Спицын]

нарисовать окружность (Круг) как обычно. Далее рисование-Контур. Сохранение контуров выбрать "Полилиния". Клацнуть мышью внутри окружность. Окружность из полилинии готова (совпадает с окружностью).

[VVA]

Ну тогда еще один вариант:
1. Переменную PELLIPSE установить в 1
2. Командой _ELLIPSE нарисовать эллипс с одинаковыми длинами осей

***Добавлено
Немного поднапрячь гугл и найти бесплатное решение от Dotsoft:
CIRCLE2PL.VLX - Converts a selection set of circles into polylines

[n0str0m0]

Еще один вариант:
http://www.glamsen.se/CadTools.htm
При помощи одной кнопки окружность превращается в 3D полилинию.
При помощи другой 3D полилиния превращается в просто полилинию.

[Profan]

В 3D полилинии нет дуговых сегментов.

[Tuman]

включаешь полилинию, ставишь первую точку, правой кнопкой мыши вызываешь контекстное меню и там выбираешь Arc и всё.

[Profan]

Не все. Там еще возникнет куча запросов.

[zenon]

любите вы все усложнять

Command: _polygon Enter number of sides <4>: 100 Specify center of polygon or [Edge]: Enter an option [Inscribed in circle/Circumscribed about circle] <I>: Specify radius of circle: 100 Command: Command: *Cancel*

[Profan]

Вот именно, что Cancel.

[Владимир Спицын]

zenon, так это выйдет не окружность, а многоугольник.

[Лиспер]

Я ж не зря спрашивал

Сообщение от Лиспер окружность в виде полилинии - имелось в виду применение дуговых сегментов или аппроксимация окружности прямыми?

[Trucker]

Чем вариант Хмурого и Profana не подошел то? Кольцо - это и есть полилиния.

Команда: КОЛЬЦО Внутренний диаметр кольца <10.0000>: Внешний диаметр кольца <10.0000>: Центр кольца или <выход>: Центр кольца или <выход>:

[Reindeer]

Сообщение от Владимир Спицын нарисовать окружность (Круг) как обычно. Далее рисование-Контур. Сохранение контуров выбрать "Полилиния". Клацнуть мышью внутри окружность. Окружность из полилинии готова (совпадает с окружностью).

И получицо два объекта, лежащих один на одном, что ведёт к некоторым неудобствам -_-
Способ-то нормальный, сам пользуюсь, просто надо удалять начальную окружность сразу после

[dartamon]

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

Вот прога в ЛИСПе (PKRUG.LSP), она все, что нужно удаляет сама:
(defun C:PKRUG ()
(terpri)
(princ "Ширина равна текущей ширине плинии.")
(command "_CIRCLE" pause "_dia" pause)
(progn
(setq krug (entlast))
(setq spkrug (entget krug))
(setq cen (cdr (assoc 10 spkrug)))
(setq rad (cdr (assoc 40 spkrug)))
(setq nach (polar cen 0 rad))
(command "_pline" nach "_arc" "Ц" cen "_a" 180 "_close")
(entdel krug)
(setq pkrug (entlast))
(setq sppkrug (entget pkrug))
(entmod sppkrug)))
(command)
)

Пользуюсь уже лет 14. А вот один косячек победить не могу: выбираем центр окружности при активной привязке (F3), вводим диаметр, и вот если не деактивировать F3, окружность рисуется в точку.
А так все нормульно.

[black_mts]

в Civil 2011 есть преобразователь дуг в плинию, но нет преобразовать круг в плинию, это наверное преберегли для A-CAD 2013-2014

[Profan]

А вот один косячек победить не могу: выбираем центр окружности при активной привязке (F3), вводим диаметр, и вот если не деактивировать F3, окружность рисуется в точку.

Небось, все привязки задействованы и изображение на экране относительно мелкое.

[VVA]

dartamon, Грабли №1 А вообще советую почитать посты со 167 по 241. Найдешь много для себя полезного.

[Li6-D]

Сообщение от dartamon Пользуюсь уже лет 14. А вот один косячек победить не могу: выбираем центр окружности при активной привязке (F3), вводим диаметр, и вот если не деактивировать F3, окружность рисуется в точку. А так все нормульно.

Вот вариант переделки команды С:PKRUG без косячков, кругов-шаблонов.
На этапе ввода точек будет та привязка, какая была до выполнения команды.
Интересно, что если заменить:
(command "_.PLINE" rad "_Arc" "_CE" cen "_Angle" 180 "_CLose")
на
(command "_.PLINE" rad "_Arc" "_CEnter" cen "_Angle" 180 "_CLose"),
то работать почему-то не будет. По крайней мере у меня не работает...

Код:

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

(defun C:PKRUG (/ cmdecho osmode *error* cen rad)
  (setq cmdecho (getvar "CMDECHO") ;Сохранение исходных значений
        osmode (getvar "OSMODE"))  ;системных переменных ACAD.
  ;;Обработчик ошибок для восстановления системных переменных ACAD.
  ;;Например, в случае прерывания команды клавишей ESС и пр.
  (defun *error* (msg)
    (setvar "OSMODE" osmode)   ;Аварийное восстановление объектной привязки
    (setvar "CMDECHO" cmdecho) ;Аварийное восстановление командного эха
    (princ)
  )
  (princ "\nШирина равна текущей ширине плинии. ")
  (setq cen (getpoint "Укажите центр круга: ") 
        rad (polar cen 0 (distance cen (getpoint cen "\nУкажите радиус круга: "))))
  (setvar "OSMODE" 1024) ;Отключение объектной привязки перед выполнением (command...).
  (setvar "CMDECHO" 0)   ;Отключение командного эха перед выполнением (command...).
  (command "_.PLINE" rad "_Arc" "_CE" cen "_Angle" 180 "_CLose")
  (setvar "OSMODE" osmode)   ;Штатное восстановление объектной привязки
  (setvar "CMDECHO" cmdecho) ;Штатное восстановление командного эха
  (princ)
)

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

Нет меток начала и конца отмены.

[Li6-D]

Сообщение от Кулик Алексей aka kpblc Нет меток начала и конца отмены.

И то верно.
Если и дальше следовать старыми "командными" методами, без всяких там vla-startundomark...vla-endundomark код можно исправить так:

Код:

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

(defun C:PKRUG (/ cmdecho osmode *error* cen rad)
  (setq cmdecho (getvar "CMDECHO") ;Сохранение исходных значений
        osmode (getvar "OSMODE"))  ;системных переменных ACAD.
  ;;Обработчик ошибок для восстановления системных переменных ACAD.
  ;;Например, в случае прерывания команды клавишей ESС и пр.
  (defun *error* (msg)
    (setvar "OSMODE" osmode)
    (setvar "CMDECHO" cmdecho)
    (princ)
  )
  (setvar "CMDECHO" 0)   ;Отключение командного эха перед выполнением (command...).
  ;;Начало формирования группы команд для отмены (при необходимости)
  ((lambda (u) ;Как же без лямбды?
     (cond
       ((zerop u) (command "_.UNDO" "_All"))
       ((= u 3) (command "_.UNDO" "_Control" "_All"))
     )
     (command "_.UNDO" "_Group")
   )
   (rem (getvar "UNDOCTL") 16)
  )
  (princ "\nШирина равна текущей ширине плинии. ")
  (setq cen (getpoint "Укажите центр круга: ") 
        rad (polar cen 0 (distance cen (getpoint cen "\nУкажите радиус круга: "))))
  (setvar "OSMODE" 1024) ;Отключение объектной привязки перед выполнением (command...).
  (command "_.PLINE" rad "_Arc" "_CE" cen "_Angle" 180 "_CLose")
  (command "_.UNDO" "_End")  ;Конец формирования группы команд для отмены
  (setvar "OSMODE" osmode)   ;Восстановление объектной привязки
  (setvar "CMDECHO" cmdecho) ;Восстановление командного эха
  (princ)
)

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

Ну запутали...

Код:

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

(defun c:plcircle (/ sysvar_lst fun_sysvar-save fun_sysvar-restore *error*)

  (defun fun_sysvar-save (lst)
    (foreach item lst
      (setq sysvar_lst (cons (cons (car item) (getvar (car item))) sysvar_lst))
      (setvar (car item) (cdr item))
      ) ;_ end of foreach
    ) ;_ end of defun

  (defun fun_sysvar-restore ()
    (foreach item sysvar_lst
      (setvar (car item) (cdr item))
      ) ;_ end of foreach
    ) ;_ end of defun

  (defun *error* (msg)
    (fun_sysvar-restore)
    (command "_.undo" "_e")
    (princ msg)
    (princ)
    ) ;_ end of defun

  (command "_.undo" "_be")
  (if (and (setq cen (getpoint "\nÓêàæèòå öåíòð êðóãà <Îòìåíà> : "))
           (setq rad (getdist cen "\nÓêàæèòå ðàäèóñ êðóãà <Îòìåíà> : "))
           ) ;_ end of and
    (progn
      (fun_sysvar-save '(("cmdecho" . 0) ("nomutt" . 1) ("osmode" . 0)))
      (command "_.pline"
               (polar cen 0 rad)
               "_a"
               "_ce"
               cen
               "_angle"
               (if (member (getvar "aunits") '(0 1))
                 180.
                 pi
                 ) ;_ end of if
               "_close"
               ) ;_ end of command
      ) ;_ end of progn
    ) ;_ end of if
  (fun_sysvar-restore)
  (command "_.undo" "_e")
  (princ)
  ) ;_ end of defun

[Profan]

Да кому нужна отмена полилинии? Стёр ее, да и все.

[Li6-D]

Написали, конечно, по максимуму. Для примера. Как будто под заказ.
Но и в коде Алексея тоже есть легкая кривизна...
Выполните (command "_.undo" "_c" "_n") или (command "_.undo" "_c" "_o") перед выполнением plcircle

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

Li6-D, я вообще стараюсь не использовать командные методы. Так что для рабочего варианта точно не это получилось бы...