[dmitry0406]

Здравствуйте!
При построении фигуры со значениями a = 60 и b = 10, строится всё нормально, а вот если задать значения наоборот: а = 10 и b = 60, то фигура не строится как надо.
Подскажите пожалуйста, как лучше по вашему сделать привязку вот этих двух переменных (a и b) ко все фигуре?

Само задание:


Расположение точек:


Примечание:
Параметр R показал на изображении Расположение точек, а высчитывал его через отношение (отношения взял 80 и 60 с изображения Задание):


Так как это были изначально диаметры, то


Код:

Код:

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

 (defun dtr (a)
  (* pi (/ a 180.))
)

(defun c:detal ()

  (princ "Укажите положение точки привязки:")
  (setq pt1 (getpoint))
  (setq a (getreal "\Значение a:"))
  (setq b (getreal "\Значение b:"))
  (setq c (* a (/ 4. 3.)))
  (setq R (/ c 2.))

  ;---------------------точки---------------------
  ;право вверх
  (setq pt3 (polar pt1 (dtr 0.) a))
  (setq pt4 (polar pt3 (dtr 0.) b))
  (setq pt5 (polar pt3 (dtr -90.) b))
  (setq pt6 (polar pt3 (dtr 90.) b))
  (setq pt7 (polar pt1 (dtr 45.) a))
  (setq pt8 (polar pt7 (dtr -45.) b))
  (setq pt10 (polar pt7 (dtr 135.) b))
  (setq pt9 (polar pt7 (dtr 45.) b))
  (setq pt11 (polar pt6 (dtr 180.) (- c a)))
  (setq pt12 (polar pt8 (dtr 225.) (- c a)))
  (setq pt13 (polar pt10 (dtr 225.) (- c a)))
  ;лево вверх
  (setq pt14 (polar pt1 (dtr 180.) a))
  (setq pt15 (polar pt14 (dtr 180.) b))
  (setq pt16 (polar pt14 (dtr -90.) b))
  (setq pt17 (polar pt14 (dtr 90.) b))
  (setq pt18 (polar pt1 (dtr 135.) a))
  (setq pt19 (polar pt18 (dtr 225.) b))
  (setq pt20 (polar pt18 (dtr 45.) b))
  (setq pt21 (polar pt18 (dtr 135.) b))
  (setq pt22 (polar pt17 (dtr 0.) (- c a)))
  (setq pt23 (polar pt19 (dtr -45.) (- c a)))
  (setq pt24 (polar pt20 (dtr -45.) (- c a)))
  
  ;--------------отрисовка и размеры--------------
  ;размер
  (command "_dimlinear" pt14 pt1 (polar pt1 (dtr 270.) a))
  ;
  (command "_circle" pt1 (/ a 2))
  ;размер
  (command "_.dimdiameter" (list (entlast) pt1) (polar pt1 (dtr 22.) a))
  ;
  ;право вверх
  (command "_circle" pt3 (/ b 2))
  (command "_.arc" pt6 pt4 pt5 "")
  (command "_circle" pt7 (/ b 2))
  (setq circle_1 (entlast))
  (command "_.arc" pt8 pt9 pt10 "")
  (setq acr_1 (entlast))
  (command "_line" pt6 pt11 "")
  (setq line_1 (entlast))
  (command "_line" pt8 pt12 "")
  (setq line_2 (entlast))
  (command "_.arc" pt11 "_e" pt12 "_r" R "")
  (setq acr_2 (entlast))
  (command "_line" pt10 pt13 "")
  (setq line_3 (entlast))  
  ;лево вверх
  (command "_circle" pt14 (/ b 2))
  (command "_.arc" pt17 pt15 pt16 "")
  ;размер
  (command "_.dimradius" (list (entlast) pt15) (polar pt15 (dtr 150.) b))
  ;
  (command "_circle" pt18 (/ b 2))
  (setq circle_2 (entlast))
  ;размер
  (command "_.dimdiameter" (list (entlast) pt18) (polar pt18 (dtr 115.) (* b 2)))
  ;
  (command "_.arc" pt8 pt9 pt10 "")
  (setq acr_3 (entlast))
  (command "_line" pt17 pt22 "")
  (setq line_4 (entlast))
  (command "_line" pt19 pt23 "")
  (setq line_5 (entlast))
  (command "_.arc" pt22 "_e" pt23 "_r" R "")
  (setq acr_4_1 (entlast))
  (command "_mirror" acr_4_1 "" pt22 pt23 "_yes" "")
  (setq acr_4 (entlast))
  (command "_line" pt20 pt24 "")
  (setq line_6 (entlast))
  (command "_.arc" pt19 pt21 pt20 "")
  (setq acr_5 (entlast))
  ;вверхняя дуга
  (command "_.arc" pt24 "_e" pt13 "_r" R "")
  (setq acr_6_1 (entlast))
  (command "_mirror" acr_6_1 "" pt24 pt13 "_yes" "")
  (setq acr_6 (entlast))
  ;размер
  (command "_.dimradius" (list (entlast) pt13) (polar pt13 (dtr 120.) b))
  ;
  (command "_mirror" acr_1 acr_2 acr_3 acr_4 acr_5 acr_6 circle_1 circle_2 line_1 line_2 line_3 line_4 line_5 line_6 "" pt15 pt4 "_no" "")


)

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

Может, дело в граблях?
Offtop: Если бы такое надо было реально строить, я бы подумал на предмет использования Invenor

----- добавлено через ~2 мин. -----
Кстати, а если руками построить при заданных параметрах - сечение вообще будет существовать или нет?

[Krieger]

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