[igo]

Друзья, помогите разобраться с этой проблемой...
Задумка такая... есть длина пролета. Нужно в нее всунуть 1 или2 ребра. до метра 1 ребро....больше 2.
Длина H1
Кол-во ребер - G
Сделал так не получилось. Прорисовываются 2 ребра.
=if(H1 < 1000; G=1); G=2))
Если эта хрень правильная может проблема есть в самом скрипте... что то препятствует.?
Как бить друзья !!!

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

Я уже давно не занимаюсь СПДС, поэтому вариант может и не сработать:

Код:

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

=if(H1<1000;G=1;G=2)

[LynxM]

Хорошо бы еще эскиз для понимания и часть скрипта.

[igo]

Код:

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

SVersion = 2;
ObjectDescription = "1";

function ActHeader {
	NPart=1;
	Public( t, "Т. ребра",
	Lt, "Длина загиба",
	c, "Привязка 1",
	bb, "Ось +5мм.",
	s, "Толщина стенки",
	b, "Ширина уголка",
	H, "Осевая ширина",
	L, "Осевая длина",
	cc, "Шаг ребер",
	f, "Ширина планки",
	H2, "H2",
	G, "Кол-во листов",
	Text1, "Марка по КМ",
	Text2, "Марка",
	Text, "Высота текста",
	DOD3, "DOD3",
	DOD4, "DOD4",
	DOD1, "DOD1",
	DOD2, "DOD2",
	jjj1, "jjj1",
	duf2, "duf2",
	duf3, "duf3",
	dufS, "dufS",
	L2, "Длина планки",
	H22, "H22",
	ccc, "Правая привязка",
	Kos, "Кол. ребер 2",
	H1, "H1",
	L1, "L1",
	duf, "duf",
	duf4, "duf4" );
	Protected( seted, check1, check2 );
	Changeable( t, Lt, c, bb, s, b, H, L, cc, f, H2, G, Text1, Text2, Text, DOD3, DOD4, DOD1, DOD2, jjj1, duf2, duf3, dufS, L2, H22, ccc, Kos, H1, L1, duf, duf4 );
	OnDlgBeforeSelectParam = 1;
	ShowWhenSelPnt = 1;
	ContourOnLine = 0;
};

function OnInitialization {
	if(seted == UnknownValue) {
		seted=1;
		rZOrder=100;
		check1 = 1;
		check2 = 0;
		t = 6;
		Lt = 30;
		c = 40;
		bb = 20;
		s = 5;
		b = 50;
		H = 1000;
		L = 1500;
		cc = 40;
		f = 60;
		H2 = 300;
		G = 2;
		Text1 = "РН1";
		Text2 = "1";
		Text = 70;
		DOD3 = 50;
		DOD4 = 50;
		DOD1 = 50;
		DOD2 = 50;
		jjj1 = 1;
		duf2 = 0;
		duf3 = 0;
		dufS = 1;
		L2 = 10;
		H22 = 1;
		ccc = 1;
		Kos = 1;
		H1 = 1;
		L1 = 1;
		duf = 1;
		duf4 = 1;
	};
};

function SetGripPoint {
	NGrip = 2;
	pntGrip0 = pntOrigin;
	pntGrip1 = pntOrigin+vecDirection*L+vecPlane*H;
};
function OnMoveGripPoint {
WP0x=Plane(pntGrip0,vecDirection);
WP0y=Plane(pntGrip0,vecPlane);

WP1x=Plane(pntGrip1,vecDirection);
WP1y=Plane(pntGrip1,vecPlane);
if(NMovingGrip==0) {
pntOrigin=pntGrip0;
L=-(WP1x-pntGrip0);
H=-(WP1y-pntGrip0);
};
if(NMovingGrip == 1) {

L=WP0x-pntGrip1;
H=WP0y-pntGrip1;
};
}
function OnMakeParameters {
	strTheName = "PH2";
	strTheType = "5 Связь";
	strTheSubType = "5 Связь";
	L2 = Kos=int((L1-c-bb*2)/cc)*cc+25;
	H22 = H1/(G+1);
	ccc = (L1-bb*2)-(int((L1-c-bb*2)/cc)*cc+c-duf2);
	if(ccc < 0) ccc=0;
	Kos = Kos=int((L1-c-bb*2)/cc);
	H1 = H-DOD1-DOD4;
	L1 = L1=L-DOD2-DOD3;
	duf = duf=Kos-duf3;
	duf4 = duf4=Kos+1-duf3;
	if(check1 == 1) { jjj1=1; } else { jjj1=0; }
	if(check2 == 1) { duf2=40; duf3=1; } else { duf2=0; duf3=0; }
};

function OnDialog {
	//UniDialog( VFLD, t,"Т. ребра", Lt,"Длина загиба", c,"Привязка 1", bb,"Ось +5мм.", s,"Толщина стенки", b,"Ширина уголка", H,"Осевая ширина", L,"Осевая длина", cc,"Шаг ребер", f,"Ширина планки", H2,"H2", G,"Кол-во листов", Text1,"Марка по КМ", Text2,"Марка", Text,"Высота текста", DOD3,"DOD3", DOD4,"DOD4", DOD1,"DOD1", DOD2,"DOD2", jjj1,"jjj1", duf2,"duf2", duf3,"duf3", dufS,"dufS", L2,"Длина планки", H22,"H22", ccc,"Правая привязка", Kos,"Кол. ребер 2", H1,"H1", L1,"L1", duf,"duf", duf4,"duf4", BFLD, check1, "Switch1", check2, "dufon", TVIDS,lViewType,"All",VIEW,"Vids");
ShowForm,("Form1")
};

function OnChangeParameters {
	t = new.t;
	Lt = new.Lt;
	c = new.c;
	bb = new.bb;
	s = new.s;
	b = new.b;
	H = new.H;
	L = new.L;
	cc = new.cc;
	f = new.f;
	H2 = new.H2;
	G = new.G;
	Text1 = new.Text1;
	Text2 = new.Text2;
	Text = new.Text;
	DOD3 = new.DOD3;
	DOD4 = new.DOD4;
	DOD1 = new.DOD1;
	DOD2 = new.DOD2;
	jjj1 = new.jjj1;
	duf2 = new.duf2;
	duf3 = new.duf3;
	dufS = new.dufS;
	L2 = new.L2;
	H22 = new.H22;
	ccc = new.ccc;
	Kos = new.Kos;
	H1 = new.H1;
	L1 = new.L1;
	duf = new.duf;
	duf4 = new.duf4;
	Handled = OBJ_HANDLED;
};

function OnSelectParam {
	H = rYcoord;
	L = rXcoord;
};

CutAcElements=0

function BeforeConnect {
	ResetLastConstraint();
}

//strPartName = "";

[LynxM]

А можно еще эскиз (или скрипт "Исполнения")?
Можно сделать через условия отрисовки, но без эскиза непонятно - подойдет этот способ, или нет.

[igo]

эскиз сложноват...

[LynxM]

Параметр "H22" - привязка первого ребра, а втрое будет уже привязываться к первому? Или они равномерно должны располагаться в зависимости от значения параметра "Н1"?

P.S. Думаю, что копать надо в сторону операции "Массив объектов", но все зависит от ответа на мой вопрос (расположение и привязка ребер).

Сразу не заметил, можно попробовать сделать как написал Алексей только:

Код:

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

iff(H1<1000, G=1, G=2)

В СПДС данная логическая операция пишется с 2 "ff" и между аргументами ",".

Сделал пример с массивом. Все работает:

Код:

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

 iff(h<700, k=1, k=2)

Вот видео-доказательство - http://youtu.be/JdA4lPZ8-Ys

[igo]

Ойойой... всем спасибо... буду пробовать )

LynxM ! можно поинтересоваться... у вас есть наработки по базам СПДС объектов?

[LynxM]

Сообщение от igo LynxM ! можно поинтересоваться... у вас есть наработки по базам СПДС объектов?

Я работаю с ограждающими конструкциями (фасадные системы, кровли и т.п.) - поэтому, наработки есть только в этой сфере.
Как пример, библиотека тонкостенных профилей: http://dwg.ru/dnl/12184

igo, а какие библиотеки Вас интересуют? Я пока учусь создавать параметрические объекты, поэтому было бы интересно пообщаться с единомышленниками.

[igo]

Я разрабатываю КМД. Интересует разработка объектов в целом. Пока только учусь. Есть небольшая база (http://dwg.ru/dnl/11524)... развиваю. Было бы неплохо пообщаться... в программировании я слабак )

[LynxM]

Сообщение от igo Пока только учусь

Сообщение от igo в программировании я слабак )

Аналогично

Сообщение от igo Есть небольшая база (http://dwg.ru/dnl/11524)... развиваю

Качал библиотеку раньше - крутая!

Сообщение от igo Было бы неплохо пообщаться...

После выходных напишу. На выходных не будет возможности пообщаться, поэтому в понедельник напишу через ЛС
Offtop: Хороших выходных

[swell{d}]

http://forum.dwg.ru/showthread.php?t=94398