[Владимир М]

Как нарисовать сечение трубы прямоугольного профиля программно пользуясь командами "_.rectangle" и "_.offset"
Переменные:
;h-высота сеч. профильной трубы
;b-ширина сеч. профильной трубы
;t-толщина стенки сеч. профильной трубы
;r-наружний радиус скругления сеч. профильной трубы

[DEM]

Так что ли

Код:

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

(defun C:truba (/ pt1 pt2 sh sb st sf p1 p2
	      )
  (setq sh (getdist "\nвысота сеч: "))
  (setq sb (getdist "\nширина сеч: "))
  (setq st (getdist "\nтолщина стенки сеч: "))
  (setq sf (getdist "\nнаружний радиус скругления сеч: "))
  (setq pt1 (getpoint "\nЦентр: "))
  (setq p1 (list (- (nth 0 pt1) (/ sb 2)) (- (nth 1 pt1) (/ sh 2)) (nth 2 pt1)))
  (setq p2 (list (+ (nth 0 pt1) (/ sb 2)) (+ (nth 1 pt1) (/ sh 2)) (nth 2 pt1)))
  (command "_.rectangle" "С" sf p1 p2 "")
  (command "_.offset" st (entlast) pt1 "")
  (princ)
)

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

[Krieger]

Или так:

Код:

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

(defun truba (h b t1 r / pt1 pt2 ss)
  (if (setq pt1 (getpoint "\nукажи точку вставки <выход> : "))
    (progn
      (setq pt2 (polar (polar pt1 0 b) (* pi 0.5) h))
  (command "_.rectangle" "_Fillet" r pt1 pt2)
      (setq ss (ssget "_L"))
      (command "_.offset" t1 ss (polar pt1 (angle pt1 pt2) (/ (distance pt1 pt2) 2)))
    );end progn
    );end if
  );end defun

[Владимир М]

Спасибо за помощь, попробую!
Еще раз спасибо вам DEM и Krieger!

[Евгений]

В Download была прога prokat называется. она это все делает. И трубы и угольники и профиля. Удобно! Была и 3-х мерная. Поисчи!

[Евгений]

Как раз идет обсуждение. Посмотри туточки http://dwg.ru/forum/viewtopic.php?t=10849

[DEM]

Евгений
А вы посмотрите кот тему начал

[Владимир М]

Да, Евгений - это я.
Вот как раз трубами и занялся я. Все в ту же программу все хочу запихать...
вот тему и раздул для этих целей - не только для себя но и для вас стараюсь.

[Владимир М]

Вот вроде проверял голой проверкой ввода в командную строку по частям сначала одну комманду после вторую (получается).
Две сразу что-то не фотят работать в чем причина не пойму может кто объяснит?
;Если
;h=100 -высота сеч. профильной трубы
;b=200 -ширина сеч. профильной трубы
;t=5 -толщина стенки сеч. профильной трубы
;r=10 -наружний радиус скругления сеч. профильной трубы
;(setq cpt '(0.0 0.0)) -точка вставки
;(setq cpt2 '(20.0 20.0)) -направление точки вставки
;(entlast) -выбор последнего объекта
;\e - ввод

(command "_.rectangle" "F" "10" (setq cpt '(0.0 0.0)) "D" 100 200 (setq cpt2 '(20.0 20.0)))
(command "_.offset" 5 (entlast) (setq cpt3 '(20.0 20.0)) \e)

[Krieger]

Все работает.
Запускай из редактора VisulLisp, а не через вставку в комстроку. На всякий пожарный убери пробел в конце первой строки. Можно объединить две строки в одну:

Код:

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

(command "_.rectangle" "_F" "10" (setq cpt '(0.0 0.0)) "_D" 100 200 (setq cpt2 '(20.0 20.0)) "_.offset" 5 (entlast) (setq cpt3 '(20.0 20.0)) "_exit")

[Евгений]

Владимир М
Прошу пардону не узнал Но все равно СПАСИБО за прогу!!!! Трубим всем отделом!

[Владимир М]

Спасибо Krieger! Попробую пойти дальше...

[Владимир М]

Тут еще Alan предложил по старой программе ddsteel ,
выложенная сдесь рисованная по точкам, что у меня получилось. Может и использую первый варант который рассматривался в этой теме
сделаю два варианта потом выложу что лучше. Но все равно спасибо!

[Владимир М]

Тут следующий вопрос напрашивается, если я буду делать круглые трубы. Наименование займет более 1200 различий по одному ГОСТ
Возможно разместить падающей строке столько наименований если база у меня будет *.dat файле, написанная в блокноте?
Или какой предел в числе знаках?

[DEM]

В этом случае советую выполнять двойной выбор.
1. Диаметр
2. Толщина стенки.

[Геннадий aka PG]

> Владиимир М
Выкладываю всю программу MTRL с DAT-файлами сортамента, часть сортамента из прогрп=аммы Василия К.
[ATTACH]1166424099.zip[/ATTACH]

[Геннадий aka PG]

Также прилагаю старую программку DDSTEEL, там есть модуль черчения квадратных труб (ввод размеров ручной), должна пригодится
[ATTACH]1166424192.zip[/ATTACH]

[Владимир М]

Спасибо, Геннадий aka PG, но программа DDSTEEL у меня уже есть.

[Евгений А.]

Сообщение от Владимир М Возможно разместить падающей строке столько наименований если база у меня будет *.dat файле, написанная в блокноте? Или какой предел в числе знаках?

Предел-то конечно есть, но больше видимо по объёму памяти. Можете не переживать. Сам пробовал списки из строк (list_box/popup_list) до 1 млн. записей - всё работает!!! и скорость заполнения нормальная (до 10 тыс.записей в сек.).

[Евгений А.]

В моей прогрограмме база профилей оформлена списком, может пригодится. Вот файл с прокатом.
[ATTACH]1166602100.rar[/ATTACH]