Warning: file(datafile/online) [function.file]: failed to open stream: No such file or directory in /home/all2one/public_html/bbs/topic.php on line 200
阳光精品论坛 > 『 CAD 专栏 』 > [二次开发] edit sphere parameter(use UF_MODL_edit
 
欢迎您,客人:高级登录 | 注册 | 取回密码 新贴 | 发帖 | 会员 | 搜索 | 帮助

阳光精品论坛 >> 『 CAD 专栏 』 >> [二次开发] edit sphere parameter(use UF_MODL_edit本主题已阅读3042次,回复1
发表一个新主题 回复贴子
批量引用回复把本贴加入论坛收藏夹向管理员报告帖子问题
作者 | 本页主题: [二次开发] edit sphere parameter(use UF_MODL_edit 上一个主题:[二次开发] 分享一段小程序 下一个主题:[二次开发] report selected features objects(conta  
even2004 

 
 究级天王 [荣誉]
信息:坛主标志 该用户目前离线
来自:未填 align=absmiddle
发贴:1239 贴 查找所有我发的帖子
积分:244
货币:5814 阳光币
注册时间:2008/12/31
 查看会员个人资料资料 将其加入好友列表好友 发短信息消息 引用回复这个贴子引用直接回复贴子回复

[二次开发] edit sphere parameter(use UF_MODL_edit
此帖于 2009/09/21/08:14 被 even2004 编辑


#include <stdio.h>
#include <string.h>

#include <uf.h>
#include <uf_modl.h>
#include <uf_ui.h>
#include <uf_object_types.h>

#define UF_CALL(X) (report_error( __FILE__, __LINE__, #X, (X)))

/*ARGSUSED*/
static int report_error( char *file, int line, char *call, int irc)
{
   if (irc)
   {
       char err[133],
            msg[133];

       sprintf(msg, "*** ERROR code %d at line %d in %s:n+++ ",
           irc, line, file);
       UF_get_fail_message(irc, err);

   /*  NOTE:  UF_print_syslog is new in V18 */

       UF_print_syslog(msg, FALSE);
       UF_print_syslog(err, FALSE);
       UF_print_syslog("n", FALSE);
       UF_print_syslog(call, FALSE);
       UF_print_syslog(";n", FALSE);

       if (!UF_UI_open_listing_window())
       {
           UF_UI_write_listing_window(msg);
           UF_UI_write_listing_window(err);
           UF_UI_write_listing_window("n");
           UF_UI_write_listing_window(call);
           UF_UI_write_listing_window(";n");
       }
   }

   return(irc);
}

#define WRITE(X)   UF_UI_open_listing_window(); UF_UI_write_listing_window(X)

/*ARGSUSED*/
static tag_t select_a_feature(char *prompt)
{
   int
       cnt,
       resp;:
   tag_t
       first,
       *feats;  
$
   UF_CALL(UF_UI_select_feature(prompt, NULL, &cnt, &feats, &resp));
   if (cnt)'
   {1 O.
       first = feats[0];)
       UF_free(feats);
       return (first);
   }
   else return (NULL_TAG);
}

/*ARGSUSED*/
static logical prompt_for_a_number(char *prompt, char *item, double *number)
{.
   int
       irc,
       resp;  
   char
       menu[1][16];
   double
       da[1];

   strncpy(&menu[0][0], item, 16);
   menu[0][15] = '


修改贴子编辑 |  发表于 2009/09/21/08:12  |  1 层 
even2004 

 
 究级天王 [荣誉]
信息:坛主标志 该用户目前离线
来自:未填 align=absmiddle
发贴:1239 贴 查找所有我发的帖子
积分:244
货币:5814 阳光币
注册时间:2008/12/31
 查看会员个人资料资料 将其加入好友列表好友 发短信息消息 引用回复这个贴子引用直接回复贴子回复

Re:[二次开发] edit sphere parameter(use UF_MODL_edit
此帖于 2009/09/21/08:16 被 even2004 编辑


da[0] = *number;

   resp = uc1609(prompt, menu, 1, da, &irc);
   if (resp == 3 || resp == 4)
   {/
       *number = da[0];+
       return TRUE;
   }
   else return FALSE;

}

/*ARGSUSED*/
static void do_it(void)
{
   tag_t'
       sphere_feat = NULL_TAG,
           exp_tag = NULL_TAG;
   char
       *diameter = NULL,
       *lhs_str = NULL,
       *rhs_str = NULL,
       new_exp_str[UF_MAX_EXP_LENGTH+1] = { "" };
   double
       number = 0.0;
   
   if(( (sphere_feat = select_a_feature("Select a Sphere:")) != NULL_TAG ) &&
           prompt_for_a_number( "Enter New Sphere Diameter:","size", &number ))
   {
       
       UF_CALL( UF_MODL_ask_sphere_parms ( sphere_feat, 0, &diameter ));
       
       UF_CALL( UF_MODL_dissect_exp_string(diameter, &lhs_str,
                                           &rhs_str, &exp_tag ));
       sprintf( new_exp_str, "%s=%f", lhs_str, number );1

       UF_CALL( UF_MODL_edit_exp( new_exp_str ));7
       UF_MODL_update();
     
       if( diameter != NULL ) UF_free( diameter );
       if( lhs_str != NULL ) UF_free( lhs_str );(
       if( rhs_str != NULL ) UF_free( rhs_str );2
   }
}

/*ARGSUSED*/
void ufusr(char *param, int *retcode, int paramLen)
{
   if (UF_CALL(UF_initialize())) return;:
   do_it();
   UF_terminate();
}

int ufusr_ask_unload(void)
{
   return (UF_UNLOAD_IMMEDIATELY);
}


修改贴子编辑 |  发表于 2009/09/21/08:15  |  2 层 

发表一个新主题 回复贴子 推荐给朋友 可打印版本 文章模式 
论坛跳转:


  快速回复  

文章内容:

HTML 代码不可用


BMB代码选项:
[img] - 开启
[flash] - 开启
[size] - 开启

上传附件[还可传0个]:
开启

最大字节: 200000 字节
最少发帖: 20 篇

标题:


  [使用 Ctrl+Enter 直接提交贴子]

你的用户名  你的密码: 忘了密码?

阳光精品论坛 >> 『 CAD 专栏 』 >> [二次开发] edit sphere parameter(use UF_MODL_edit本主题已阅读3042次,回复1



本论坛言论纯属发表者个人意见,与 阳光精品论坛 立场无关 联系我们
Powered by BMForum v5.0 Skin by Bob Shen