Community

WORK WITH SUBLIST

WORK WITH SUBLIST

rolisonfelipe
Collaborator Collaborator
489 Views
7 Replies
Message 1 of 8

WORK WITH SUBLIST

rolisonfelipe
Collaborator
Collaborator
‎02-27-2023 10:37 AM
 
 
(DEFUN C:CA () (C:SELO))
;////////////////////////////////////////////////////////////////////////////////////////////////////////
(DEFUN C:SELO ()
(setq FLAGOK nulo)
(if (not FLAG-XLS) (EXECUTAR-LEARQXLS) )
; IMPORTAR LISTA DO EXCEL A PARTIR DO ERRO, PORTANTO, DESEJO IMPORTAR DIRETAMENTE DA LISTA LSP
(setq dcl_id (load_dialog "MENU-PADRÃO"))
(setq FLAGOK1 T)
(setq XFIM1   0)
(enquanto FLAGOK1
(setq LUNIDADE (lista "MILIMETRO" "CENTIMETRO" "METRO"))
 
(setq LESCALA (lista "50" "75" "100" "125" "200" "250" "400" "500" "750" "1000" "1250" "2000" "2500" "5000" "7500" "5000" "10000"))
 
(setq LLMES (lista "JAN/2022" "FEV/2022" "MAR/2022" "ABRIL/2022" "MAIO/2022" "JUN/2022" "JUL/2022" "AGO/2022" "SET/2022" "OUT/2022" "NOV/2022" "DEZ/2022"))
 
(setq LLVERBA (lista "NO ID" "BANK1" "BANK2"))
 
(setq LLPROJJ (lista "PROJETO ARQUITETONICO" "PROJETO EXECUTIVO" ))
 
(setq LSPROJJ (lista "DETALHE DE ACABAMENTO" "PLANTA DE FORRO"))
 
(setq LLNCITY  LLNOME LLENDE LLMAIL (lista
""CIDADE" "NOME" "ENDE" "CORREIO" "
""CIDADE A" "Nome A" "Rua A" "a@mail.com""
""CIDADE B" "Nome B" "Rua B" "b@mail.com""
""CIDADE C" "Nome C" "Rua C" "c@mail.com""
)); EU NESSE PONTO
 
 (new_dialog   "EXECUTAR_TELA_CARIMBO" dcl_id)
(setq LLMES
;////////////////////////////////////////////////////////////////////////////////////////////////////////
 ;combinar lista excel com dcl ou lsp
 (start_list    "LUNIDADE") (mapcar 'add_list LUNIDADE) (end_list)
 (start_list    "LESCALA")  (mapcar 'add_list LESCALA)  (end_list)
 (start_list    "LLMES") (mapcar 'ADD_LIST LLMES)    (end_list)
 (start_list    "LLVERBA")  (mapcar 'ADD_LIST LLVERBA)  (end_list)
 (start_list    "LLPROJJ")  (mapcar 'add_list LLPROJJ)  (end_list)
 (start_list    "LLSPROJ")  (mapcar 'add_list LLSPROJ)  (end_list)
(start_list "LLNCITY") (mapcar 'add_list LLNCITY) (end_list); EU NESSE PONTO
(start_list "LLNOME") (mapcar 'add_list LLNOME) (end_list); EU NESSE PONTO
(start_list "LLENDE") (mapcar 'add_list LLENDE) (end_list); EU NESSE PONTO
(start_list "LLMAIL") (mapcar 'add_list LLMAIL) (end_list); EU NESSE PONTO
 
;////////////////////////////////////////////////////////////////////////////////////////////////////////
;d ados que vem do dcl
(se (não NLU) (setq NLU "0"))
(se (não NLE) (setq NLE "0"))
(se (não NMES) (setq NMES "0"))
(se (não NVERBA) (setq NVERBA "1"))
(se (não REVISAO) (setq REVISAO "R0"))
(se (não FOLHA) (setq FOLHA "01/"))
(se (não END_OBRA) (setq END_OBRA "RUA"))
 (if (not CONTRATO) (setq CONTRATO   "INF. CONVEIO"))
(se (não NPROJJ) (setq NPROJJ "1"))
(se (não NSPROJ) (setq NSPROJ "1"))
(se (não NNCITY) (setq NNCITY "1"))
(se (não NNOME) (setq NNOME "1"))
(se (não NENDE) (setq NENDE "1"))
(se (não NMAIL) (setq NMAIL "1"))
 
;////////////////////////////////////////////////////////////////////////////////////////////////////////
;d ados que vem do dcl
 (set_tile "REVISAO"   REVISAO)
 (set_tile "FOLHA"    FOLHA)
 (set_tile "END_OBRA"  END_OBRA)
 (set_tile "CONTRATO"  CONTRATO)
 (set_tile "LUNIDADE" NLU)
 (set_tile "LESCALA" NLE)
 (set_tile "LLMES" NMES)
 (set_tile "LLVERBA"  NVERBA)
 (set_tile "LLPROJJ"   NPROJJ)
 (set_tile "LLSPROJ"   NSPROJ)
 (set_tile "LLNCITY"   NNCITY)
 (set_tile "LLNOME"    NNOME)
 (set_tile "LLENDE"    NENDE)
 (set_tile "LLMAIL"    NMAIL) 
 
;////////////////////////////////////////////////////////////////////////////////////////////////////////
 ;dados que vem do dcl
 (action_tile   "REVISAO" "(setq REVISAO $value)")
 (action_tile   "FOLHA" "(setq FOLHA $value)")
 (action_tile   "END_OBRA" "(setq END_OBRA $value)")
 (action_tile   "CONTRATO" "(setq CONTRATO $value)")
 (action_tile   "LLMES" "(setq NMES $value)") 
 (action_tile   "LLVERBA" "(setq NVERBA $value)") 
 (action_tile   "LLPROJJ" "(setq NPROJJ $value)")
 (action_tile   "LLSPROJ" "(setq NSPROJ $value)")
 (action_tile   "LLNCITY" "(setq NNCITY $value)")
 (action_tile   "LLENDE" "(setq NENDE $value)")
 
 (action_tile   "LUNIDADE" "(EXECUTAR-NLU)")
 (action_tile   "LESCALA" "(EXECUTAR-NLE)")
 
 (action_tile "CA4r" "(done_dialog 14)")
 (action_tile "CA4" "(done_dialog 13)")
 (action_tile "CA3r" "(done_dialog 12)")
 (action_tile "CA3" "(done_dialog 11)")
 (action_tile "CA2" "(done_dialog 10)")
 (action_tile "CA1" "(done_dialog 9)")
 (action_tile "CA0" "(done_dialog 8)")
 
 (action_tile "CASA4r" "(done_dialog 7)")
 (action_tile "CASA4" "(done_dialog 6)")
 (action_tile "CASA3r" "(done_dialog 5)")
 (action_tile "CASA3" "(done_dialog 4)")
 (action_tile "CASA2" "(done_dialog 3)")
 (action_tile   "CASA1" "(done_dialog 2)")
 (action_tile   "CASA0" "(done_dialog 1)")
 
 (action_tile   "BT-SAIR" "(done_dialog 0)")
   (setq UNI (NTH (atoi NLU) LUNIDADE))
   (COND   ((= NLU   "0") (setq UNIDADE 1   ))
      ((= NLU   "1") (setq UNIDADE 10  ))
      ((= NLU   "2") (setq UNIDADE 1000))) 
   (setq ESCALAR (atof (NTH (atoi NLE) LESCALA))) 
   (setq   XFIM1 (start_dialog))
 (if (=  XFIM1 0) (setq FLAGOK1 nil))
 (if (=  XFIM1 1)  (C:CASA0))
 (if (=  XFIM1 2)  (C:CASA1))
 (if (=  XFIM1 3)  (C:CASA2))
 (if (=  XFIM1 4)  (C:CASA3))
 (if (=  XFIM1 5)  (C:CASA3r))
 (if (=  XFIM1 6)  (C:CASA4))
 (if (=  XFIM1 7)  (C:CASA4r))
 
 (if (=  XFIM1 😎  (C:CA0))
 (if (=  XFIM1 9)  (C:CA1))
 (if (=  XFIM1 10) (C:CA2))
 (if (=  XFIM1 11) (C:CA3))
 (if (=  XFIM1 12) (C:CA3r))
 (if (=  XFIM1 13) (C:CA4))
 (if (=  XFIM1 14) (C:CA4r))) (princ))
 
;////////////////////////////////////////////////////////////////////////////////////////////////////////
;////////////////////////////////////////////////////////////////////////////////////////////////////////
(DEFUN C:CASA0 ()
(command   "_undo" "_begin")
(if SALVA (SALVA (list   "OSMODE" "CLAYER" "TEXTSTYLE")))
(setvar   "OSMODE" 512)
(setq VVBL   "FORMATO A0")
(VERIFICA-VVBL VVBL)
(setq VINSERT (getpoint))
(command   "_INSERT" VVBL VINSERT (* 20 (/ ESCALAR UNIDADE))  "" "" REVISAO END_OBRA CONTRATO (NTH (ATOI NLE) LESCALA) (NTH (ATOI NMES) LLMES) (NTH (ATOI NVERBA) LLVERBA) (NTH (ATOI NPROJJ) LLPROJJ) (NTH (ATOI NSPROJ) LLSPROJ) (NTH (ATOI NNCITY) LLNCITY) (NTH (ATOI NENDE) LLENDE) (NTH (ATOI NNOME) LLNOME) (NTH (ATOI NMAIL) LLMAIL) FOLHA)
(setq PTSI1 (getpoint " \nINFOME UM LOCAL PARA PAGINA AO " ) )
(if restaura (restaura))
(command   "_undo" "_end"))
0 Likes
Like
Report
490 Views
7 Replies
Replies (7)
Message 2 of 8

Moshe-A
Mentor
Mentor
‎02-27-2023 12:10 PM

@rolisonfelipe ,

 

i do not understand what this program do but i made the corrections (hope i'm not wrong) to make it load.

put in comment lines 23-27 are bad code for you fix 😀

 

Moshe

 

 

 

(DEFUN C:CA () (C:SELO))
;////////////////////////////////////////////////////////////////////////////////////////////////////////
(DEFUN C:SELO ()
 (setq FLAGOK nulo)
 (if (not FLAG-XLS) (EXECUTAR-LEARQXLS))
 ; IMPORTAR LISTA DO EXCEL A PARTIR DO ERRO, PORTANTO, DESEJO IMPORTAR DIRETAMENTE DA LISTA LSP
 (setq dcl_id (load_dialog "MENU-PADRÃO"))
 (setq FLAGOK1 T)
 (setq XFIM1 0)
 (enquanto FLAGOK1)
 (setq LUNIDADE (list "MILIMETRO" "CENTIMETRO" "METRO"))
 
 (setq LESCALA (list "50" "75" "100" "125" "200" "250" "400" "500" "750" "1000" "1250" "2000" "2500" "5000" "7500" "5000" "10000"))
 
 (setq LLMES (list "JAN/2022" "FEV/2022" "MAR/2022" "ABRIL/2022" "MAIO/2022" "JUN/2022" "JUL/2022" "AGO/2022" "SET/2022" "OUT/2022" "NOV/2022" "DEZ/2022"))
 
 (setq LLVERBA (list "NO ID" "BANK1" "BANK2"))
 
 (setq LLPROJJ (list "PROJETO ARQUITETONICO" "PROJETO EXECUTIVO" ))
 
 (setq LSPROJJ (list "DETALHE DE ACABAMENTO" "PLANTA DE FORRO"))
 
;| (setq LLNCITY LLNOME LLENDE LLMAIL (list "CIDADE" "NOME" "ENDE" "CORREIO" ""
				          "CIDADE A" "Nome A" "Rua A" "a@mail.com" ""
				          "CIDADE B" "Nome B" "Rua B" "b@mail.com" ""
				          "CIDADE C" "Nome C" "Rua C" "c@mail.com")); EU NESSE PONTO
|;				          
 
 (new_dialog   "EXECUTAR_TELA_CARIMBO" dcl_id)
; (setq LLMES
 ;////////////////////////////////////////////////////////////////////////////////////////////////////////
 ;combinar lista excel com dcl ou lsp
 (start_list "LUNIDADE") (mapcar 'add_list LUNIDADE) (end_list)
 (start_list "LESCALA" ) (mapcar 'add_list LESCALA ) (end_list)
 (start_list "LLMES"   ) (mapcar 'ADD_LIST LLMES   ) (end_list)
 (start_list "LLVERBA" ) (mapcar 'ADD_LIST LLVERBA ) (end_list)
 (start_list "LLPROJJ" ) (mapcar 'add_list LLPROJJ ) (end_list)
 (start_list "LLSPROJ" ) (mapcar 'add_list LLSPROJ ) (end_list)
 (start_list "LLNCITY" ) (mapcar 'add_list LLNCITY ) (end_list); EU NESSE PONTO
 (start_list "LLNOME"  ) (mapcar 'add_list LLNOME  ) (end_list); EU NESSE PONTO
 (start_list "LLENDE"  ) (mapcar 'add_list LLENDE  ) (end_list); EU NESSE PONTO
 (start_list "LLMAIL"  ) (mapcar 'add_list LLMAIL  ) (end_list); EU NESSE PONTO
 
 ;////////////////////////////////////////////////////////////////////////////////////////////////////////
 ;d ados que vem do dcl
 (se (não NLU     ) (setq NLU "0"))
 (se (não NLE     ) (setq NLE "0"))
 (se (não NMES    ) (setq NMES "0"))
 (se (não NVERBA  ) (setq NVERBA "1"))
 (se (não REVISAO ) (setq REVISAO "R0"))
 (se (não FOLHA   ) (setq FOLHA "01/"))
 (se (não END_OBRA) (setq END_OBRA "RUA"))
 (if (not CONTRATO) (setq CONTRATO   "INF. CONVEIO"))
 (se (não NPROJJ  ) (setq NPROJJ "1"))
 (se (não NSPROJ  ) (setq NSPROJ "1"))
 (se (não NNCITY  ) (setq NNCITY "1"))
 (se (não NNOME   ) (setq NNOME "1"))
 (se (não NENDE   ) (setq NENDE "1"))
 (se (não NMAIL   ) (setq NMAIL "1"))
 
 ;////////////////////////////////////////////////////////////////////////////////////////////////////////
 ;d ados que vem do dcl
  (set_tile "REVISAO"   REVISAO)
  (set_tile "FOLHA"     FOLHA)
  (set_tile "END_OBRA"  END_OBRA)
  (set_tile "CONTRATO"  CONTRATO)
  (set_tile "LUNIDADE"  NLU)
  (set_tile "LESCALA"   NLE)
  (set_tile "LLMES"     NMES)
  (set_tile "LLVERBA"   NVERBA)
  (set_tile "LLPROJJ"   NPROJJ)
  (set_tile "LLSPROJ"   NSPROJ)
  (set_tile "LLNCITY"   NNCITY)
  (set_tile "LLNOME"    NNOME)
  (set_tile "LLENDE"    NENDE)
  (set_tile "LLMAIL"    NMAIL) 
 
;////////////////////////////////////////////////////////////////////////////////////////////////////////
 ;dados que vem do dcl
  (action_tile   "REVISAO" "(setq REVISAO $value)")
  (action_tile   "FOLHA" "(setq FOLHA $value)")
  (action_tile   "END_OBRA" "(setq END_OBRA $value)")
  (action_tile   "CONTRATO" "(setq CONTRATO $value)")
  (action_tile   "LLMES" "(setq NMES $value)") 
  (action_tile   "LLVERBA" "(setq NVERBA $value)") 
  (action_tile   "LLPROJJ" "(setq NPROJJ $value)")
  (action_tile   "LLSPROJ" "(setq NSPROJ $value)")
  (action_tile   "LLNCITY" "(setq NNCITY $value)")
  (action_tile   "LLENDE" "(setq NENDE $value)")
 
  (action_tile   "LUNIDADE" "(EXECUTAR-NLU)")
  (action_tile   "LESCALA" "(EXECUTAR-NLE)")
 
  (action_tile "CA4r" "(done_dialog 14)")
  (action_tile "CA4" "(done_dialog 13)")
  (action_tile "CA3r" "(done_dialog 12)")
  (action_tile "CA3" "(done_dialog 11)")
  (action_tile "CA2" "(done_dialog 10)")
  (action_tile "CA1" "(done_dialog 9)")
  (action_tile "CA0" "(done_dialog 8)")
 
  (action_tile "CASA4r" "(done_dialog 7)")
  (action_tile "CASA4" "(done_dialog 6)")
  (action_tile "CASA3r" "(done_dialog 5)")
  (action_tile "CASA3" "(done_dialog 4)")
  (action_tile "CASA2" "(done_dialog 3)")
  (action_tile   "CASA1" "(done_dialog 2)")
  (action_tile   "CASA0" "(done_dialog 1)")
 
  (action_tile   "BT-SAIR" "(done_dialog 0)")
  (setq UNI (NTH (atoi NLU) LUNIDADE))
	
  (COND
   ((= NLU   "0") (setq UNIDADE 1   ))
   ((= NLU   "1") (setq UNIDADE 10  ))
   ((= NLU   "2") (setq UNIDADE 1000))
  )
       
  (setq ESCALAR (atof (NTH (atoi NLE) LESCALA))) 
  (setq   XFIM1 (start_dialog))
       
  (if (=  XFIM1 0) (setq FLAGOK1 nil))
  (if (=  XFIM1 1)  (C:CASA0))
  (if (=  XFIM1 2)  (C:CASA1))
  (if (=  XFIM1 3)  (C:CASA2))
  (if (=  XFIM1 4)  (C:CASA3))
  (if (=  XFIM1 5)  (C:CASA3r))
  (if (=  XFIM1 6)  (C:CASA4))
  (if (=  XFIM1 7)  (C:CASA4r))
 
  (if (=  XFIM1 :smiling_face_with_sunglasses:)  (C:CA0))
  (if (=  XFIM1 9)  (C:CA1))
  (if (=  XFIM1 10) (C:CA2))
  (if (=  XFIM1 11) (C:CA3))
  (if (=  XFIM1 12) (C:CA3r))
  (if (=  XFIM1 13) (C:CA4))
  (if (=  XFIM1 14) (C:CA4r))
 (princ)
)
 
;////////////////////////////////////////////////////////////////////////////////////////////////////////
;////////////////////////////////////////////////////////////////////////////////////////////////////////
(DEFUN C:CASA0 ()
 (command   "_undo" "_begin")
  
 (if SALVA (SALVA (list   "OSMODE" "CLAYER" "TEXTSTYLE")))
 (setvar   "OSMODE" 512)
 (setq VVBL   "FORMATO A0")
 (VERIFICA-VVBL VVBL)
 (setq VINSERT (getpoint "\nInsertion point: "))
 (command   "_INSERT" VVBL VINSERT (* 20 (/ ESCALAR UNIDADE))  "" "" REVISAO END_OBRA CONTRATO (NTH (ATOI NLE) LESCALA) (NTH (ATOI NMES) LLMES) (NTH (ATOI NVERBA) LLVERBA) (NTH (ATOI NPROJJ) LLPROJJ) (NTH (ATOI NSPROJ) LLSPROJ) (NTH (ATOI NNCITY) LLNCITY) (NTH (ATOI NENDE) LLENDE) (NTH (ATOI NNOME) LLNOME) (NTH (ATOI NMAIL) LLMAIL) FOLHA)
 (setq PTSI1 (getpoint " \nINFOME UM LOCAL PARA PAGINA AO " ) )
 (if restaura (restaura))
  
 (command   "_undo" "_end")
)

made  

0 Likes
Like
Report
Message 3 of 8

rolisonfelipe
Collaborator
Collaborator
in reply to Moshe-A
‎02-27-2023 12:37 PM
 
THE PURPOSE OF THIS PROGRAM IS TO GENERATE REPEATED DATA ON CUSTOMERS AND THEIR REFERENCES AND COMPLETE THE PROJECT, BUT I TRIED TO USE EXCEL, BUT HAD NO LUCK..
SO THE LOGIC IS TO USE THE LIST   
  
  
 
(setq REFERENCIA_CITY_ ( LIST (
LLNCITY  '(("LLNOME" "LLENDE" "LLMAIL"))
CIDADE A '(("Nome A" "Rua A" "a@mail.com"))
CIDADE B '(("Nome B" "Rua B" "b@mail.com"))
CIDADE C '(("Nome C" "Rua C" "c@mail.com")))))
 
 
FEITO ISSO, AO SELECIONAR A FUNÇÃO LLNCITY, O NOME DA CIDADE -> SER ASSOCIADO À FUNÇÃO LLNOME O NOME DA CIDADE -> A FUNÇÃO LLENDE O NOME DA RUA -> A FUNÇÃO LLMAIL AO E-MAIL
0 Likes
Like
Report
Message 4 of 8

Moshe-A
Mentor
Mentor
in reply to rolisonfelipe
‎02-27-2023 12:45 PM

So what is the problem here?

 

 

0 Likes
Like
Report
Message 5 of 8

rolisonfelipe
Collaborator
Collaborator
in reply to Moshe-A
‎02-28-2023 04:21 AM
IN MY ORIGINAL PROGRAM THAT GOES WRONG, IT IS WRITTEN TO IMPORT FROM EXCEL
 
 
(setq CELULAS   (VLAX-GET PASTA9   "CELLS"))
(setq LLNCITY '())
(setq LLNOME  '())
(setq LLENDE  '())
(setq LLMAIL  '())
(setq LL 1) (LE-LINHA-XLS LL 10)
(setq NN 0) (while (/=   "" (NTH 0 LXLS))
(setq LLNCITY (cons (NTH 0 LXLS) LLNCITY))
(setq LLNOME  (cons (NTH 1 LXLS) LLNOME))
(setq LLENDE  (cons (NTH 2 LXLS) LLENDE))
(setq LLMAIL  (cons (NTH 3 LXLS) LLMAIL))
    (setq LL  (+ LL 1)) (LE-LINHA-XLS LL 10))
(setq LLNCITY (REVERSE LLNCITY))
(setq LLNOME  (REVERSE LLNOME))
(setq LLENDE  (REVERSE LLENDE))
(setq LLMAIL  (REVERSE LLMAIL))
 
 
THIS SERIOUS VERSION TO IMPORT FROM LSP'S INTERNAL LIST, BUT IT HAS NOT BEEN OUT AS EXPECTED
  
  
 
(setq REFERENCIA_CITY_LST ( LIST (
LLNCITY  '(("LLNOME" "LLENDE" "LLMAIL"))
CIDADE A '(("Nome A" "Rua A" "a@mail.com"))
CIDADE B '(("Nome B" "Rua B" "b@mail.com"))
CIDADE C '(("Nome C" "Rua C" "c@mail.com")))))
 
 
 
(setq LLNCITY (cons (NTH 0 ) REFERENCIA_CITY_LST)
(CAR(setq LLNOME  (cons (NTH 1 ))))
(CAR(setq LLENDE  (cons (NTH 2 ))))
(CAR(setq LLMAIL  (cons (NTH 3 )))))
 
 
DONE THAT, WHEN SELECTING THE LLNCITY FUNCTION, THE CITY NAME -> BE ASSOCIATED TO THE LLNOME FUNCTION THE CITY NAME -> THE LLENDE FUNCTION THE STREET NAME -> THE LLMAIL FUNCTION TO THE EMAIL
0 Likes
Like
Report
Message 6 of 8

Moshe-A
Mentor
Mentor
in reply to rolisonfelipe
‎02-28-2023 09:05 AM

@rolisonfelipe  hi,

 

the best and simple way to read\write to excel file is to work with csv files.

>> here is an example from Lee Mac << 

 

Moshe

 

Report
Message 7 of 8

Sea-Haven
Mentor
Mentor
‎02-28-2023 03:41 PM

Grab screen shot of your dcl and excel then paste back into CAD and mark up what it is your trying to read from excel showing where values go. Post Excel. Yes can read direct from excel.

0 Likes
Like
Report
Message 8 of 8

rolisonfelipe
Collaborator
Collaborator
in reply to Sea-Haven
‎02-28-2023 09:39 PM

THE ROUTINE THAT CONTROLS EXCEL

(DEFUN EXECUTE-LEARQXLS()
(vl-load-com)
(setq CELLS nil)
(setq EXCEL-APP (vlax-create-object "EXCEL.APPLICATION"))
(setq WB-COLLEC (vlax-get excel-app "WORKBOOKS"))
(setq ARQXLS (findfile "STANDARD.XLS"))
(if (not ARQXLS)
(progn(alert "**** XLS FILE NOT FOUND!*")(exit)))
(setq FILE (VLAX-INVOKE-METHOD WB-COLLEC "OPEN" ARQXLS))
(setq FOLDERS (VLAX-GET FILE "SHEETS"))
(setq FOLDER1 (VLAX-GET-PROPERTY FOLDER "ITEM" 1))
(setq FOLDER2 (VLAX-GET-PROPERTY FOLDER "ITEM" 2))
(setq FOLDER3 (VLAX-GET-PROPERTY FOLDER "ITEM" 3))
(setq FOLDER4 (VLAX-GET-PROPERTY FOLDER "ITEM" 4))
(setq FOLDER5 (VLAX-GET-PROPERTY FOLDER "ITEM" 5))
(setq FOLDER6 (VLAX-GET-PROPERTY FOLDER "ITEM" 6))
(setq FOLDER7 (VLAX-GET-PROPERTY FOLDER "ITEM" 7))
(setq FOLDER8 (VLAX-GET-PROPERTY FOLDER "ITEM" 8))
(setq FOLDER9 (VLAX-GET-PROPERTY FOLDER "ITEM" 9)) ; DATA FOLDER

"""""
(CÉLULAS SETQ (VLAX-GET FOLDER9 "CÉLULAS"))
(setq LLNCITY '())(setq LLNAME '())(setq LENDE '())(setq LLMAIL '())(setq LL 1) (LE-LINE-XLS LL 10)(setq NN 0) (while (/= "" (NTH 0 LXLS))(setq LLNCITY (cons (NTH 0 LXLS) LLNCITY))(setq LLNOME (cons (NTH 1 LXLS) LLNOME))(setq LLENDE (cons (NTH 2 LXLS) LLENDE))(setq LLMAIL (cons (NTH 3 LXLS) LLMAIL))









(setq LL (+ LL 1)) (LE-LINE-XLS LL 10))
(setq LLNCITY (LLNCITY REVERSO))
(setq LLNAME (REVERSE LLNOME))(setq LLENDE (REVERSE LLENDE))

(setq LLMAIL (REVERSE LLMAIL))
""""

O PROBLEMA COM ESTA PROGRAMAÇÃO É QUE QUANDO EU MUDO O NOME DA CIDADE, OS DADOS CORRESPONDENTES INSERIDOS NO BLOCO NÃO ACOMPANHAM A SELEÇÃO ELES SÓ PERMANECEM NA CIDADE "A".

DIGITE:
SELECIONE CIDADE A, NO BLOCO INSERIR = CIDADE A, NOME A, ENDEREÇO A, E-MAIL A SELECIONE CIDADE B, NO BLOCO INSERIR = CIDADE B, NOME A, ENDEREÇO A, E-MAIL A SELECIONE CIDADE C, NO BLOCO INSERIR = CIDADE B, NOME A, ENDEREÇO A, E-MAIL A

(view in My Videos)

 

0 Likes
Like
Report
Report a website issue