lisp2arx
Visual Programming for AutoLisp
Mathématiques en programmation Lisp..
doc2cpp,doc2lsp, sld2lsp, bmp2dcl,
free__GifCcapture for all-CAD'platforms..
|
Nou pe simpatie:
morena28
 | Femeie
25 ani
Bistrita Nasaud
cauta Barbat
27 - 52 ani |
|
|
lisp2arxReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
adminAdministratorDin: Bucharest
Postari: 523
|
|
Multiple If then Path you replace
Code:
With acet_cip03dcl do
if (d349_js_aro10debugger_i10='1' ) then axlock.h:=10 else
if (d349_js_ldc11addtable_i11='1') then axlock.h:=11 else
if (d349_js_aro12debug_i12='1') then axlock.h:=12 else
if (d349_js_iload_i14='1') then axlock.h:=14 else
if (d349_js_goto_i15='1') then axlock.h:=15; |
You replace top-lines with with multiple If_int(..)
Code:
with acet_cip03dcl do
axlock.h:=if_int(d349_js_aro10debugger_i10='1',10,
if_int(d349_js_ldc11addtable_i11='1',11,
if_int(d349_js_aro12debug_i12='1',12,
if_int(d349_js_iload_i14='1',14,
if_int(d349_js_goto_i15='1',15,
if_int(d349_js_ior_i16='1',16,
if_int(d349_js_ldat18addtableldata_i18='1',18,
if_int(d349_js_ldc21kDebugPrint_i21='1',21,0)))))))); |
26.August.2018=Sfantul Adrian si Natalia
Code:
Case axlock.h of
10 : tokstr:=concat('js_aro10 "',aoc,kDigits3[adio],trim(tokstr),'" (list ');
11: tokstr:=concat('js_ldc11 "0x',inttohex(adui.h,4),':',inttostr(getmypid[1].lo),'" (list ');
12: tokstr:=''';
14: tokstr:=concat('js_iload "',aoc,kDigits3[adio],trim(tokstr),'" (list ');
16: tokstr:=concat('js_ior "',aoc,kDigits3[adio],trim(tokstr),'" (list ');
18: |
15August2019=Biserica Adormirea Maicii Domnului dela Vatra Luminoasa, in
Code:
Function if_int(zeroone:wordbool;var1,var2:integer):integer;
Begin if_int:=var1;if (zeroone) then exit;if_int:=var2;exit;
End; |
Delphi7:=Nu functioneaza frmMainWnd=nil;bDummy := if_int(frmMainWnd=nil,7,frmMainWnd.BorderColor);'
_______________________________________
http://www.puiubrat.3x.ro/lisp2arx/lisp ... O2UTM2.pdf
|
|
| |
|
