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:
crazygirl
Femeie
22 ani
Buzau
cauta Barbat
26 - 80 ani
lisp2arx / CL_aclayer.lisp / VLisp - pp_breaksquigle.vlax - AutoPipe.Lsp Moderat de zauchan
Autor
Mesaj Pagini: 1
admin
Online
Administrator

Din: Bucharest
Inregistrat: acum 13 ani
Postari: 516
Please  Help, You see transform your-program to Autopipe_original.lsp
Inside "Arctic_masina_despalat.dwg" , the programe autopipe_original.lsp
work-fine , you see winpipe.gif,  :knuppel2:
But inside "ftct sample2007a.dwg" the programe Autopipe_original.lsp draw many slope-lines (with color red-black???errors)

vlisp help, you see transform the programe you see inside "ftct the programe draw many (with

15.7KB


_______________________________________


pus acum 4 ani
   
zauchan
Moderator

Inregistrat: acum 13 ani
Postari: 180
Layer Checking.  if Layer/s not exists then you-select all lines

https://www.theswamp.org/index.php?acti ... tach=37506

Code:

/*c2s:    lay2="PIPE_MAIN",         lay1="PIPE_BRANCH";
          jps=jps-1,
          jpg=jpg-1, // different Direction/s
          jps=(jpg==jps)?(3-jpg):jps,
//set variabiles default/s $ol=list("parsedlist","cntct","ss","ept","ang","spt","obj","sslist","ssang1","ssang2","n","ftpt","ss1","o1");  foreach(eva,$ol,set(read(eva),nil)); 
//check Layer/s
          o1=tblsearch("LAYER",lay1),       o2=tblsearch("LAYER",lay2);
          $rr=(o1 && o2)?strcat(lay1,",",lay2):(o1)?lay1:(o2)?lay2:"";
//Regen Screen
          $rr=vla.regen(con_acdoc,AcMODELSPACE);
//AcOr .. o1 or o2
          ss=(acor(o1,o2))?ssget(lISt(cons(0,"LINE"),cons(8,$rr))):
                          ssget(lISt(cons(0,"LINE")));

You install the kit  from old-Version as DemoVersion
https://youtu.be/qLqzfF88UjU

vlisp layer layer/s not exists then you-select all ... jpg=jpg-1, different variabiles default/s

38.1KB

Modificat de zauchan (acum 4 ani)


_______________________________________
psw: cea de la wjndowsXP gigabyte..

pus acum 4 ani
   
Pagini: 1  

Mergi la