lisp2arx
Visual Programming for AutoLisp Mathématiques en programmation Lisp.. doc2cpp,doc2lsp, sld2lsp, bmp2dcl, free__GifCcapture for all-CAD'platforms..
Lista Forumurilor Pe Tematici
lisp2arx | Reguli | Inregistrare | Login

POZE LISP2ARX

Nu sunteti logat.
Nou pe simpatie:
Criscristina92 la Simpatie.ro
Femeie
25 ani
Bucuresti
cauta Barbat
29 - 80 ani
lisp2arx / CL_aclayer.lisp / VLisp - entlayer2020- pp_ncedssget.vlax Moderat de zauchan
Autor
Mesaj Pagini: 1
admin
Administrator

Din: Bucharest
Inregistrat: acum 13 ani
Postari: 506
Is there any ssget parameter which excludes FROZEN and OFF layers ?

Code:

(defun dfn_ssgx_islayeroff(/ $rr all lcd)
/*c2s:  lcd=list(cons(-4,"<or"),
                    cons(-4,"<not"),cons(70,01),cons(-4,"not>"),
                    cons(-4,"<not"),cons(70,02),cons(-4,"not>"),
                    cons(-4,"<not"),cons(70,04),cons(-4,"not>"),
                    cons(-4,"<not"),cons(70,16),cons(-4,"not>"),
                    cons(-4,"<not"),cons(62,-7),cons(-4,"not>"),
                    cons(-4,"or>"));
        all=ssget("x",lcd);
        $rr=(type(all)==quote(PICKSET))?list(sslength(all),all):list(RTREJ,all);
*/$rr)



vlisp there any ssget parameter which excludes frozen and off layers $rr all

58KB


_______________________________________


pus acum 3 ani
   
admin
Administrator

Din: Bucharest
Inregistrat: acum 13 ani
Postari: 506


Code:

(princ "\nSelect Arcs/PolyArcs .")
    (setq     js ;;Author=  CADaSchtroumpf2020.vii.30
        (ssget
            '((-4 . "<OR")
                (-4 . "<AND")
                    (0 . "POLYLINE")
                    (-4 . "<NOT")
                        (-4 . "&") (70 . 126)
                    (-4 . "NOT>")
                (-4 . "AND>")
                (0 . "LWPOLYLINE,ARC")
                (-4 . "OR>"))
        )
        n -1
    )



vlisp .")
 (setq ;;author= (ssget
 '((-4 (-4 (-4 (-4 (70 126)
 (-4 (-4 (-4 -1

74.4KB


_______________________________________


pus acum 3 ani
   
Pagini: 1  

Mergi la