Бюро добрых услуг.

Модераторы: Лабутин Сергей Евгеньевич, Алек(андр

Бюро добрых услуг.

Сообщение Рыжий Пёс » 06 июн 2012 14:48

Предлагаю здесь обмениваться всякими полезными вещами, как-то: макросами, моделями комплектующих, а так-же обновлениями, которыми ГеоС не спешит делиться.
То есть, всякие "сервис паки" хорошо бы собрать в одном месте. А то на www.k3-mebel.ru/ до сих пор лежат старые руководства по 6.4 без мебельных команд.
Очень хотелось бы увидеть фурнитуру Blum, а именно Aventos.
Могу выложить модели ручек и Tandem с разметкой под отверстия.
Аватара пользователя
Рыжий Пёс
 
Сообщения: 338
Зарегистрирован: 06 фев 2010 00:11

Re: Бюро добрых услуг.

Сообщение Rinat74 » 07 июн 2012 19:29

Здесь ответил человеку на подобную просьбу. Одно "но"... Модели наверняка будут тяжеловаты для К3, надо будет через Deep Exploration пробовать упростить их. Либо обрисовать экспортированные (например, через dxf) модели штатными средствами Геометрического редактора, а потом экспорт удалить.
Rinat74
 
Сообщения: 42
Зарегистрирован: 16 сен 2011 09:29

Re: Бюро добрых услуг.

Сообщение bel62 » 07 июн 2012 19:37

Комплектующие Aristo.
Может кому понадобяться.
Вложения
Комплектующие Aristo.rar
(143.37 Кб) Скачиваний: 445
bel62
 
Сообщения: 160
Зарегистрирован: 29 май 2012 12:12

Re: Бюро добрых услуг.

Сообщение Ручей » 19 июн 2012 15:44

Решил выложить макрос формирования файла для К3 Раскроя.
Т.к. К3 раскрой всегда вычитает толщину кромки из панели, то это не всегда удобно.
Данный макрос предлагает вычитать кромку или нет.
Так же, некоторые фирмы по раскрою ДСП для населения предлагают кромление, но у них на любую кромку постоянная прифуговка, например 1мм.
В данном макросе можно выставить размер прифуговки.
Вложения
Raskroy.7z
(756 байт) Скачиваний: 333
Ручей
 
Сообщения: 878
Зарегистрирован: 15 июл 2011 19:55

Re: Бюро добрых услуг.

Сообщение Ручей » 09 июл 2012 12:33

У кого-нибудь есть корзины МДМ: бутылочницы, сушки...?
Ручей
 
Сообщения: 878
Зарегистрирован: 15 июл 2011 19:55

Re: Бюро добрых услуг.

Сообщение pixma » 10 окт 2012 21:55

Выкладываю корзины Komandor. Так же используемый материал.
Вложения
Корзины_2.rar
(189.26 Кб) Скачиваний: 384
Корзины_1.rar
(182.04 Кб) Скачиваний: 381
pixma
 
Сообщения: 151
Зарегистрирован: 19 дек 2010 14:20

Re: Бюро добрых услуг.

Сообщение pixma » 10 окт 2012 22:02

Есть ешё лепнина.Мож кому и пригодится.
Вложения
лепнина2.rar
(167.31 Кб) Скачиваний: 355
лепнина1.rar
(155.84 Кб) Скачиваний: 400
pixma
 
Сообщения: 151
Зарегистрирован: 19 дек 2010 14:20

Re: Бюро добрых услуг.

Сообщение pixma » 10 окт 2012 22:06

Как образмерить вставки в дверях-купе, чтобы видеть их физический размер (для системы дверей К3-56).

Находим в макросе oneflap строку "Macro ProtoPath+"MakePan.mac" x y z dz dx 14 ;"
и после нее вставляем кусок кода
Код: Выделить всё
objold=sysvar(60);

objident last 1 obj;
=objgab3(obj,gab);

LDim 3DDim gab[1],gab[5],gab[3] gab[1],gab[5],gab[6] parallel gab[4]-100,gab[5],gab[3];
objident last 1 raz;

attrobj attach "NoHide" done raz 1 ;

objnew=sysvar(60);

;add obj last objnew-objold done;

После чего на всех вставках будет отображаться их размер (высота). Можно развить идею и образмерить любую вашу конструкцию. Принцип - читаем габариты объекта и строим размер с присвоением атрибута "не скрывать"
P.S. Замечание - голове макроса нужно объявить массив для записи в него габаритов, т.е. вставить строку
defarr gab[6];
Во вложении архив с макросом. Для себя делал чтобы видно было как высоту, так и ширину вставок в двери.Выкладываю на суд.
Вложения
oneflap.rar
(2.45 Кб) Скачиваний: 387
Последний раз редактировалось pixma 10 окт 2012 22:20, всего редактировалось 1 раз.
pixma
 
Сообщения: 151
Зарегистрирован: 19 дек 2010 14:20

Re: Бюро добрых услуг.

Сообщение pixma » 10 окт 2012 22:15

В архиве макро. Разархивируем, запускаем. В диалоговом окне устанавливаем параметры. получаем поверхность и два сплайна.
Вложения
10.jpg
Spiralsurf.rar
(747 байт) Скачиваний: 303
pixma
 
Сообщения: 151
Зарегистрирован: 19 дек 2010 14:20

Re: Бюро добрых услуг.

Сообщение bel62 » 12 окт 2012 16:08

pixma писал(а):Как образмерить вставки в дверях-купе, чтобы видеть их физический размер (для системы дверей К3-56).

Находим в макросе oneflap строку "Macro ProtoPath+"MakePan.mac" x y z dz dx 14 ;"
и после нее вставляем кусок кода
Код: Выделить всё
objold=sysvar(60);

objident last 1 obj;
=objgab3(obj,gab);

LDim 3DDim gab[1],gab[5],gab[3] gab[1],gab[5],gab[6] parallel gab[4]-100,gab[5],gab[3];
objident last 1 raz;

attrobj attach "NoHide" done raz 1 ;


objnew=sysvar(60);

;add obj last objnew-objold done;

После чего на всех вставках будет отображаться их размер (высота). Можно развить идею и образмерить любую вашу конструкцию. Принцип - читаем габариты объекта и строим размер с присвоением атрибута "не скрывать"
P.S. Замечание - голове макроса нужно объявить массив для записи в него габаритов, т.е. вставить строку
defarr gab[6];
Во вложении архив с макросом. Для себя делал чтобы видно было как высоту, так и ширину вставок в двери.Выкладываю на суд.

У меня ваша версия макро некорректно рисует уплотнительные профили.
После редактирования получился вариант как во вложении. Рисует правильно.
Вложения
oneflap.rar
(2.47 Кб) Скачиваний: 313
bel62
 
Сообщения: 160
Зарегистрирован: 29 май 2012 12:12

Re: Бюро добрых услуг.

Сообщение Алек(андр » 19 окт 2012 08:51

St_ellips.mac
Код: Выделить всё
// Построение простого эллипса
//
// Xc=1400 // X координата центра эллипса
// Yc=400  // Y координата центра эллипса
// Xpos=1330 // полуось эллипса в X
// Ypos=385  // полуось эллипса в Y

getpar Xc Yc Xpos Ypos;


GradSeg=10   //  градусов в сегменте (10 соответствующего 36 * 10)

Xp=Xc
Yp=Yc-Ypos
i=0
lab1:
if i<(360/GradSeg)
{
   i=i+1
   X=Xc-Xpos*SIN(radian(i*GradSeg))
   Y=Yc-Ypos*COS(radian(i*GradSeg)) 
   s1=Pow(SIN(radian((i-0.5)*GradSeg)),2)

   C1=Pow(COS(radian((i-0.5)*GradSeg)),2)

   R=Pow(Xpos,2)*Pow(Ypos,2)*Pow((S1/Pow(Xpos,2))+(C1/Pow(Ypos,2)),1.5)
   gosub sArc;
   goto lab1;
}
path select last i done last 1 done;
exit;
//----------------------------------
//----------------------------------
sArc:
  arc Xp Yp 0 X Y 0 negative Radius R ;

  Xp=X
  Yp=Y
return;


NSt_ellips.mac
Код: Выделить всё
// Построение несимметричного эллипса
//
// Xc=1400 // X координата центра эллипса
// Yc=400  // Y координата центра эллипса
// Xposl=600 // полуось эллипса в X слева
// YposD=385  // полуось эллипса в Y снизу
// XposR=1330 // полуось эллипса в X справа
// YposU=385  // полуось эллипса в Y сверху

getpar Xc Yc XposL YposD XposR YposU;


GradSeg=10   //  градусов в сегменте (10 соответствующего 36 * 10) Желательно не менять

Xp=Xc
Yp=Yc-YposD
i=0
lab1:
if i<(360/GradSeg)
{
   i=i+1
   Xpos=iif(i<(360/GradSeg)/2,XposL,XposR)
   Ypos=iif(i<(360/GradSeg)/4||i>3*(360/GradSeg)/4,YposD,YposU)
   X=Xc-Xpos*SIN(radian(i*GradSeg))
   Y=Yc-Ypos*COS(radian(i*GradSeg)) 
   S1=Pow(SIN(radian((i-0.5)*GradSeg)),2)
   C1=Pow(COS(radian((i-0.5)*GradSeg)),2)
   R=Pow(Xpos,2)*Pow(Ypos,2)*Pow((S1/Pow(Xpos,2))+(C1/Pow(Ypos,2)),1.5)
   gosub sArc;
   goto lab1;
}
path select last i done last 1 done;
exit;
//----------------------------------
//----------------------------------
sArc:
arc Xp Yp 0 X Y 0 negative Radius R ;
//putmsg("-------------------------");
//putmsg(R);
//putmsg(Xp);putmsg(Yp);putmsg(X);putmsg(Y);
Xp=X
Yp=Y
return;

Вложения
St_ellips.mac
(911 байт) Скачиваний: 350
NSt_ellips.mac
(1.13 Кб) Скачиваний: 322
Аватара пользователя
Алек(андр
 
Сообщения: 1165
Зарегистрирован: 17 ноя 2008 10:16
Откуда: Московская область

Re: Бюро добрых услуг.

Сообщение Ручей » 30 окт 2012 21:22

Кое какие опоры. Делал в компасе. При передаче в К3 кое что теряется.
Вложения
Кухонные.7z
(168.51 Кб) Скачиваний: 419
Ручей
 
Сообщения: 878
Зарегистрирован: 15 июл 2011 19:55

adbRecCount

Сообщение Рыжий Пёс » 16 ноя 2012 11:49

Внимание, adbRecCount делает текущей первую запись в наборе! В руководстве про это ни слова, а я ломал голову, почему запрос работает неправильно.
Аватара пользователя
Рыжий Пёс
 
Сообщения: 338
Зарегистрирован: 06 фев 2010 00:11

Re: Бюро добрых услуг.

Сообщение Алек(андр » 16 ноя 2012 16:26

А какая должна быть текущей? если не первая.
Аватара пользователя
Алек(андр
 
Сообщения: 1165
Зарегистрирован: 17 ноя 2008 10:16
Откуда: Московская область

Re: Бюро добрых услуг.

Сообщение Рыжий Пёс » 19 ноя 2012 17:10

Алек(андр писал(а):А какая должна быть текущей? если не первая.

Та, к которой я перешёл. А adbRecCount снова сбрасывает курсор на первую.
Аватара пользователя
Рыжий Пёс
 
Сообщения: 338
Зарегистрирован: 06 фев 2010 00:11

След.

Вернуться в К3-Мебель. Программа для производства и продажи мебели.

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

cron