[Boo87]

Добрый день. Начинаю учить lisp. И решил начать с создания lispa. который будет вычерчивать предызолированное тройниковое ответвление, под разные диаметры. Так вот помогите с lispом или посоветуй хороший учебник по lisp. Я даже не знаю с чего начинать!
http://www.mosflowline.ru/pic/22_2.jpg Данные тройника. Если кто может напишите пример lispa. Буду очень благодарен.

[E-degtyarev]

В 3D или на плоскости?

[Boo87]

Извиняюсь. Забыл написать, на плоскости!

[Profan]

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

Круто. Я начинал с отрисовки простого прямоугольника...

[Boo87]

Дак я бы тож начал, только вот на работе достали, сижу в роли админа по AutoCADу. И вот прижали надо им срочно сие извоять!

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

Тихо подозреваю, что здесь будет достаточно динамического блока (см. соответствующую тему в разделе "AutoCAD")

[мы виталич]

тебе с лиспом секасом позаниматься
...или развертки?
если второе -> http://www.plate-n-sheet.com/ тебе в помощь...

[Boo87]

Динамический блок получается не удобен для наших "любимых" пользователей. И я хотел внести этот лисп в созданную Институтом надстройку для AutoCAD!

[Дима_]

А что говорит создатель "институтской надстройки"?

[Boo87]

Создатель уволился. И найти его очень сложно! Да и сам хочу разобраться во всем этом!

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

Интересно, а что должно получиться в результате? Какого вида должен быть чертеж?

[Boo87]

Блин, Файлы не прикрепляются.
Но выглядеть должно примерно так: http://www.stroyoffis.ru/gost_materi...1/image015.jpg Это его план и соответственно разрез!

[Дима_]

Тут по любому выгодней смотриться дин. блок. ну а если приперло - пиши формулу координаты каждой узловой точки (на входе исходные данные - на выходе координаты), и обрисовывай полученное полилинией. Похожие лиспы смотри в "весенних" темах - подобные задачи часто студентам задают - а все двоечники сюда попрошайничать - поищи пара-тройка подобных лиспов точно есть.

[ShaggyDoc]

Изучай книгу "САПР на базе AutoCAD - как это делается". Там есть все, чтобы разобраться. В том числе и с тройниками.

На твоем рисунке не тройник, а сразу несколько элементов - основная труба, тройник (врезка), отвод, участок ответвления. Вот разбивая на такие элементы и надо все делать.

А общий принцип прост - как написал Дима_, определяешь расчетом координаты каждой точки рисунка и соединяешь их линиями.

В 3D это даже проще - точек много не надо высчитывать, а виды со всех сторон получать.

[VVA]

Еще посмотри эти сслыки
1. HVAC_Duct Антон Емельдяжев
2. HVAC Duct Program
3. Piping Program
4. HVAC Programers library
По ссылке в №1 не будет работать в русском Автокаде
чтобы работал, см вложение и читай файл readme.txt

[ShaggyDoc]

Но выглядеть должно примерно так

Кстати, выглядеть должно совершенно не так. Сопряжения нарисованы неграмотно. Если так будет рисовать программа, могут побить. Возможно, ногами.

[Boo87]

Сообщение от ShaggyDoc На твоем рисунке не тройник, а сразу несколько элементов - основная труба, тройник (врезка), отвод, участок ответвления. Вот разбивая на такие элементы и надо все делать.

Я и написал что это не тройник (сокращеннно), а тройниковое ответвление и изготавливается он, как один элемент. Я уж знаю что это и как он сделан. С завода он поставляется именно так и проектировщику не зачем забивать голову из каких деталей он сделан!

А по поводу, как он выглядит. Я написал что примерно так, это схематично, так как чертеж не прикрепляется. Ясно дело что должо быть аккуратно и красиво!

В 3D рисовать наши пользователи не умеют, я бы с радостью!

А вот за ссылки огромное спасибо!
Только на сколько я понял, эти программы все для вычерчивания черных труб, а не предызолированных!

Прикладываю чертеж план тройника, так у нас чертят пользователи им этого достаточно!

[ShaggyDoc]

Я и написал что это не тройник (сокращеннно), а тройниковое ответвление и изготавливается он, как один элемент. Я уж знаю что это и как он сделан. С завода он поставляется именно так и проектировщику не зачем забивать голову из каких деталей он сделан

Но ты же собрался программировать такое ответвление. А в программировании надо разбивать программу на отдельные элементы. Вот, автомобиль в сборе - тоже "один элемент". Но делают его частями.

[Boo87]

Не совсем удачное сравнение, я черчу груба говоря примитив а не 3D модель!

[vrtm]

Прочитай еще раз сообщение #6.
И никакого лиспа

[Boo87]

Спасибо и на этом, здесь может и действительно lisp не нужен.
Но его все таки надо учить! Не всегда динамический блок выход!

[Олег (jr.)]

Сообщение от Boo87 Спасибо и на этом, здесь может и действительно lisp не нужен. Но его все таки надо учить! Не всегда динамический блок выход!

Можешь взять за основу - в твоем случае лучше использовать
параметрический ввод и спользовать функцию (list x y) для
задания точек
(Я закомментировал ввод данных для простоты тестирования
можешь изменить под свои условия)

Код:

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

(defun C:PTR (/ *error* apt1 apt2 apt3 apt4 
	         cpt1 cpt2 D1 D2 Dt1 Dt2
	          Gp L1 L2 lp1 lp2 lp3 lp4 pt Rad rp1 rp2 rp3 rp4)

  (defun *error* (msg)
    (if (and msg
	     (or
	       (wcmatch msg "Function cancelled,quit / exit abort")
	       )
    )
      (princ (strcat "\nError: " msg)
	     )
      (princ "\n < Error >")
    )
        (command "._undo" "_end")
    
    (setvar "cmdecho" 1)
  )
  
(command "._undo" "_be")
  
(setvar "cmdecho" 0)
  
(if (not (tblsearch "ltype" "DASHED2"))  
(command ".-linetype"
	 "_L"
	 "DASHED2"
	 (if (= 1 (getvar "measureinit"))
	   "acadiso.lin";--> если метрические единицы
	   "acad.lin");--> если имперские единицы
	   ""
	   )
)
  
  (setq  pt     (getpoint "\nУказать точку вставки: ")
	 
    Dt1    1200;(getreal "\nУказать диаметер основной трубы с изоляцией: ")
	 
    Dt2    1020;(getreal "\nУказать чистый диаметер основной трубы: ")
	 
    D1     315;(getreal "\nУказать диаметер патрубка с изоляцией: ")
	 
    D2     219;(getreal "\nУказать чистый диаметер патрубка: ")
    
    L1     1680;(getreal "\nУказать длину основной трубы с изоляцией: ")
    
    L2     1873.3;(getreal "\nУказать длину патрубка с изоляцией в плане: ")
    
    Gp     210 ;(getreal "\nУказать выступ трубы от изоляции: ")
	       
    rp1 (list (- (car pt)(/ L1 2))(- (cadr pt)(/ Dt1 2)))
	 
      rp2 (list (+ (car pt)(/ L1 2))(+ (cadr pt)(/ Dt1 2))
		)
	     
    cpt1 (list (car pt)(- (cadr pt)(- (* (/ Dt1 2)(sin (/ pi 4)))(* (/ D1 2)(sin (/ pi 4))))))
	 
    cpt2 (list (car pt)(- (cadr cpt1)(- (/ L2 2)(* (/ D1 2)(sin (/ pi 4))))))
	 
    Rad (/ D1 2)
	 
    apt1 (polar cpt1 0 Rad)
	 
    apt2 (polar cpt1 pi Rad)
	 
    Rad (* D1 (sin (/ pi 4)))
	 
    apt3 (polar cpt2 (/ pi 4) Rad)
	 
    apt4 (polar cpt2 (* 3 (/ pi 4)) Rad)
)
  
  (command "._rectangle" "_non" rp1 "_non" rp2
           "._change" "_L" "" "_P" "_C" "1" "_LT" "Continuous" "")

  (setq lp1 (list (car rp1) (- (cadr rp2)(/ (- Dt1 Dt2) 2)))
	
	lp2 (list (- (car rp1) Gp) (cadr lp1))
	
	lp3 (list (car lp2)(- (cadr lp2) Dt2))
	
	lp4 (list (car lp1)(cadr lp3))
	)
  
  (command "._pline" "_non" lp1 "_non" lp2 "_non" lp3 "_non" lp4 ""
           "._change" "_L" "" "_P" "_C" "7" "_LT" "DASHED2" "_S" "50" "")
  
  (setq lp1 (list (car rp2) (- (cadr rp2)(/ (- Dt1 Dt2) 2)))
	
	lp2 (list (+ (car rp2) Gp) (cadr lp1))
	
	lp3 (list (car lp2)(- (cadr lp2) Dt2))
	
	lp4 (list (car lp1)(cadr lp3))
	)
  
  (command "._pline" "_non" lp1 "_non" lp2 "_non" lp3 "_non" lp4 ""
           "._change" "_L" "" "_P" "_C" "7" "_LT" "DASHED2" "_S" "50" "")

  (command "._arc" "_C" "_non" cpt1 "_non" apt1 "_non" apt2
	   "._arc" "_C" "_non" cpt2 "_non" apt3 "_non" apt4)

  (setq lp1 (list (car apt1)(- (cadr apt1) L2))
	
	lp2 (list (car apt2)(- (cadr apt2) L2))
	)
  
  (command "._line" "_non" lp1 "_non" apt1 ""
           "._change" "_L" "" "_P" "_C" "1" "_LT" "Continuous" ""
	   "._line" "_non" lp2 "_non" apt2 ""
	   "._change" "_L" "" "_P" "_C" "1" "_LT" "Continuous" ""
           "._line" "_non" lp1 "_non" lp2 ""
	   "._change" "_L" "" "_P" "_C" "1" "_LT" "Continuous" ""
	   )
  
  (setq rp1 (list (+ (car lp2)(/ (- D1 D2) 2)) (cadr lp2))
	
	rp2 (list (car rp1)(-  (cadr rp1) Gp))
	
	rp3 (list (- (car lp1)(/ (- D1 D2) 2))(cadr rp2))
	
	rp4 (list (- (car lp1)(/ (- D1 D2) 2))(cadr lp1))
	)
  
  (command "._pline" "_non" rp1 "_non" rp2 "_non" rp3 "_non" rp4 ""
           "._change" "_L" "" "_P" "_C" "7" "_LT" "DASHED2" "_S" "20" "")
  (princ)
      )

(princ "\n  >>  Команда для выполнения: PTR  <<")
(prin1)

~'J'~

[Boo87]

О спасибо. Будем посмотреть и изучать!

[alex8888]

Offtop: Прошу прощения, ShaggyDoc, в прикрепленной тобой миниатюре в каком каде сделано сие творение?

[ShaggyDoc]

Сообщение от alex8888 Offtop: Прошу прощения, ShaggyDoc, в прикрепленной тобой миниатюре в каком каде сделано сие творение?

То ли в 2006, то ли в 2008 - уж не помню. Модель делалась програмами ruCAD.

[alex8888]

Offtop: ShaggyDoc, неужели в Автокаде? Я такое инвентором делаю, автокад у меня только "механический".