画一条简单的线...

MickD · 发表于 2005-11-16 00:08:40

这是一个在模型或纸张空间上绘制简单线条的函数。
代码没有任何描述或注释。

        static int ads_myline(void)
        {
                struct resbuf *pArgs =acedGetArgs () ;
        if( !pArgs || 
                pArgs->restype != RTPOINT || 
                !pArgs->rbnext || 
                pArgs->rbnext->restype != RTPOINT || 
                pArgs->rbnext->rbnext ) 
        {
                ads_point& pnt1 = pArgs->resval.rpoint; 
                AcGePoint3d pntStart( pnt1[X], pnt1[Y], pnt1[Z] ); 
                ads_point& pnt2 = pArgs->rbnext->resval.rpoint; 
                AcGePoint3d pntEnd( pnt2[X], pnt2[Y], pnt2[Z] ); 
        }

用法：（myline（getpoint"\nFrom："）（getpoint"\nTo："））

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Kerry · 发表于 2005-11-16 00:14:49

我发布了myline函数，因为关于如何在书本或网络上（至少通过我的研究）上与objectARX绘制线条的所有函数或示例都不完整，并且无法选择点或在纸或模型空间上绘制线条。

Kerry · 发表于 2005-11-16 00:18:45

那么，你是否在lisp例程中使用它来调用“myline”，其中一些来自lisp的用户输入调用ads_myline传入arg？
我从来没有看过广告或与lisp链接。你仍然需要你的入口点等，是吗？

MickD · 发表于 2005-11-16 00:23:19

我正在使用ARXwizard创建我的解决方案，默认情况下，如果您创建一个函数，它会在此处放置一个ads_您的函数名。
使用ARXwizard，可以生成基本代码或框架....和正常的入口有点不同。

deegeecees · 发表于 2005-11-16 00:26:19

嗨，路易斯，只是一个学术问题..
我注意到你用ads_
作为你的许多函数的前缀，你使用这个前缀有什么特殊的原因吗...我通常将它与Acad前缀联系起来，以便将最初的Lisp例程翻译成c语言

Swift · 发表于 2005-11-16 00:27:51

copy

//-----------------------------------------------------------------------------
IMPLEMENT_ARX_ENTRYPOINT(CLSP2ARXApp)
ACED_ADSSYMBOL_ENTRY_AUTO(CLSP2ARXApp, myline, false)