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:
Alexanndra1994 Profile
Femeie
23 ani
Bucuresti
cauta Barbat
23 - 42 ani
lisp2arx / CL_aclayer.lisp / VLisp - pp_sudhakar99919.vlax Moderat de zauchan
Autor
Mesaj Pagini: 1
admin
Administrator

Din: Bucharest
Inregistrat: acum 13 ani
Postari: 509
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 help create automatic layouts for the attached request you please provide the lisp/fas

65.3KB

_______________________________________
pus acum 3 ani
   
Pagini: 1  

Mergi la