[LISP&ARX]写一个给LISP取点表用的ARX

BDYCAD

2. 编程:BDYCAD     2008-10-17
3. 加载BDYStretchPoints.ARX,程序,内置getGripPointlist涵数
4. 支持版本 Auto CAD 2004 ~2006
5. 用法示例:
6. (if(setq Ename(car(entsel)))
7.   (progn
8.      (setq Pts(getGripPointlist Ename)radius 0.1)
9.      (foreach pt pts
10.        (entmake (append '((0 . "CIRCLE") (100 . "AcDbEntity")(100 . "AcDbCircle") (8 . "0"))
11.      (list (cons 40  radius)(cons 10 pt))))
12.        (setq radius(+ radius 0.1))
13.      )
14.     )
15.   )

编程:BDYCAD     2008-10-17 加载BDYStretchPoints.ARX,程序,内置getGripPointlist涵数 支持版本 Auto CAD 2004 ~2006 用法示例: (if(setq Ename(car(entsel)))   (progn      (setq Pts(getGripPointlist Ename)radius 0.1)      (foreach pt pts        (entmake (append '((0 . "CIRCLE") (100 . "AcDbEntity")(100 . "AcDbCircle") (8 . "0"))      (list (cons 40  radius)(cons 10 pt))))        (setq radius(+ radius 0.1))      )     )   )

BDYCAD

ARX 部份的代码如下:

1. // ----- ads_getgrippointlist command
2. static int ads_getgrippointlist(void)
3. {
4.   //----- Remove the following line if you do not expect any argument for this ADS function
5.   struct resbuf *pArgs =acedGetArgs ();
6.   struct resbuf *rbStart=acutBuildList(RTLB,RTNONE),*rb=rbStart;
7.   ads_point pt1;
8.   AcGePoint3d Spt;
9.   // TODO: add your code here
10.   long sslen;
11.   ads_real len,Allen;
12.   ads_name ss,Ename;
13.   AcDbObjectId ObjID;
14.   AcDbEntity *pEnt;
15.   AcGePoint3dArray Ptlist;
16.   AcDbIntArray osnapModes,geomIds;
17.   Allen=0;
18.   if (pArgs->restype==RTENAME){//pArgs->restype!=RTENAME||
19.    ads_name_set(pArgs->resval.rlname,Ename);
20.    acdbGetObjectId(ObjID,Ename);
21.    if(acdbOpenObject(pEnt, ObjID, AcDb::kForRead)!=Acad::eOk)return FALSE;
22.    if(pEnt->isKindOf(AcDbCurve::desc())){
23.     AcDbCurve *cur=(AcDbCurve*)pEnt;//类型转换
24.     //cur->getStretchPoints(Ptlist);
25.     cur->getGripPoints(Ptlist,osnapModes,geomIds);
26.    }
27.    pEnt->close();
28.    int len=Ptlist.length();
29.    for (int i=0;len>i; i++) {
30.     Spt=Ptlist.at(i);
31.     ads_point_set(asDblArray(Spt),pt1);
32.     rb->rbnext=acutBuildList(RT3DPOINT,pt1/*asDblArray(pts[i])*/,RTNONE);
33.     rb = rb->rbnext;
34.    }
35.    rb->rbnext = acutBuildList(RTLE,RTNONE);
36.    acedRetList(rbStart);
37.   }
38.   // TODO: Replace the following line by your returned value if any
39.   return (RSRSLT) ;
40. }

复制代码

wwwliuyu

支持楼主,要是能写个可以接受关键字的SSGET或写个支持动态拖拉选集的GETPOINT就更好了.

samshs

下了 但加载不了该程序!

842986480

samshs 发表于 2008-11-22 14:06
下了 但加载不了该程序!

应该是版本不对吧，不知楼主arx的版本是....