[Ingpro]

Всем привет!
Мне нужно указать две точки на окружности и построить дугу с радиусом равным радиусу этой окружности,
затем проставить радиус полученной дуги.
Я не знаю, как программно задать радиус дуги, равный радиусу окружности?
И команды построения дуги и размера дуги не выполняются...
Подскажите, пожалуйста, как это сделать правильно...
Такой приблизительный "недокод":

Код:

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

 (defun c:arc2R_dim ()
  (setq oldosmode (getvar 'osmode))
  (setvar 'osmode 544); INTersection, NEArest

  (setq pt1 (getpoint  "\nFirst point in circle "))
  (setq pt2 (getpoint  "\nSecond point in circle "))
  (setq r (getpoint  "\nSelect circle ")) ; для указания радиуса дуги

;Как задать радиус дуги, равный радиусу окружности?

  (command "_arc" "_r") ;???
 
  (command "_dimarc")
  
  (setvar "osmode" oldosmode)
(princ) 
) 

[Ingpro]

Сообщение от koMon Сбой происходит, если ПСК не МИР добавлено

koMon, thank you very much! Проверено с разными ПСК, отлично работает!
"<ЛКМ> дуга + дуговой размер, <ПКМ> дуга" - хорошо, что можно выбрать...
Я пытаюсь добавить вес линии (дуги) 0.5 после строки

Код:

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

 (vla-put-color arc 230)

Код:

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

 (vla-put-lineweight 050) 

но это не работает..?..

Код:

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

 (vla-put-lineweight arc aclnwt050)

а так получилось...

[koMon]

Сообщение от Ingpro (vla-put-lineweight 050)

обязано работать с дугой (vla-put-lineweight arc 050)

[Ingpro]

Сообщение от koMon обязано работать с дугой (vla-put-lineweight arc 050)

Да, так тоже работает, а для чего aclnwt?

[name02]

Сообщение от Ingpro а для чего aclnwt?

Это автокадовская системная константа, определяющая вес линии https://help.autodesk.com/view/ACD/2...D-80E35EFE55D3

[Ingpro]

Сообщение от name02 Это автокадовская системная константа, определяющая вес линии

Спасибо, но лисп работает и без aclnwt?

Код:

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

 (vla-put-lineweight arc aclnwt050)
(vla-put-lineweight arc 050)

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

Конечно работает. Но использовать "магические" числа / строки так себе затея.

[Ingpro]

Сообщение от Кулик Алексей aka kpblc Конечно работает. Но использовать "магические" числа / строки так себе затея.

Так всё-таки использовать aclnwt?
Можно ещё назначить слой размеру дуги (слой должен быть создан заранее):

Код:

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

 (vla-put-layer dim_arc "Размеры")

[koMon]

Сообщение от Ingpro Так всё-таки использовать aclnwt?

подобные константы созданы для мнемонического запоминания/понимания их назначения. использование их или присвоенных им значений не имеет никакой разницы на финальный результат.

[Ingpro]

Сообщение от koMon подобные константы созданы для мнемонического запоминания/понимания их назначения. использование их или присвоенных им значений не имеет никакой разницы на финальный результат.

Так использовать или нет?

[koMon]

[Ingpro]

!ACLNWT050 возвращает 50
И...???...
А можно прямой ответ... Применять в коде?

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

Offtop:

Сообщение от koMon подобные константы созданы для мнемонического запоминания/понимания их назначения. использование их или присвоенных им значений не имеет никакой разницы на финальный результат.

Сугубо ИМХО: с точки зрения читабельности кода использование констант значительно лучше чем непонятные числа

[koMon]

Сообщение от Ingpro !ACLNWT050 возвращает 50 И...???... А можно прямой ответ... Применять в коде?

на фига применять в этом коде, если нужно присвоить вес 0.5 lwunits? ответ не применять!

----- добавлено через ~1 мин. -----

Сообщение от Кулик Алексей aka kpblc Offtop: Сугубо ИМХО: с точки зрения читабельности кода использование констант значительно лучше чем непонятные числа

соглашусь применительно не к этому моменту.

[Ingpro]

K Lisp Почему-то у меня выдает ошибку:
CDbCommand не удалось исполнить SQL-запрос: SQLSTATE[23000]: Integrity constraint violation: 1062 Duplicate entry '141074-483-2a00:1e10:23b:e-20240516' for key 'blog_id'
Мне удалось один раз зайти в блог и потестить dim_arc "с добавленной возможностью выбора
дугового сегмента полилинии и переключение по пробелу привязки
размерного текста к курсору или к середине дугового размера".
Очень удобные добавления, спасибо, koMon!
Если проблемы с блогом на сайте, может быть есть смысл добавить этот код в эту тему?
см. изображение:
сюда по ссылке K Lisp можно зайти, а если нажать ссылку Дуга, размер дуги на дуге, окружности, дуговом сегменте полилинии.
выдает ошибку...

[koMon]

можно конечно и сюда, но блог же тоже надо наполнять) и ремонтировать!