Полезные макросы

[Борман 2 376]

Предлагаю наконец-то создать тему с полезными макросами по ANSYS. У кого есть, и кому не жалко - выкладывайте.

----------------

Начну с себя. Вот буквально на днях накатал макрос, который, считаю, будет полезен тем, кто строит модели непосредственно в ANSYS.

Макрос представляет выделенное множество "элементов" (KP, LINE, AREA, VOLU, NODE, ELEM) как последовательность xSEL команд. Тип управляется первой строкой макроса.

go.txt

[Fedor 1 597]

Удобнее работать в UltraEdit/UEStudio там можно столбики сразу делать и обрабатывать.

Еще предлагаю не лениться, а документировать комментариями основные ключевые операции. Как это принято в программировании. Называется сомодокументированные коды, вроде. Заголовок и все такое.

[Борман 2 376]

Удобнее работать в UltraEdit/UEStudio там можно столбики сразу делать и обрабатывать.

Еще предлагаю не лениться, а документировать комментариями основные ключевые операции. Как это принято в программировании. Называется сомодокументированные коды, вроде. Заголовок и все такое.

Я не программизд. А такой простой код нефиг документировать, поскльку умный поймет, а дураку не надо.

[Fedor 1 597]

Вы пишите программистский код. Поэтому пожелание придерживаться наработанной культуры. Только и всего. Через полгода даже тривиальные вещи требуют усилий по расшифровке. Документировать полезно просто ради будущего времени. Одноходовки шахматные решаются за секунду, над двухходовками приходится думать, с трехходовками не всегда и справишься за приемлемое время. Это как в деловых бумагах, смотрят обычно одну две строчки в начале и в конце вывод, чтобы принять решение.

Назначение - вход - выход

Это как чертежи без штампов во множестве конструкций. Трудно догадаться для чего эти сотни линий на сотнях листочков

Вы же объявили о полезности, а не сборнике шарад в которые еще надо вчитываться, чтобы уловить цель и логику.

[Влад. 6]

Такие штуки, Борман, лучше публиковать на ansys.net

тут же добрые люди загадять все, что можно пытаясь помочь.

[Цветочек 15]

Добрые люди уже засрали ansys.net вопросами как построить линию и задать сталь в свойствах, так что пусть уж здесь.

[Влад. 6]

мы опять о разных вещах говорим?

<noindex>http://ansys.net/</noindex>

[Цветочек 15]

Я согласна на всё.

[Гость ISPA]

тут же добрые люди загадять все

Нужно чаще, как котят, носом тыкать. Тогда и желание гадить пропадет.

[Цветочек 15]

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

Но там так всего мало, это ж не база знаний по ансис, скорее чуланчик имаоки и его друзей.

Я спутала вообще его с xansys.org - думала вы о нем говорите. Вот где реально можно ответ на свой вопрос поискать,а вы про сайт имаоки

[Fedor 1 597]

finish

/clear

/CWD,'d:\tempans' ! рабочий каталог

! Заголовок и описание обычно работаю с таким шаблоном для строительства постепенно пополняю

*CREATE,elemMatRealNew !___________макрос элементы, материалы константы __________

/PREP7

ANTYPE,0

ET,1,BEAM189 ! квадратичный балочный элемент

ET,2,SHELL93

ET,3,SOLID186

! бетон

m_Gamma = 8.0e-10 ! плотность железа, для железобетона *0.32 или

m_GammaB= 2.55e-10 ! плотность железобетона

Es=21000 ! сталь

Eb=2753 ! B25 3060 !!!!!!!!!!!!!B40 3670 Б30*** 3314 ! модуль упругости бетон Б20 2753 В35 = 3518

alfa=15E-6

MPTEMP,,,,,,,, $ MPTEMP,1,0 $ MPDATA,EX,1,,Eb*(0.85*0.5*0.75) $ MPDATA,PRXY,1,,0.3 ! учет нелинейности для изгиба

MPTEMP,,,,,,,, $ MPTEMP,1,0 $ MPDATA,DENS,1,,m_Gamma*0.32 $ MPDATA,ALPX,1,,alfa,

FINISH

rc= $ h= $

*END !__________ конец макроса _________________

*CREATE,solver !___________макрос шаблон __________

*IF,1,EQ,1,THEN !***********************отладочное**********************************

!______________________Решение____________________________________

allsel

n=0 ! число мод для проверки устойчивости, если 0 статический анализ **************

/SOLU

ANTYPE,STATIC ! STATIC ANALYSIS

*IF,n,GT,0,THEN $ PSTRES,ON $ *ENDIF ! CALCULATE PRESTRESS EFFECTS

SOLVE

FINISH

*IF,n,GT,0,THEN ! проверка на устойчивость

! для строительных конструкций не ниже 1.36 коэффициент запаса по устойчивости (следует из СНИП)

/SOLU

ANTYPE,BUCKLE

BUCOPT,LANB,n ! USE BLOCK LANCZOS EIGENVALUE EXTRACTION METHOD

MXPAND,n

SOLVE

FINISH

*ENDIF

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

/POST1

ESEL,ALL

etable,,smisc,1 ! сила по X

etable,,smisc,2 ! момент относительно y

etable,,smisc,3 ! момент относительно z

etable,,smisc,4 ! момент относительно x

etable,,smisc,5 ! сдвиговая сила по Z

etable,,smisc,6 ! сдвиговая сила по Y

etable,,smisc,31 ! осевое напряжение

etable,,smisc,32 ! осевое напряжение+изгиб y

etable,,smisc,33 ! осевое напряжение-изгиб y

etable,,smisc,34 ! осевое напряжение+изгиб z

etable,,smisc,35 ! осевое напряжение-изгиб z

! сюда вставить устойчивость склона

FINISH

*ENDIF !***********************отладочное**********************************

FINISH

*END !__________ конец решения _________________

*CREATE,otkos !__________ в подобных макросах геометрия, разбиение нагрузки и т д __________

/PREP7

FINISH

*END !__________ конец макроса _________________

*CREATE,application !___________это с одним зданием __________

*USE,elemMatRealNew ! это можно при создании геометрии временно отключить

/DELETE,elemMatRealNew

*USE,otkos ! таких модулей можно навставлять сколько угодно и внутри их еще вызовы

/DELETE,otkos

*USE,solver ! это заключительное решение с помощью ! сначала лучше отключить

/DELETE,solver

*END !__________ конец макроса _________________

!______________________собственно работа_____________________________

! сначала вызывается application а уж она управляет всеми остальными вызовами

*USE,application

/DELETE,application

! ____________________конец работы__________________________

/eof !****************конец файла полезная команда все что за ней не воспринимается***************

! полезные шаблоны

*IF,1,EQ,1,THEN

*ELSEIF,2,EQ,2

*ELSE

*ENDIF

____________________________________________________________________________________________________

*CREATE,new !___________макрос шаблон __________

/PREP7

FINISH

*END !__________ конец макроса _________________шаблон вызова

! типичный вызов

*USE,new

/DELETE,new

[Dandy 3]

Борман, спасибо за тему !

Небольшой макрос по сохранению картинок с экрана с определенными настройками изображения, может кому и пригодится

/EFACET,1

/PLOPTS, minm, 0

/PLOPTS, date, 0

/SHOW,JPEG,,0

JPEG,QUAL,100,

JPEG,ORIENT,HORIZ

JPEG,COLOR,2

JPEG,TMOD,1

/GFILE,1000,

!*

/CMAP,_TEMPCMAP_,CMP,,SAVE

/RGB,INDEX,100,100,100,0

/RGB,INDEX,0,0,0,15

/REPLOT

/CMAP,_TEMPCMAP_,CMP

/DELETE,_TEMPCMAP_,CMP

/SHOW,CLOSE

/DEVICE,VECTOR,0

Изменено 29 февраля 2012 пользователем Dandy

[Борман 2 376]

Какую надо выставить настройку при сохранении картинки, чтобы цифры на легенде не были "тухленькие" ?

[Dandy 3]

Какую надо выставить настройку при сохранении картинки, чтобы цифры на легенде не были "тухленькие" ?

Да вроде когда приближаешь нормально все видно, но можно посмотреть команду /DEVICE, она, в частности, настраивает шрифты.

P.S. Немножко подредактировал макрос, убрал дату и обозначения MN, MX с экрана.

Изменено 29 февраля 2012 пользователем Dandy