在任何需要选择的情况下都可以用pr或last来选择

xinxirong

在任何需要选择的情况下都可以用pr或last来选择，但我做的ads命令，在普通的命令比如copy下输入'p1，可以获得保存的选择集，但在lisp命令中比如ssget却不能获得选择集。有办法解决吗？

        static int ads_p1(void)
        {
                long len;
                int ret=acedSSLength(DocVars.docData().myss1,&len);
                if(ret!=RTNORM)                return RTERROR;
                if (len==0)        return RTERROR;

                ret=acedRetName(DocVars.docData().myss1,RTPICKS);
                if (ret==RTNORM)
                {
                        acutPrintf(_T("<P1 Selection set>"));
                }
                return (RSRSLT) ;
        }

ACED_ADSCOMMAND_ENTRY_AUTO(CBYApp, p1, true)

比如这个Lisp命令：
(setq b (ssget))回车后，输入'P1，会出现：
cannot reenter Lisp(无法重复进入 LISP。)
的提示．
在VB下编程可以这样做，但只能针对这个应用，不能对ssget有效：
Dim ed As Editor =     Application.DocumentManager.MdiActiveDocument.Editor
Dim Opts As New PromptSelectionOptions()
Opts.Keywords.Add("myFence")
Opts.Keywords.Add("myWindow")
Opts.Keywords.Add("myWpoly")
Opts.Keywords.Add("myLastSel"
Opts.Keywords.Add("myPrevSel")
AddHandler Opts.KeywordInput, AddressOf handle_KeywordInput

.....

If e.Input.CompareTo("myPrevSel") = 0 Then　　Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor　　Dim res As PromptSelectionResult = ed.SelectPrevious()　　If res.Status = PromptStatus.Error Then　　　　Return　　End If　　Dim SS As　Autodesk.AutoCAD.EditorInput.SelectionSet　= res.Value　　Dim idarray As ObjectId() = SS.GetObjectIds()　　e.AddObjects(idarray)End If

xinxirong

居然delete命令没有调用acedSSGet函数，但它却拥有acedSSGet一样的功能？

1. 命令: d ERASE
   
2. 选择对象: ssa
   
3. *无效选择*
   
4. 需要点或窗口(W)/上一个(L)/窗交(C)/框(BOX)/全部(ALL)/栏选(F)/圈围(WP)/圈交(CP)/编组(G)/添加(A)/删除(R)/多个(M
   
5. )/前一个(P)/放弃(U)/自动(AU)/单个(SI)/子对象/对象
   
6. 选择对象: ssa
   
7. *无效选择*
   
8. 需要点或窗口(W)/上一个(L)/窗交(C)/框(BOX)/全部(ALL)/栏选(F)/圈围(WP)/圈交(CP)/编组(G)/添加(A)/删除(R)/多个(M
   
9. )/前一个(P)/放弃(U)/自动(AU)/单个(SI)/子对象/对象
   
10. 选择对象: *取消*

复制代码

本来P1命令是可以透明调用的，但对于lisp却不能重复进入，所以才想到hook acedSSGet，现在只有两个命令同时在用，ssa-ssd是lisp函数中用，p1-p4是cad命令中用

ivde

定义为c:p1 和透明命令 p1