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:
Cristina02 Profile
Femeie
23 ani
Arges
cauta Barbat
26 - 80 ani
lisp2arx / Listof AutoLisp.100 / vla-AutoLispR14-List all Layouts Name for script Moderat de zauchan
Autor
Mesaj Pagini: 1
zauchan
Moderator

Inregistrat: acum 13 ani
Postari: 180
You Get all LayOutName/s


(setq MB_CASE_UPPER_SIMPLE 4)
(setq MB_CASE_LOWER_SIMPLE 5)
(defun dfn_layout_inf(ucwords / $rr $db doi clj nam dot lpt aro doi) 
     (setq
     $db (dictsearch (namedobjdict  "ACAD_LAYOUT"
     doi nil) (progn (setq
     lpt nil) (while (setq
     clj (assoc 3 $db) (if clj (setq
     lpt (append lpt (list (cdr clj)) (setq
     $db (cdr (member clj $db))) (setq
     doi nil) (setq
     dot (if_int ucwords 0) (if (=  dot 4) (foreach aro clj (setq
     doi (append doi (list (strcase aro) (if (=  dot 5) (foreach aro clj (setq
     doi (append doi (list (strcase aro T))) (setq
     $rr (list lpt doi)   
$rr)


all layouts name for script you get all 4)(setq 5)(defun $rr $db doi clj nam dot lpt aro doi) 

29.2KB

_______________________________________
psw: cea de la wjndowsXP gigabyte..
pus acum 4 ani
   
Pagini: 1  

Mergi la