ug/kf三個範例(具原始碼)--1.線上滾動的球

原來只要將*.jpg檔傳上系統即會自動貼圖,
另我自己試下載第一個程式範例,覺的檔案怪怪的所以我改檔名再試傳一次,若大家有問題亦請告之
第一個程式範例

第三個程式試下載亦有問題,應該是檔名的問題
所以我再傳一次

回八樓的 zhjb:

##########################################
你可以做一个child(ug_component)
在ug_component 中有一个attribute是file_name,你可以根据不同的参数值，设定不同的参数名称就可以了,下面是一个例子
(child) mycomp
{
    class; ug_component;
    file_name; if(  a: < 10) then "1.prt" else "2.prt";
}

我没有试过，不知道可不可以，你试一下吧
谢谢
#########################################

程式如下:

#! NX/KF 3.0

DefClass: AddComponent(ug_base_part);

(Number Parameter Modifiable)Dia:1;
(Point Parameter Modifiable)Ori: Point(0,0,0);
(Vector Parameter Modifiable)Define_X_Axis: Vector(1,0,0);
(Vector Parameter Modifiable)Define_Y_Axis: Vector(0,1,0);

(Child) AddComp:
{
    class, ug_component;
    file_name, if(Dia: < 3) then "smallaxle.prt" else "bigaxle.prt";
    Origin, Ori:;
    X_Axis, Define_X_Axis:;
    Y_Axis, Define_Y_Axis:;
};


對話框及檔案如附加檔

搂主的这个例子不错，建议把它独立出来，发一个帖子，这样会有更多的人看得

zhjb113 :
謝謝您的建議,您若還需了解ug/kf可實現的功能,或想要甚麼樣的範例,我盡可能提供.
現再給一個應用ug/kf讀取檔案的程式範例,及對話框與相關檔案
#! NX/KF 3.0

DefClass: KF_read_simple_data (ug_base_part);

(String Parameter Modifiable) Data: "";

(List) PtsData: @
    {
    $f << OpenFile(Data:, Read);
    $d << ReadSimpleDataFile($f);
    CloseFile($f);
    $d;
    };

(List) Pts: Loop
    {
    For $i in PtsData:;
    Collect {Point(First($i), Second($i), Third($i))};
    };

(Child)  SPL:
    {
    Class, ug_spline_thru;
    Degree, 3;
    Periodic?, TRUE;
    Points, Pts:;
};

矩形塊導角程式

#! UGNX/KF 2.0          
DefClass: Ex_askBlockEdges(ug_base_part);       

(Child) Block01:
  { Class, ug_block; };

(Child) Body01: {
   Class; ug_body;
   Feature;        {Block01:};
   };
(List) E: ug_body_askEdgeClosestToPoint(Body01:, Point(0.5,0.5,1));

(Child) Blends:
{
      Class, ug_edge_blend;
      Edge_Blend_References, E:;
      Radius, 0.1;
      };

呵呵，我对KF很熟，只是想鼓励你一下而已。

Revolved範例

#! UGNX/KF 2.0          
DefClass: Ex_askRevolvedFace(ug_base_part);       

(Integer Parameter) ulines: 10;
(Integer Parameter) vlines: 20;
(Boolean Parameter) shaded: True;
(Point Parameter) reference_point: point(0,0,0);
(Child) spline_thru: {
  Class, ug_spline_thru;
  };
(Child) revolved: {
  Class, ug_revolved;
  Profile, {spline_thru:};
  Start_Limit, 90;
  End_Limit, 270;
  Thru_point, point(0,-1,0);
  Direction, vector(1,0,0);
};
(List) face: ug_feature_askFaces(revolved;
(Child) face01: {
  Class; ug_face;
  References, {first(face};
  U_Grid_Count, ulines:;
  V_Grid_Count, vlines:;
  Shaded, shaded:;
   };

座標系設定範例,如附加檔或如下

#! UGNX/KF 2.0
DefClass: Ex_FrameExample01(ug_base_part);

(Vector) X: Vector(Cos(45), Sin(45), 0);
(Vector) Y: Perpendicular(X;
(Frame Parameter Modifiable) LocalF: FrameXY(Point(1,1,0), X:, Y;

(Child) Blk01: {
  Class, ug_block;
  ReferenceFrame, LocalF:;
  Origin, Point(0.5,0.5,0);
};


(Child) Blk02: {
  Class, ug_block;
  ReferenceFrame, LocalF:;
  Length, 2; Width, 2; Height, 0.5;
};

我在ICAX給大家一些範例程式,雖並不是多偉大的程式,但應有足夠的誠意,
不過沒人理,我也就玩不下去! 最後給大家算是有點價值的東西,就算是此帖UG/KF技術的告別禮吧!