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:
lovely_pink Profile
 | Femeie
25 ani
Bucuresti
cauta Barbat
25 - 48 ani |
|
|
admin
Administrator
Din: Bucharest
Inregistrat: acum 13 ani
Postari: 516
|
|
;;Inp:t025:tchar=%s
;;Out:rr:tchar=%s
;;Inf: You use operator %%[variabile_with_type_string] for read values from memory
;; Here is Corectly_Puiudani.DCL file
Code:
dfn_dcl_fileview : dialog {
label = "%%[dL]";
initial_focus = "1";
column {
: list_box {
label = "%%[fN]";
mnemonic = "L";
key="1";
height = %%[(itoa h)];
width =%%[(itoa w)];
}
}
ok_only;
} |
(Defnn t025explanation
(/ rr h w fn)
(setq fn "MyName is PuiuDani.dcl"
h 10
w 10
dl
"tedi"
)
;; VLaxCompiler Begin :
(setq t025 (strcat
t025
"dfn_dcl_fileview : dialog {\nlabel = \""
dL
"\";\ninitial_focus = \"1\";\n: column {\n : list_box {\n label = \""
fN
"\";\n mnemonic = \"L\";\n key=\"1\";\n height = "
(itoa h)
" ;\n width ="
(itoa w)
" ;\n }\n }\n ok_only;\n"
)
t025 (strcat t025 "}"
)
;; VLaxCompiler End :
)
(Defun str_princ (a101 / a g)
(if (dfn_var_isstr a101)
(princ a101)
(progn (if (= (car a101) nil)
(setq g (textscr)
a101 (cdr a101)
)
)
(foreach a a101 (princ a))
)
)
0
)
(Defun dfn_var_isstr (a094 / rr)
(setq rr (if (= (type a094) (quote STR))
a094
nil
)
)
rr
)
_______________________________________
|
|
| pus acum 3 ani |
|