;;My Name="pp_rolisonfelipe_jcpin25.lsp"
(defun pp_codeblock
( / $rr addps mes dyn nop lpt movd edi mes llmail lds ldc
) addps
(jc_pin25
1082 (list "ADD_LIST")) dyn
(jc_pin25
58503 (list "[YNC]" "\nSalva0 sysvar(y.yes)(n.no): ")) nop
(if (= dyn
"Y") (jc_pin25
1082 (list "GETVAR")) nil) lpt
(list "ANGDIR" "ANGBASE" "CMDECHO" "ATTREQ" "ATTDIA" "DIMZIN") MES
(list "JAN./2021" "FEV./2021" "MAR+τ./2021" "MAR+τ./2021" "ABRIL./2021" "MAIO./2021" "JUN./2021" "JUL./2021" "AGO./2021" "SET./2021" "OUT./2021" "NOV./2021" "DEZ./2021") verba
(list "Mihai Eminescu@Luceafarul" "A fost odata ca-n povesti" "A fost ca niciodata" "Din rude mari împaratesti" "O prea frumoasa fata" "---------------------" "Si era una la parinti" "Si mândra-n toate cele" "Cum e Fecioara între sfinti" "Si luna între stele") llmail
(list "infoline.czechia@autodesk.com" "autodesk@cargraphics.com" "agandara@cargraphics.com" "michele.silva@cargraphics.com.br" "alexandra.ladaniuski@cargraphics.com.br" "agandara@cargraphics.com" "autodesk@cargraphics.com" "adriana.cardenas@cargraphics.com.br" "rama.dunayevich@autodesk.com") lds
(list "REVISAO" "ESCPROJJ" "END_OBRA" "CONTRATO" "MES" "VERBA" "LLPROJJ" "LLSPROJ" "LLNCITY" "LLNOME" "LLENDE" "LLMAIL") ldc
(list "REVISAO" "ESCPROJJ" "CONTRATO" "NES" "VERBA" "LLPROJJ" "LLNCITY" "LLENDE")) movd
(strcaT movd
"dcl_settings : default_dcl_settings { audit_level = 0; }\n//////////////////////\nEXECUTAR_TELA_CARIMBO : dialog ");; movd
(strcaT movd
"\n{label = \"STANDARD©2021\";\n:row{\n : boxed_column{ label=\"[ INFORME OS DADOS DA OBRA ]\";\n : popup_list {label = \"SOLICITANTE \" ; key = \"LLNCITY\" ;fixed_width=true;width=30;edit_width =70;}\n : popup_list {label = \"TITULO PROJETO \" ; key = \"LLPROJJ\" ;fixed_width=true;width=30;edit_width =70;}\n : popup_list {label = \"SUBTITULO \" ; key = \"LLSPROJ\" ;fixed_width=true;width=30;edit_width =70;}\n : edit_box {label = \"ENDERECO OBRA \" ; key = \"END_OBRA\" ;fixed_width=true;width=30;edit_width =70;}\n ");; movd
(strcaT movd
" }\n}\n:row{\n : boxed_column{ label=\"[ DADOS COMPLEMENTARES ]\";\n : popup_list {label = \"TIPO RECURSO \" ; key = \"VERBA\" ;fixed_width=true;width=0;edit_width =70;} \n : edit_box {label = \"NO. CONTRATO \" ; key = \"CONTRATO\" ;fixed_width=true;width=0;edit_width =70;}\n }\n}\n:column{\n : boxed_row{ label=\"[ DADOS DO DESENHO ]\";\n : popup_list {label = \"MES/ANO\" ; key = \"MES\" ;fixed_width=true;width=20;edit_width =10;alignment=centered;} \n : edit_box {label = \"ESCALA \" ; key = \"ESCPROJJ\" ");; movd
(strcaT movd
" ;fixed_width=true;width=0;edit_width =10;}\n : edit_box {label = \"REVISAO \" ; key = \"REVISAO\" ;fixed_width=true;width=0;edit_width =10;}\n }\n}\n:column {\n :row{ label=\"\";\n : button {label = \" SAIR \" ; key = \"BT-SAIR\" ; fixed_width=true;width=15;alignment=centered;}\n : button {label = \"FORMATO AMBAS\" ; key = \"BT-CA-AMBAS\" ; fixed_width=true;width=0;alignment=centered;is_default=true;}\n : button {label = \"FORMATO STANDARD\" ; key = \"BT-CA-EMPRESA\" ; fixed_width=true;width=0;alignment=centered;is_default=true;}\n ");; movd
(strcaT movd
" spacer_1;\n }\n }\n ok_cancel;\n spacer;\n}\n "))
edi
(jc_pin25
2416 (list movd
"EXECUTAR_TELA_CARIMBO")) movd
"") (jc_pin25
20094 (list "MES")) (mapcar addps MES
) (jc_pin25
38045 (list )) (jc_pin25
20094 (list "VERBA")) (mapcar addps VERBA
) (jc_pin25
38045 (list )) (jc_pin25
20094 (list "LLPROJJ")) (mapcar addps lpt
) (jc_pin25
38045 (list )) (jc_pin25
20094 (list "LLSPROJ")) (mapcar addps ldc
) (jc_pin25
38045 (list )) (jc_pin25
20094 (list "LLNCITY")) (mapcar addps lds
) (jc_pin25
38045 (list )) (jc_pin25
20094 (list "LLNOME")) (mapcar addps lpt
) (jc_pin25
38045 (list )) (jc_pin25
20094 (list "LLENDE")) (mapcar addps lpt
) (jc_pin25
38045 (list )) (jc_pin25
20094 (list "LLMAIL")) (mapcar addps llmail
) (jc_pin25
38045 (list )) (if (not NN_MES
) (setq;|a16938|; NN_MES
"0")) (if (not NN_VERBA
) (setq;|a16964|; NN_VERBA
"0")) (if (not NN_REVISAO
) (setq;|a16990|; NN_REVISAO
"R0")) (if (not NN_ESCPROJJ
) (setq;|a17016|; NN_ESCPROJJ
"1: 50")) (if (not NN_END_OBRA
) (setq;|a17042|; NN_END_OBRA
"RUA ")) (if (not NN_CONTRATO
) (setq;|a17068|; NN_CONTRATO
"ADD N-ª CONV+ΦNIO")) (if (not NN_PROJJ
) (setq;|a17094|; NN_PROJJ
"0")) (if (not NN_SPROJ
) (setq;|a17120|; NN_SPROJ
"0")) (if (not NN_CITY
) (setq;|a17146|; NN_CITY
"0")) (if (not NN_NOME
) (setq;|a17172|; NN_NOME
"0")) (if (not NN_ENDE
) (setq;|a17198|; NN_ENDE
"0")) (if (not NN_MAIL
) (setq;|a17224|;$rr)
;;;rem:Use this function only for DEBUG mode
s183
(prompt "\nt183errorS**")))rr)
(setq acad_iso11w100
-extmin
1558 acad_iso11w100
-extmax
59089) (setq acad_isoQsortTime 00:
00.00) (setq runiftry11w125
(list (cons 19780209 "pp_rolisonfelipe.lsp") (coNs 38603 "end_list");;County.xml=8 (coNs 19496 "start_list");;County.xml=8 (coNs 1644 "read");;County.xml=5 (coNs 28160 "alert");;County.xml=2 (coNs 10493 "vl-prin1-to-string");;County.xml=1 (coNs 2854 "dfn_dcl_i_save");;County.xml=1 (coNs 14928 "open");;County.xml=1 (coNs 18122 "wcmatch");;County.xml=1 (coNs 59089 "dfn_getx_readkey");;County.xml=1 (coNs 1558 "assert_cxx");;County.xml=1 (coNs 25163 "strcase");;County.xml=1 (coNs 4898 "close");;County.xml=1 (coNs 54116 "new_dialog");;County.xml=1 (coNs 54552 "set_tile");;County.xml=1 (coNs 53270 "vl-filename-mktemp");;County.xml=1 (coNs 19675 "write-line");;County.xml=1 (coNs 40567 "grread");;County.xml=1 (coNs 56446 "load_dialog");;County.xml=1 ))
(setq getmypid
(list "54193") acad__assertNo
0 setmypid
"https://youtu.be/cuBbQ6K45YY?t=21") (defun jc_pin25
(mypid loopwne
/ rom subf j_retw
) (setq setmypid
(list "\n" subf
"=" getmypid
)) (setq getmypid
(itoa acad__assertNo
) acad__assertNo
(1+ acad__assertNo
)) rom)
(setq acad_isoQsortTimp 00:
00.00) (setq acad_isoSortTotal 00:
00.00)
;;rem:dfn_cad_amain
dfn_pp_v1chkR nil)
(pp_rolisonfelipe_app)
)
(defun assert_cxx
(/ $rr
) khc85 "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD"
acad__assertNo 0
kHereAiciHeirIciAqui 0767004316
erlsp khc85)
)
;;{--}
(Defun asserte
(mssg
/ $rr
) acad__assertNo
0))) (if (/= mssg
nil) (setq;|a3635|; erprv erlsp
acad__assertNo (+ acad__assertNo 1)
erlsp
(strcat (jc_pin25
10923 (list mssg
)) ":" (itoa acad__assertNo
))) (foreach $rr
(list "\nAssertE=" erlsp
"*" erprv
) (princ $rr
))) (if (>= acad__assertNo kHereAiciHeirIciAqui
) (jc_pin25
27734 (list (strcat "Hi! eBreakPoint kHereAiciHeirIciAqui=" (itoa kHereAiciHeirIciAqui
))))) erlsp)
(DeFun C:pp_rolisonfelipe_app
() (pp_rolisonfelipe_app )
)
(prompt "\nCommand.com: Q2[enter]\n") (Defun pp_rolisonfelipe_app
( / )
;------------------------Stdcall "pp_codeblock "
(setq _ax
(pp_codeblock
)) ;------------------------
T)
;(User Labels)
;(pp_codeblock)
;Lib:free
(defun dfn_dcl_i_save
(a110 fncn
/ rr dI qm nn fc
) (asserte
"A110") qm nil
nn
(jc_pin25
53824 (list "0user.dcl")) fc
(jc_pin25
14342 (list nn
"w"))) (if fc
(progn (jc_pin25
20109 (list a110 fc
)) (jc_pin25
4468 (list fc
)) (setq;|a20288|; fc
nil))) (setq;|a20304|; dI
(jc_pin25
56872 (list nn
))) (setq;|a20328|; rr dI
) (if (and (> dI
(- 1)) (not (jc_pin25
53554 (list fncn dI
)))) (setq;|a20398|; qm "<a110error>Acad__eFileNotOpen\n <file>\n"
qm
(strcat qm nn
"</file>\n <defun>:" fncn
"</defun>\n</a110error>") rr (- 3)))
rr)
;;Inf:Wait until press keys k
(defun dfn_getx_readkey
(k574 t469
/ retc kbd msg two chk lei
) kbd
(if (> k574
"") k574
"")) (setq;|a23280|; msg
(if (> t469
"") t469
"\nByA:DragneAdrian2019=T469error<>Str:")) (prompt msg
) (progn (setq;|a23330|; lei
(jc_pin25
39969 (list )) chk
(if (> kbd
"") (if (jc_pin25
17564 (list retc kbd
)) 1 0) 0)))))) (princ retc
) retc)
(defun vl_load_com
(/ $rr
) (setq vlax_true
:Vlax-True vlax_false :Vlax-False
kHomeRegistry "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD")
;; set a reference to the current model space
))
)
;Lib:free
;;{$R dfn_cad_amain_eof2 T229@:024116run="devcinfo.exe
(prompt "\ncommand.com: Q2[enter]\n") ;;</dfn_cad_amain_eof2>
[code]