Filehost.ro - gazduire fisiere
lisp2arx
Visual Programming for AutoLisp Mathématiques en programmation Lisp.. doc2cpp,doc2lsp, sld2lsp, bmp2dcl, free__GifCcapture for all-CAD'platforms.. 		Nou pe simpatie:
deeazuzu82 pe Simpatie
Femeie
24 ani
Cluj
cauta Barbat
27 - 62 ani
lisp2arxReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
lisp2arx / CL_aclayer.lisp /

VLisp - entlayer2020- pp_ncedssget.vlax

 Pagini: 1 Moderat de zauchan
#1
admin
Administrator
Din: Bucharest
Postari: 523
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 - entlayer2020- pp_ncedssget.vlax - Is there any ssget parameter which excludes - CL_aclayer.lisp
VLisp - entlayer2020- pp_ncedssget.vlax – poza de admin, in CL_aclayer.lisp · 58KB


_______________________________________
http://www.puiubrat.3x.ro/lisp2arx/lisp ... O2UTM2.pdf
 
   
#2
admin
Administrator
Din: Bucharest
Postari: 523


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 - entlayer2020- pp_ncedssget.vlax - admin - CL_aclayer.lisp
VLisp - entlayer2020- pp_ncedssget.vlax – poza de admin, in CL_aclayer.lisp · 74.4KB


_______________________________________
http://www.puiubrat.3x.ro/lisp2arx/lisp ... O2UTM2.pdf
 
   
Pagini: 1  
Mergi la