明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 571|回复: 1

[基础] 求帮助,编译成cad2016能用的程序

[复制链接]
发表于 2021-12-12 21:53 | 显示全部楼层 |阅读模式
1明经币
本帖最后由 yanshengjiang 于 2021-12-12 21:54 编辑

本人会点autolisp,  但对其他语言一窍不通
现在南方cass-3d里面得到一段二次开发的源码,不知道该怎么在cad里面应用。
这段源码是可以编译成arx文件,然后执行Get3DHeightFromPt命令吗?那么这个程序能不能做成一个功能函数呢,比方说我lisp里面可以调用这个函数,在我getpoint的地方添加一个高程点
如果是,请帮我编译成cad2016 64位版本可以用的,谢谢。


void Get3DHeightFromPt()
{根据坐标点获取z值
        ads_point pt = { 0 };
        int err = ads_getpoint(NULL, _T("
根据坐标获取高程:"), pt);
        if (err != RTNORM)
        {
                return;
        }
        resbuf *list = NULL;
        resbuf *result = NULL;
        list = acutBuildList(RTSTR, _T("cass3D_getHeight"), RTPOINT, pt, RTNONE);

        if (list != NULL)
        {
                err = acedInvoke(list, &result);
                ads_relrb(list);
                if (err != RTNORM)
                {//三维窗口未打开或者获取高程失败
                        return;
                }
        }
        double z = 0.0;//根据xy计算出来的模型上的高程
        if (result != NULL)
        {
                if (RTREAL == result->restype)
                {
                        z = result->resval.rreal;
                }
                ads_relrb(result);
        }
}


 楼主| 发表于 2021-12-12 21:55 | 显示全部楼层
求帮助,论坛好冷清,给我点热情吧。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-4-28 07:11 , Processed in 0.347154 second(s), 20 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表