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:
cristina25 la Simpatie.ro
Femeie
24 ani
Cluj
cauta Barbat
24 - 58 ani
lisp2arxReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
lisp2arx / CL_aclayer.lisp /

VLisp - pp_sudhakar99919.vlax

 Pagini: 1 Moderat de zauchan
#1
admin
Administrator
Din: Bucharest
Postari: 523
Everyone,
Please help me to create automatic layouts for the attached drawing
Also request you to please provide me the LISP/FAS file.
VLisp - pp_sudhakar99919.vlax
https://forums.autodesk.com/autodesk/at ... toptic.zip

Code:

nop (command "._layout" "s" id "._pspace") ssvp1 (js_aro10 "C053ssget" (list "x" (list (js_aro10 "C051cons" (list 0 "VIEWPORT")) (js_aro10 "C052cons" (list (- 4) "*,>,*")) (list 10 0 TitleBlockHeight 0)))))) (setq ssvp2 (if (/= ssvp1 nil) (js_aro10 "C056ssget" (list "x" (list (js_aro10 "C054cons" (list 0 "VIEWPORT"))

https://forums.autodesk.com/autodesk/at ... attrib.dwg

Code:

/*c2s: vl.load_com();
       $rr=nil,grids=nil,GridLayer="GRID";GridAttribute="MAPSHTNUM";
       SourceLayout="001",
       TitleBlockHeight=86,
       KeyZoomFactor=0.5;
       lpt=layoutlist();
       if (lpt==nil) $rr=alert("error**eNoLayout_i607"),$rr=exit();
       if (length(lpt)<1) $rr=alert("error**eEntityInInactiveLayout_i09"),$rr=exit();
       ss=ssget("x",lISt(cons(0,"INSERT"),cons(8,GridLayer)));
       if (ss==nil) $rr=alert("error**eNoLabelBlock_i603"),
                    $rr=str_princ(list("\nNo grid blocks on layer '",GridLayer,"' found.")),
                    $rr=exit();
       if (sslength(ss)<1) $rr=alert("error**eNullBlockName_i17"),
                           $rr=exit();
       $i=0;
       princ("\nLayout.Old=(");
       for(lbr=lpt;car(lbr);lbr=cdr(lbr))
           nop=str_princ(list(itoa($i),"=\"",car(lbr),"\";")),
           $i=$i+1;
       princ(")");
       id=dfn_getx_int("GiveMe IndexOf-layout:",0);
       id=(id==nil)?0:abs(id),
       id=(id>=length(lpt))?(length(lpt)-1):id,
       SourceLayout=nth(id,lpt);
       str_princ(list("SourceLayout=",SourceLayout));
       $rr="Author Lanny Schiele(c)2020";
*/

Is it valuable for personal enlightenment? Definitely yes. Can productive work still be done with it? Absolutely, but that advantage has lessened. Will you gain status points for being able to prove you know it? Probably not, unless you are applying to one of the few corps that use Lisp, or have your own clients, where you decide what tech you want. Be prepared to be writing C/C++ bindings to libraries for Lisp if you want to reuse code from others.

Code:

(vl-load-com) (setq $rr nil grids nil gridlayer "grid") (setq gridattribute "mapshtnum") (setq
 sourcelayout "001" titleblockheight 86 keyzoomfactor 0.5) (setq lpt (layoutlist)) (if (=  lpt nil) (setq $rr (alert "error**enolayout_i607") $rr (exit))) (if (<  (length lpt) 1) (setq
$rr (alert "error**eentityininactivelayout_i09") $rr (exit))) (setq     ss (ssget "x" (list (cons 0 "insert") (cons 8 gridlayer)))) (if (=  ss nil) (setq $rr (alert "error**enolabelblock_i603")
$rr (str_princ (list "\nno grid blocks on layer '" gridlayer "' found."))
$rr (exit))) (if (<  (sslength ss) 1) (setq
$rr (alert "error**enullblockname_i17")
$rr (exit))) (setq $i 0) (princ "\nlayout.old=(") (progn (setq
lbr lpt) (while (car lbr) (setq nop (str_princ (list (itoa $i) "=\"" (car lbr) "\";"))
 $i (+ $i 1)) (setq lbr (cdr lbr)))) (princ ")") (setq  id (dfn_getx_int "giveme indexof-layout:" 0)) (setq id (if (=  id nil) 0 (abs id)) id (if (>= id (length lpt)) (- (length lpt) 1) id)
 sourcelayout (nth id lpt)) (str_princ (list "sourcelayout=" sourcelayout)) (setq
 $rr "author lanny schiele(c)2020")



Code:

(js_aro10 "C006vl-load-com" (list )) (setq $rr nil grids nil gridlayer "grid") (setq
 gridattribute "mapshtnum") (setq sourcelayout "001"
 titleblockheight 86  keyzoomfactor 0.5) (setq  lpt (js_aro10 "C007layoutlist" (list ))) (if (=  lpt nil) (setq  $rr (js_aro10 "C008alert" (list  "error**enolayout_i607"))
 $rr (js_aro10 "C009exit" (list )))) (if (<  (js_aro10 "C010length" (list  lpt)) 1) (setq
 $rr (js_aro10 "C011alert" (list  "error**eentityininactivelayout_i09"))  $rr (js_aro10 "C012exit" (list )))) (setq  ss (js_aro10 "C015ssget" (list  "x" (list (js_aro10 "C013cons" (list  0 "insert")) (js_aro10 "C014cons" (list  8 gridlayer)))))) (if (=  ss nil) (setq
 $rr (js_aro10 "C016alert" (list  "error**enolabelblock_i603"))  $rr (js_aro10 "C017str_princ" (list  (list "\nno grid blocks on layer '" gridlayer "' found.")))
 $rr (js_aro10 "C018exit" (list )))) (if (<  (js_aro10 "C019sslength" (list  ss)) 1) (setq
 $rr (js_aro10 "C020alert" (list  "error**enullblockname_i17"))
 $rr (js_aro10 "C021exit" (list )))) (setq $i 0) (princ "\nlayout.old=(") (progn (setq
 lbr lpt) (while (car lbr) (setq



VLisp - pp_sudhakar99919.vlax - Everyone, Please help me to create automatic - CL_aclayer.lisp
VLisp - pp_sudhakar99919.vlax – poza de admin, in CL_aclayer.lisp · 65.3KB


_______________________________________
http://www.puiubrat.3x.ro/lisp2arx/lisp ... O2UTM2.pdf
 
   

Topicuri similare

Pagini: 1  
Mergi la