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:
i.oana
Femeie
20 ani
Bucuresti
cauta Barbat
20 - 45 ani
lisp2arx / Listof AutoLisp.100 / wcmatch Moderat de zauchan
Autor
Mesaj Pagini: 1
admin
Administrator

Din: Bucharest
Inregistrat: acum 13 ani
Postari: 516


Code:

(setq edata (if esel (entget (car esel)))
               etype (if esel (cdr (assoc 0 edata))))
(wcmatch subetype "LINE,LWPOLYLINE,VERTEX,@LINE,RAY,HATCH,DIMENSION,LEADER,*SOLID,3DFACE,WIPEOUT,TRACE,REGION,IMAGE,VIEWPORT,TOLERANCE")
                 (if (= subetype "LEADER") (= (cdr (assoc 72 subedata)) 0) T); STraight, not Splined
                 (if (= subetype "VERTEX") (= (boole 1 8 (cdr (assoc 70 subedata))) 0) T)));



Code:

(wcmatch (cdr (assoc 0 edata)) "LINE,*POLYLINE,ARC,CIRCLE,ELLIPSE,SPLINE,XLINE,RAY")

Noi ortodoxi, trebuie să facem  tot ce putem sa trăim fericiti cu preoti-ortodoxi pe  care ii avem deja.. Dacă tu studiezi pe net, ortodoxia este  apropiată dogmatic  de  istoria-Pleiadienilor,  celelalte religii (catolicii, musulmani) sunt anti-teza cu Pleia*..Pleiadieni nu sunt ingerii lui D-zeu? Eu nu stiu. dar in viitor,  noi ortodoxia, avem nevoie de ajutorul  tehnologic+cultural dela Pleiadieni. acolor unde Sfintii nu ne pot ajuta.

wcmatch code:(setq edata (if esel (entget (car esel)))
 etype (if esel (cdr (assoc subetype (if

35.5KB


_______________________________________


pus acum 3 ani
   
Pagini: 1  

Mergi la