[Yaklor]

Я самостоятельно осваиваю програму Advance Steel,
требование- только получение модели и деталировки
модель я получил, со всеми узлами разобрался.
Вопрос:как на модели убрать невидимые линии.
В учебнике есть панель «Раскрашивание» и команда «Плоское тонирование» сколько искал не нашел.
Оформление чертежей не по ГОСТ, так что этой проблемы нет,
сами изготавливаем, сами и монтируем

Приму с благодарностью любые советы от пользователей
этой програмы.

[Brain Murder]

SSNSS, Если колонна сварная то создается, если балка то нет. В хранилище узлов, под эскизом описаниие к узлам есть (после СП1) и там расписано какие профили катят для какого узла. Там правда по английски но догадаться можно.

[SSNSS]

Brain Murder ага прочитал описание, благодарю эх жаль, придётся ручками

[Sharnir]

решил

[RMV]

А чем, кроме как ценой, отличаются Advance Steel и AutoCAD Structural Detailing?

[~AlexX~]

Сообщение от RMV А чем, кроме как ценой, отличаются Advance Steel и AutoCAD Structural Detailing?

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

[olamot]

Ув.~AlexX~, в руководстве пользователя я прочитал следующеее
Возможна модификация правил узлов в соответствии с потребностями пользователя или создание новых узлов. Для этого
необходимо знание специального макро языка для программирования узлов Advance.
Не могли бы вы поделиться руководством для ознакомления.
Спасибо.

[~AlexX~]

Сообщение от olamot Возможна модификация правил узлов в соответствии с потребностями пользователя или создание новых узлов. Для этого необходимо знание специального макро языка для программирования узлов Advance.

Специальный макро язык использовался раньше, когда применялся старый механизм (JDE). Сейчас узлы пишутся на С++ или Basic. Если владеете программированием, могу выслать пример на почту.

[berovm]

~AlexX~, а можно не на почту, а на обменник какой, или на лавтимовский антилич. ПОЖАЛУЙСТА.

[~AlexX~]

Пример на Бейсике:

Код:

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

Imports AstSTEELAUTOMATIONLib
Imports DSCGEOMCOMLib
Imports DSCODBCCOMLib
Imports System.Runtime.InteropServices

<ComClass(SampleJoint.ClassId, SampleJoint.InterfaceId, SampleJoint.EventsId)> _
Public Class SampleJoint
	Implements IRule

	'members
	Private m_ThisJoint As Joint
	Private dlgPage1 As Page1

	'joint parameters
	Public m_PlateThickness As Double

#Region "COM GUIDs"
	' These  GUIDs provide the COM identity for this class
	' and its COM interfaces. If you change them, existing 
	' clients will no longer be able to access the class.
	Public Const ClassId As String = "0B00EB30-8BF2-4b59-BF68-2EF8C69D665C"
	Public Const InterfaceId As String = "923B9AAB-2380-436b-9583-6DF8DB090CB6"
	Public Const EventsId As String = "D0A6507A-F1A7-4ff0-987C-99D8A1542DF5"
#End Region

	' A createable COM class must have a Public Sub New() 
	' with no parameters, otherwise, the class will not be 
	' registered in the COM registry and cannot be created 
	' via CreateObject.

	Public Sub New()
	End Sub

	Public Property Joint() As AstSTEELAUTOMATIONLib.Joint Implements AstSTEELAUTOMATIONLib.IRule.Joint
		Get
			Return m_ThisJoint
		End Get
		Set(ByVal value As AstSTEELAUTOMATIONLib.Joint)
			m_ThisJoint = value
		End Set
	End Property

	Public Sub InField(ByVal pFiler As AstSTEELAUTOMATIONLib.IFiler) Implements AstSTEELAUTOMATIONLib.IRule.InField
		Dim nParamsSetVer As Integer = pFiler.readVersion()

		m_PlateThickness = pFiler.readItem("PlateThickness")
	End Sub

	Public Sub OutField(ByVal pFiler As AstSTEELAUTOMATIONLib.IFiler) Implements AstSTEELAUTOMATIONLib.IRule.OutField
		pFiler.writeVersion(1)

		pFiler.writeItem(m_PlateThickness, "PlateThickness")
	End Sub

	Public Sub Query(ByVal pAstUI As AstSTEELAUTOMATIONLib.AstUI) Implements AstSTEELAUTOMATIONLib.IRule.Query

		Dim QueryObjects As AstObjectsArr
		QueryObjects = m_ThisJoint.CreateObjectsArray

		''prepare input filter (accept only straight beams)
		pAstUI.ClearClassFilter()
		pAstUI.GetClassFilter().AppendAcceptedClass(eClassType.kBeamStraightClass)

		'select the beam
		Dim beam As StraightBeam
		Dim errCode As eUIErrorCodes
		beam = pAstUI.AcquireSingleObject(61200, errCode)
		If errCode <> eUIErrorCodes.kNormal Then Throw New COMException("Invalid input.")

		'add the beam in the array of input objects
		QueryObjects.Add(beam)

		'set joint parameters to default values
		Dim dbUtils As New OdbcUtils
		m_PlateThickness = dbUtils.GetDefaultDouble(300, "Thickness") 'read default plate thickness from AS defaults

		'set the joint input objects
		m_ThisJoint.InputObjects = QueryObjects

	End Sub

	Public Sub CreateObjects() Implements AstSTEELAUTOMATIONLib.IRule.CreateObjects

		'create joint objects here
		'this joint will create a rectangular plate on the start end of the input beam
		'and weld it to the beam

		Dim bJointStatus As Boolean = True
		Dim JointCreatedObjects As AstObjectsArr = m_ThisJoint.CreateObjectsArray()

		Try
			'retrieve beam object from joint input objects array
			Dim beam As StraightBeam = m_ThisJoint.InputObjects(0)

			'prepare plate polygon
			Dim vect As New Vector3d
			Dim p1, p2, p3, p4 As New Point3d

			beam.getRefAxisWCS(eProfRefAxis.kUpperLeft, p1, vect)
			beam.getRefAxisWCS(eProfRefAxis.kUpperRight, p2, vect)
			beam.getRefAxisWCS(eProfRefAxis.kLowerRight, p3, vect)
			beam.getRefAxisWCS(eProfRefAxis.kLowerLeft, p4, vect)

			'construct polygon
			Dim platePolygon As New AugPolygon3d
			platePolygon.AppendVertex(p1)
			platePolygon.AppendVertex(p4)
			platePolygon.AppendVertex(p3)
			platePolygon.AppendVertex(p2)

			'plate Model role property
			Dim plateRole As Role = m_ThisJoint.CreateRole("Endplate")

			'create the endplate
			Dim endPlate As Plate = m_ThisJoint.CreatePlatePoly(plateRole, platePolygon, m_PlateThickness)
			Dim plateEditableProp As JointTransfer = m_ThisJoint.CreateJointTransfer("Endplate")
			plateEditableProp.ClassType = eClassType.kPlateClass
			plateEditableProp.Attribute(eAttributeCodes.kPlateMaterial) = 1	'plate Material property should be editable outside the joint (from plate object properties dialog)
			plateEditableProp.Attribute(eAttributeCodes.kPlateCoating) = 1	'plate Coating property should be editable outside the joint (from plate object properties dialog)
			endPlate.JointTransfer = plateEditableProp

			'add the plate in the joint created objects array
			JointCreatedObjects.Add(endPlate)

			'weld now the endplate to the beam
			Dim weldPoint As New Point3d
			weldPoint.setFrom(p1)
			vect = p2.Subtract(p1)
			vect.Multiply(0.5)
			weldPoint.Add(vect)

			'create the weld object
			Dim weldRole As Role = m_ThisJoint.CreateRole("Weld")
			Dim weldObj As Weld = m_ThisJoint.CreateWeld(weldRole, eWeldType.kTWeld, 4.0, weldPoint, New CS3d())

			'connect the beam and the endplate with this weld
			Dim connectedObjects As AstObjectsArr = m_ThisJoint.CreateObjectsArray()
			connectedObjects.Add(beam)
			connectedObjects.Add(endPlate)
			weldObj.Connect(connectedObjects, eAssembleLocation.kInShop)

			Dim weldEditableProp As JointTransfer = m_ThisJoint.CreateJointTransfer("Weld")
			weldEditableProp.ClassType = eClassType.kAstWeldLevel1
			weldEditableProp.Attribute(eAttributeCodes.kWeldPatternThickness) = 1	'weld Thickness property should be editable outside the joint (from weld object properties dialog)
			weldEditableProp.Attribute(eAttributeCodes.kWeldPatternAssembleLocation) = 1	'weld Location property should be editable outside the joint (from weld object properties dialog)
			weldObj.JointTransfer = weldEditableProp

			'add the weld in the joint created objects array
			JointCreatedObjects.Add(weldObj)

		Catch ex As Exception
			bJointStatus = False 'something wrong happened
		End Try

		m_ThisJoint.CreationStatus = bJointStatus
		m_ThisJoint.CreatedObjects = JointCreatedObjects

	End Sub

	Public Sub GetUserPages(ByVal pagesRet As AstSTEELAUTOMATIONLib.RulePageArray, ByVal pPropSheetData As AstSTEELAUTOMATIONLib.PropertySheetData) Implements AstSTEELAUTOMATIONLib.IRule.GetUserPages

		dlgPage1 = New Page1()
		dlgPage1.Rule = Me

		Dim retPage1 As RulePage = m_ThisJoint.CreateRulePage()
		retPage1.title = 11113
		retPage1.hWnd = dlgPage1.Handle.ToInt32()
		pagesRet.Add(retPage1)

	End Sub

	Public Sub FreeUserPages() Implements AstSTEELAUTOMATIONLib.IRule.FreeUserPages

		If IsNothing(dlgPage1) Then Return

		dlgPage1.Rule = Nothing
		dlgPage1.Close()
		dlgPage1.Dispose()
		dlgPage1 = Nothing

	End Sub

	Public Function GetTableName() As String Implements AstSTEELAUTOMATIONLib.IRule.GetTableName
		Return ""
	End Function

	Public Function ConvertFromHRL(ByVal filer As AstSTEELAUTOMATIONLib.HRLConvertFiler, ByVal OldHRLRuleName As String) As Boolean Implements AstSTEELAUTOMATIONLib.IRule.ConvertFromHRL
		Return True
	End Function

	Public Sub GetExportData(ByVal pExportFiler As AstSTEELAUTOMATIONLib.IRuleExportFiler) Implements AstSTEELAUTOMATIONLib.IRule.GetExportData

	End Sub

	Public Function GetFeatureName(ByRef FeatureName As String) As Boolean Implements AstSTEELAUTOMATIONLib.IRule.GetFeatureName
		FeatureName = ""
		Return False
	End Function

	Public Sub InvalidFeature(ByVal reserved As Integer) Implements AstSTEELAUTOMATIONLib.IRule.InvalidFeature

	End Sub

End Class

[vla203782]

Ух счас кто-нить узлов настрогаеть

[Engineering]

Нужна помощь! Проблема в следующем: при создании узла соединения швеллеров 10П через неравнополочный уголок 100х63 не удается разместить уголок справа, относительно узла. Advance рисует красную рамку вокруг узла. При размещении двойного уголка и слева - все нормально. В чем проблема? Не хочется разрушать узел и править его вручную. Заранее спасибо.

[~AlexX~]

Сообщение от Engineering Нужна помощь! Проблема в следующем: при создании узла соединения швеллеров 10П через неравнополочный уголок 100х63 не удается разместить уголок справа, относительно узла. Advance рисует красную рамку вокруг узла. При размещении двойного уголка и слева - все нормально. В чем проблема? Не хочется разрушать узел и править его вручную. Заранее спасибо.

Это ошибка. Будет исправлена в SP2.

[olamot]

Есть еще вопросы по видеу.

Во первых жутко напрягло то, что в спецификации к плану колонн Юзер эти колонны получает не автоматом, а выбирает из списка всех элементов ПОШТУЧНО.
Это оччень чревато залетом при правке вороха чертежей уже подзабытого проекта...
(в SW, к примеру, BOM привязывается к виду и выдает то, что на виде светится в данный момент)

И второе. Можно ли чертежи AS подшивать в подшивку Автокада?
Если точнее, то где они создаются- в пространстве листа или в пространстве модели

И третье. Параметры вставленных руками деталей не имеют свойств, которые имеются у деталей, созданных AS, правильно я понял?
(и соответственно создаются юзером?)

[vla203782]

Сообщение от olamot Это оччень чревато залетом при правке вороха чертежей уже подзабытого проекта...

1.Ну спецификацию можно вставлять родную
можно создать свою
2.в пространстве листа
3.можно подробнее? если про спец.деталь то свойства можно назначить см.3 скрин

[Alexij]

Сообщение от ~AlexX~ Это ошибка. Будет исправлена в SP2.

эта ошибка по-моему появилась только в AS2011 SP1, в AS2011 у меня всё нормально работало

[SSNSS]

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

[vla203782]

там шарик надо двигать в каркасном режиме виден -а дальше посмотри как с ручками в акаде можно работать

[SSNSS]

хм....точно что то было такое....щас посотрю....гм...нету шарика всё норм, благодарю

[vla203782]

беленький. узлы что ль разбиты?

[Brain Murder]

Это ручки ре6ер что6 двигать их