Code Red > AutoLISP (Vanilla / Visual)

BigAL ah:butts ?

<< < (3/3)

jlogan02:
Ahhh...yes. I see that now.

Email incoming.

d2010:
You customize radios.dcl direct inside.Lisp

--- Code: ---/*c2s:
       d6=list( list("1.Jeff H",1),
                list("2.Mohnston",0),
                list("3.by d2010",1),
                list("4.by dubb",1),
                list("5.Wizman",1),
                list("6.by VovKa",0),
                list("7.John kaul",1),
                list("8.Greg B",1),
                list("9.LogicTools",1)
            );
       d6=append(list("You see here theSwampUser/s",0),d6);
       bigal=list("Title of DCL, you type here",1,list(2,1,1,3),d6,d6,d6,d6);
       bob=dfn_dcl_radios(bigal);
*/

--- End code ---
:whistling:


--- Quote from: jlogan02 on February 02, 2021, 05:47:29 PM ---
--- End quote ---

The mainHint= You extract the list of STYLE wit

--- Code: ---#region
dfn_layer_list1

;;Lst: (dfn_layer_list1 "*" 23 "0")
(Defun dfn_layer_list1(matchname SetMaxWidth autotblfmt / $rr dpr nam rstr nop cnt)
/*c2s: $rr=nil,
       rstr=autotblfmt,
       autotblfmt=(rstr=="0")?"APPID":
                  (rstr=="1")?"BLOCK":
                  (rstr=="2")?"LAYER":
                  (rstr=="3")?"LTYPE":
                  (rstr=="4")?"STYLE":
                  (rstr=="5")?"DIMSTYLE":
                  (rstr=="6")?"VIEW":
                  (rstr=="7")?"UCS":"LAYER";

#endregion

--- End code ---
Biserica Azi. Īntāmpinarea Domnului - Sărbătoarea făgăduinței īmplinite.

--- Code - Auto/Visual Lisp: ---Command: (dfn_layer_list1 "a*" 23 "0");23=maxlength of listnil Command: (dfn_layer_list1 "*" 23 "0")(("acad" 1) ("topolt" 1) ("contentblockicon" 1) ("ade" 1) ("acad_psext" 1) ("acad_exempt_from_cad_standards" 1) ("acad_mleaderver" 1)) Command: (dfn_layer_list1 "*" 23 "1");;BLOCK(("nord1" 1) ("stilbet" 1) ("putamer" 1) ("punct" 1) ("cvcan" 1) ("gager" 1) ("hidrant" 1) ("cvgaze" 1) ("cvtel" 1) ("ptstalp" 1) ("stlea" 1) ("stellin" 1) ("stlemn" 1) ("stillmn" 1) ("sttel" 1) ("stelcf" 1) ("lampadar" 1) ("proiector" 1) ("statie" 1) ("b12" 1) ("cvapa" 1) ("cismea" 1) ("cjxcoo" 1)) Command: (dfn_layer_list1 "*" 23 "2");;LAYER(("0" 1) ("text 0.35" 1) ("text 0.5" 1) ("contur" 1) ("defpoints" 1) ("contur tabel" 1) ("randuri" 1) ("fa4" 1) ("587_355" 1) ("t59_60" 1) ("0_pct_coduri" 1) ("0_pct_denumiri" 1) ("0_pct_linii_marcaj" 1) ("puncte" 1) ("punctec" 1) ("0_pct_simboluri" 1) ("0_pct_cote" 1) ("0_pct_texte_suprapuse" 1) ("caroiaj" 1) ("imagini_raster" 1) ("curbe_de_nivel" 1) ("model_3d" 1) ("plansa" 1)) Command: (dfn_layer_list1 "*" 23 "3");;LTYPE(("continuous" 1) ("acad_iso07w100" 1) ("dashed" 1) ("linprop" 1) ("lsect" 1) ("linpct" 1) ("linpdtuf" 1) ("lconstrsub" 1) ("grdlemn_st" 1) ("grdpl" 1) ("grdbet_st" 1) ("grdmet" 1) ("grdzidmet_st" 1) ("grdghimp" 1) ("lax" 1) ("cf" 1) ("tramvai" 1) ("grdlemn_dr" 1) ("grdbet_dr" 1) ("grdzidmet_dr" 1) ("talmic_st" 1) ("talmic_dr" 1) ("talmare_st" 1))  Command:Command: (dfn_layer_list1 "*" 23 "4");;TEXTSTYLE(("STANDARDT" 1) ("ROMANST" 1) ("TIMES_NEW_ROMANT" 1) ("NT" 1) ("ROMANTICT" 1) ("ROMANDT" 1) ("ROMANCT" 1) ("ITALICCT" 1) ("ARIALT" 1) ("MS_LINEDRAWT" 1) ("ROMAND_SHXT" 1) ("COURIER_NEWT" 1)) Command: (dfn_layer_list1 "*" 23 "5")(("STANDARDT" 1) ("ISO-25T" 1) ("LATURIT" 1) ("R1000T" 1) ("1T" 1)) Command: (dfn_layer_list1 "*" 23 "6")nil Command: (dfn_layer_list1 "*" 23 "0")(("ACADT" 1) ("TOPOLTT" 1) ("CONTENTBLOCKICONT" 1) ("ADET" 1) ("ACAD_PSEXTT" 1) ("ACAD_EXEMPT_FROM_CAD_STANDARDST" 1) ("ACAD_MLEADERVERT" 1)) Command: (dfn_layer_list1 "*" 23 "1")(("Nord1T" 1) ("StilBetT" 1) ("PutAmerT" 1) ("PunctT" 1) ("CVCANT" 1) ("GAGERT" 1) ("HIDRANTT" 1) ("CVGAZET" 1) ("CVTELT" 1) ("PTSTALPT" 1) ("STLEAT" 1) ("STELLINT" 1) ("STLEMNT" 1) ("STILLMNT" 1) ("STTELT" 1) ("STELCFT" 1) ("LAMPADART" 1) ("PROIECTORT" 1) ("STATIET" 1) ("B12T" 1) ("CvApaT" 1) ("CismeaT" 1) ("CJxcooT" 1)) 

Navigation

[0] Message Index

[*] Previous page