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:
pissy_kitty 25 ani
Femeie
25 ani
Sibiu
cauta Barbat
24 - 48 ani
lisp2arx / Listof AutoLisp.100 / vla-AutoLispR14- MapCar Demo-Example Moderat de zauchan
Autor
Mesaj Pagini: 1
admin
Administrator

Din: Bucharest
Inregistrat: acum 13 ani
Postari: 506


Code:

(mapcar '(lambda (x) 
          (+ x 3)
          ) 
         '(10 20 30)
)=> (13 23 33)

(defun @midppoiint (p1 p2)  (mapcar '* '(0.5 0.5 0.5)(mapcar '+ p1 p2)))
(setq    p1 (list X offset 0.0)
           p2 (mapcar '* '(1 -1 1) p1)
(mapcar 'print (reverse results))

Code:

(defun dfn_point_mid (pn1t pn2t / $rr dx1 dx2 dy1 dy2 dz1 dz2)
   (setq;|a1562849|;
     dx1 (if_real (car pn1t) nil)
     dy1 (if_real (cadr pn1t) nil)
     dz1 (if_real (caddr pn1t) 0.0)) (setq;|a1562977|;
     dx2 (if_real (car pn2t) dx1)
     dy2 (if_real (cadr pn2t) dy1)
     dz2 (if_real (caddr pn2t) dz1)) (setq;|a1563097|;
     $rr (if (and  dx1 dy1 dx2 dy2) (list (* (+ dx1 dx2) 0.5) (* (+ dy1 dy2) 0.5) (* (+ dz1 dz2) 0.5)) "t154error<>3Dpnt")) 
$rr)
(Defun if_real(a108 tzxelse / $rr) ;_ASSERT_OK
   (setq;|a3795636|;
     $rr (if (=  (type a108) (quote SYM)) (eval a108) a108)
     $rr (cond ( (=  (type $rr) (quote INT)) (+ 1.0 (- $rr 1)))( (=  (type $rr) (quote REAL)) $rr)( tzxelse))) 
$rr)

There is a list of the type ("1841B7" "184130" "18412E" ...)
Elements in quotes are handl'y of autocad primitives.
The list is not received in lisp and then passed to lisp.
How can I get the list (1841B 184130 18412E ?.

Code:

Command: (mapcar 'read (list "abc" "def" "ghi"))
(ABC DEF GHI)



_______________________________________


pus acum 3 ani
   
admin
Administrator

Din: Bucharest
Inregistrat: acum 13 ani
Postari: 506


Code:

(setq a 10 b 20 c 30)
(mapcar '1+ (list a b c))
(11 21 31)

(setq l2 (mapcar 'csptypes  (list "aaa" "bb" "v" 1.2 "d" 1121234 nil T)))
(apply 'strcat (mapcar 'csptypes (list "aaa" "bb" "v" 1.2 "d" 1121234 nil T)))
{$R}
Command: (apply 'strcat (mapcar 'csptypes (list "aaa" "bb" "v" 1.2 "d" 1121234 nil T)))
Tip=SYM"SSSRSIN0"
{$R}
Command: (mapcar 'type (list "aaa" "bb" "v" 1.2 "d" 1121234 nil T))
(STR STR STR REAL STR INT nil SYM)

Code:

(Defun csptypes (sir / $rr tip)
  (setq $rr nil tip (strcase (vl-prin1-to-string (type sir))))
  (princ "\nTip=") (princ tip)
  (if (wcmatch tip "STR,INT,REAL,NIL,FILE,LIST")
     (setq $rr (chr (ascii tip)))
     (setq $rr "0")
  )
$rr)



Comvert list of Variabile to Strings

Code:

_$ (setq lst '(A B C ))
(A B C)
_$ (mapcar 'vl-prin1-to-string lst)
("A" "B" "C")



_______________________________________


pus acum 3 ani
   
Pagini: 1  

Mergi la