求LISP下调整对象前置与后置的函数

scry_wxj

求LISP下调整对象前置与后置的函数，谢谢。

LLXXZZ

(defun c:ff    (/ b) (setq b(ssget))(command "draworder" b "" "f" )(prin1))
(defun c:bb    (/ b) (setq b(ssget))(command "draworder" b "" "b" )(prin1))

scry_wxj

回复 LLXXZZ 的帖子

谢谢，这个我知道，我不想调入命令的方式处理，速度太慢。不过还得谢谢你。

if

vla-MoveToTop
vla-MoveToBottom

Gu_xl

回复 scry_wxj 的帖子

1. ;;;移到最上显示 By Gu_xl  示例： (MovetoTop (ssget))
   
2. (defun MovetoTop (ss / ObjLst Sortents dict i)
   
3.   (cond        ((= 'pickset (type ss))
   
4.          (repeat (setq i (sslength ss))
   
5.            (setq ObjLst        (cons (vlax-ename->vla-object
   
6.                                 (ssname ss (setq i (1- i)))
   
7.                               ) ;_ vlax-ename->vla-object
   
8.                               ObjLst
   
9.                         ) ;_ cons
   
10.            ) ;_ setq
    
11.          ) ;_ repeat
    
12.         )
    
13.         ((= 'ename (type ss))
    
14.          (setq ObjLst (list (vlax-ename->vla-object ss)))
    
15.         )
    
16.         ((= 'vla-object (type ss)) (setq ObjLst (list ss)))
    
17.   ) ;_ cond
    
18.   (if
    
19.     (cond
    
20.       ((not
    
21.          (VL-CATCH-ALL-ERROR-P
    
22.            (setq Sortents
    
23.                   (VL-CATCH-ALL-APPLY
    
24.                     'vla-item
    
25.                     (list
    
26.                       (setq dict
    
27.                              (vla-GetExtensionDictionary
    
28.                                (vla-ObjectIDtoObject
    
29.                                  (vla-get-ActiveDocument (vlax-get-acad-object))
    
30.                                  (vla-get-OwnerID (car ObjLst))
    
31.                                ) ;_ vla-ObjectIDtoObject
    
32.                              ) ;_ vla-GetExtensionDictionary
    
33.                       ) ;_ setq
    
34.                       "ACAD_SORTENTS"
    
35.                     ) ;_ list
    
36.                   ) ;_ GXL-CATCHAPPLY
    
37.            ) ;_ setq
    
38.          ) ;_ VL-CATCH-ALL-ERROR-P
    
39.        ) ;_ not
    
40.       )
    
41.       ((not
    
42.          (VL-CATCH-ALL-ERROR-P
    
43.            (setq Sortents
    
44.                   (VL-CATCH-ALL-APPLY
    
45.                     'vla-AddObject
    
46.                     (list dict "ACAD_SORTENTS" "AcDbSortentsTable")
    
47.                   ) ;_ GXL-CATCHAPPLY
    
48.            ) ;_ setq
    
49.          ) ;_ VL-CATCH-ALL-ERROR-P
    
50.        ) ;_ not
    
51.       )
    
52.     ) ;_ cond
    
53.      (not (vla-MovetoTop
    
54.             Sortents
    
55.             (vlax-make-variant
    
56.               (vlax-safearray-fill
    
57.                 (vlax-make-safearray
    
58.                   vlax-vbobject
    
59.                   (cons 0 (1- (length ObjLst)))
    
60.                 ) ;_ vlax-make-safearray
    
61.                 ObjLst
    
62.               ) ;_ vlax-safearray-fill
    
63.             ) ;_ vlax-make-variant
    
64.           ) ;_ vla-MovetoTop
    
65.      ) ;_ not
    
66.   ) ;_ if
    
67. ) ;_ defun
    

;;;移到最上显示 By Gu_xl  示例： (MovetoTop (ssget)) <br /> (defun MovetoTop (ss / ObjLst Sortents dict i)<br />   (cond        ((= 'pickset (type ss))<br />          (repeat (setq i (sslength ss))<br />            (setq ObjLst        (cons (vlax-ename->vla-object<br />                                 (ssname ss (setq i (1- i)))<br />                               ) ;_ vlax-ename->vla-object<br />                               ObjLst<br />                         ) ;_ cons<br />            ) ;_ setq<br />          ) ;_ repeat<br />         )<br />         ((= 'ename (type ss))<br />          (setq ObjLst (list (vlax-ename->vla-object ss)))<br />         )<br />         ((= 'vla-object (type ss)) (setq ObjLst (list ss)))<br />   ) ;_ cond<br />   (if<br />     (cond<br />       ((not<br />          (VL-CATCH-ALL-ERROR-P<br />            (setq Sortents<br />                   (VL-CATCH-ALL-APPLY<br />                     'vla-item<br />                     (list<br />                       (setq dict<br />                              (vla-GetExtensionDictionary<br />                                (vla-ObjectIDtoObject<br />                                  (vla-get-ActiveDocument (vlax-get-acad-object))<br />                                  (vla-get-OwnerID (car ObjLst))<br />                                ) ;_ vla-ObjectIDtoObject<br />                              ) ;_ vla-GetExtensionDictionary<br />                       ) ;_ setq<br />                       "ACAD_SORTENTS"<br />                     ) ;_ list<br />                   ) ;_ GXL-CATCHAPPLY<br />            ) ;_ setq<br />          ) ;_ VL-CATCH-ALL-ERROR-P<br />        ) ;_ not<br />       )<br />       ((not<br />          (VL-CATCH-ALL-ERROR-P<br />            (setq Sortents<br />                   (VL-CATCH-ALL-APPLY<br />                     'vla-AddObject<br />                     (list dict "ACAD_SORTENTS" "AcDbSortentsTable")<br />                   ) ;_ GXL-CATCHAPPLY<br />            ) ;_ setq<br />          ) ;_ VL-CATCH-ALL-ERROR-P<br />        ) ;_ not<br />       )<br />     ) ;_ cond<br />      (not (vla-MovetoTop<br />             Sortents<br />             (vlax-make-variant<br />               (vlax-safearray-fill<br />                 (vlax-make-safearray<br />                   vlax-vbobject<br />                   (cons 0 (1- (length ObjLst)))<br />                 ) ;_ vlax-make-safearray<br />                 ObjLst<br />               ) ;_ vlax-safearray-fill<br />             ) ;_ vlax-make-variant<br />           ) ;_ vla-MovetoTop<br />      ) ;_ not<br />   ) ;_ if<br /> ) ;_ defun<br />

e688w

感觉调用命令的方式很简单哦！

669423907

回复 LLXXZZ 的帖子

能否做到只用一个命令，在选择对象后，按一下就前置，再按一下就后置呢？这样就更完美了。

jfxia

    完美的要等大侠来了

khaki168

同求，。。。现身吧，大侠，呵呵

l64631778

回复 LLXXZZ 的帖子

谢谢分享，很是感激~~~~