; error: no function definition: C:CARIMBO1 E C:CARIMBO2

rolisonfelipe · ‎12-20-2020

I NEED TO IMPORT DATA FROM EXCEL TO AUTOCAD.... HEEEELP

DCL......

EXECUTAR_TELA_CARIMBO : dialog
{label = "STANDARD©2021";
:row{
: boxed_column{ label="[ INFORME DADOS DO SELO ]";
: edit_box {label = "CONTRATO " ;key = "CONTRATO";fixed_width=true;width=0;edit_width =50;}
: popup_list {label = "PREFEITURA " ;key = "LLNCITY";fixed_width=true;width=30;edit_width =50;}
: popup_list {label = "PROJETO " ;key = "LLPROJJ";fixed_width=true;width=30;edit_width =50;}
: popup_list {label = "SUB PROJETO" ;key = "LLSPROJ";fixed_width=true;width=30;edit_width =50;}
}
}
:column {
:row{ label="";
: edit_box {label = "MES/ANO" ;key = "DATAPROJJ";fixed_width=true;width=1;edit_width =20;}
: edit_box {label = "ESCALA" ;key = "ESCPROJJ";fixed_width=true;width=1;edit_width =20;}
}
}
:column {
:row{ label="";
: button {label = "OK!! SAIR" ; key = "BT-SAIR" ; fixed_width=true;width=15;alignment=centered;}
: button {label = "FORMATO TIPO 1" ; key = "BT-CARIMBO-AMBAS" ; fixed_width=true;width=15;alignment=centered;is_default=true;}
: button {label = "FORMATO TIPO 2" ; key = "BT-CARIMBO-STANDARD" ; fixed_width=true;width=15;alignment=centered;is_default=true;}
}
}
}

LSP LER EXCEL

;////////////////////////////////////////////////////////////////////////////////////////////////
;////////////////////////////////////////////////////////////////////////////////LER XLS COMMANDS
;////////////////////////////////////////////////////////////////////////////////////////////////
(DEFUN EXECUTAR-LEARQXLS ()
;
(VL-LOAD-COM)
(SETQ CELULAS 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 "*** ARQUIVO XLS NÃO ENCONTRADO! ***")
(EXIT)
)
)

;////////////////////////////////////////////////////////////////////////////////////////////////
(SETQ ARQ (VLAX-INVOKE-METHOD WB-COLLEC "OPEN" ARQXLS))
(SETQ PASTAS (VLAX-GET ARQ "SHEETS"))

(SETQ PASTA8 (VLAX-GET-PROPERTY PASTAS "ITEM" 8))
(SETQ PASTA9 (VLAX-GET-PROPERTY PASTAS "ITEM" 9))

///////////////////

;////////////////////////////////////////////////////////////////////////////////////////////////
(SETQ CELULAS (VLAX-GET PASTA8 "CELLS")); EXCEL8 PROJETO E SUBPROJETO
;
(SETQ LLPROJJ '())
(SETQ LL 1)
(LE-LINHA-XLS LL 10)
(SETQ NN 0)
(WHILE (OR (/= "" (NTH 0 LXLS)) (/= "" (NTH 1 LXLS)) )
(SETQ LLPROJJ (CONS (NTH 0 LXLS) LLPROJJ))
(SETQ LL (+ LL 1))
(LE-LINHA-XLS LL 10)
)
(SETQ LLPROJJ (REVERSE LLPROJJ))

;////////////////////////////////////////////////////////////////////////////////////////////////
(SETQ CELULAS (VLAX-GET PASTA8 "CELLS")); EXCEL8 PROJETO E SUBPROJETO
;
(SETQ LLSPROJ '())
(SETQ LL 1)
(LE-LINHA-XLS LL 10)
(SETQ NN 0)
(WHILE (OR (/= "" (NTH 0 LXLS)) (/= "" (NTH 1 LXLS)) )
(SETQ LLSPROJ (CONS (NTH 0 LXLS) LLSPROJ))
(SETQ LL (+ LL 1))
(LE-LINHA-XLS LL 10)
)
(SETQ LLPROJJ (REVERSE LLPROJJ))

;////////////////////////////////////////////////////////////////////////////////////////////////
(SETQ CELULAS (VLAX-GET PASTA9 "CELLS")); EXCEL9 PREFEITURAS
(SETQ LLNCITY '())
(SETQ LLNOME '())
(SETQ LLENDE '())
(SETQ LLCNPJ '())
(SETQ LL 2)
(LE-LINHA-XLS LL 10)
(SETQ NN 0)
(WHILE (OR (/= "" (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 LLCNPJ (CONS (NTH 3 LXLS) LLENDE))
(SETQ LL (+ LL 1))
(LE-LINHA-XLS LL 10)
)
(SETQ LLNCITY (REVERSE LLNCITY))
(SETQ LLNOME (REVERSE LLNOME))
(SETQ LLENDE (REVERSE LLENDE))
(SETQ LLCNPJ (REVERSE LLCNPJ))
;

;////////////////////////////////////////////////////////////////////////////////////////////////
;////////////////////////////////////////////////////////////////////////////////////////////////
(VLAX-INVOKE-METHOD WB-COLLEC "CLOSE")
(VLAX-INVOKE-METHOD EXCEL-APP "QUIT" )
(SETQ FLAG-XLS T);
(PRINC)
)

;////////////////////////////////////////////////////////////////////////////////////////////////
(DEFUN LE-LL-CC (#LL #CC)
(SETQ #AA (vlax-get-property celulas "item" #LL #CC))
(SETQ #BB (vlax-variant-change-type #AA vlax-vbstring))
;
(IF (NOT #BB)
(PROGN
(ALERT (STRCAT "*** ERRO EM CELULA : " (CHR (+ 64 #CC)) "-" (ITOA #LL) " ***"))
(EXIT)
)
)
;
(vlax-variant-value #BB)
)
(DEFUN LE-LINHA-XLS (#LL #CC)
(SETQ LXLS NIL)
(SETQ #NC 1)
(REPEAT #CC
(SETQ VALOR-CC (LE-LL-CC #LL #NC))
(SETQ LXLS (CONS VALOR-CC LXLS))
(SETQ #NC (+ #NC 1))
)
(SETQ LXLS (REVERSE LXLS))
)
(DEFUN EXECUTAR-NLU ()
(SETQ NLU $value)
(SETVAR "USERI2" (+ (ATOI NLU) 1))
)
(DEFUN EXECUTAR-NLE ()
(SETQ NLE $value)
(SETVAR "USERI3" (+ (ATOI NLE) 1))
)

JOB..............................................................

(DEFUN C:CA () (C:CARIMBO))
;===========================================================
(DEFUN C:CARIMBO ()
(SETQ FLAGOK nil)
;
(IF (NOT FLAG-XLS) (EXECUTAR-LEARQXLS) )
;
(SETQ DCL_ID (LOAD_DIALOG "STANDARD"))
(SETQ FLAGOK1 T)
(SETQ XFIM1 0)
;
(WHILE FLAGOK1
(NEW_DIALOG "EXECUTAR_TELA_CARIMBO" DCL_ID)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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)
(START_LIST "LLNOME") (MAPCAR 'ADD_LIST LLNOME) (END_LIST)
(START_LIST "LLENDE") (MAPCAR 'ADD_LIST LLENDE) (END_LIST)
(START_LIST "LLCNPJ") (MAPCAR 'ADD_LIST LLCNPJ) (END_LIST)
(IF (NOT NPROJJ) (SETQ NPROJJ "0"))
(IF (NOT NSPROJ) (SETQ NSPROJ "0"))
(IF (NOT NNCITY) (SETQ NNCITY "0"))
(IF (NOT NNOME) (SETQ NNOME "0"))
(IF (NOT NENDE) (SETQ NENDE "0"))
(IF (NOT NCNPJ) (SETQ NCNPJ "0"))
(IF (NOT ESCPROJJ) (SETQ ESCPROJJ " 1: 50 "))
(IF (NOT DATAPROJJ) (SETQ DATAPROJJ " 2020"))
(IF (NOT CONTRATO) (SETQ CONTRATO " ADD CONVÊNIO SINAP/SETOP "))
(SET_TILE "LLPROJJ" NPROJJ)
(SET_TILE "LLSPROJ" NSPROJ)
(SET_TILE "LLNCITY" NNCITY)
(SET_TILE "LLNOME" NNOME)
(SET_TILE "LLENDE" NENDE)
(SET_TILE "LLCNPJ" NCNPJ)
(SET_TILE "ESCPROJJ" ESCPROJJ)
(SET_TILE "DATAPROJJ" DATAPROJJ)
(SET_TILE "CONTRATO" CONTRATO)
(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 "DATAPROJJ" "(SETQ DATAPROJJ $value)")
(ACTION_TILE "ESCPROJJ" "(SETQ ESCPROJJ $value)")
(ACTION_TILE "CONTRATO" "(SETQ CONTRATO $value)")
(ACTION_TILE "BT-CARIMBO-STANDARD" "(DONE_DIALOG 2)")
(ACTION_TILE "BT-CARIMBO-AMBAS" "(DONE_DIALOG 1)")
(ACTION_TILE "BT-SAIR" "(DONE_DIALOG 0)")
(SETQ XFIM1 (START_DIALOG))
;
(IF (= XFIM1 0) (SETQ FLAGOK1 nil))
(IF (= XFIM1 1) (C:CARIMBO1))
(IF (= XFIM1 2) (C:CARIMBO2)))
(PRINC)
)

;////////////////////////////////////////////////////////////////////////////////////////////////
(DEFUN C:CARIMBO1 ()
;
(COMMAND "_UNDO" "_BEGIN")
(IF SALVA (SALVA (LIST "OSMODE")))
(SETVAR "OSMODE" 512)
;(SETQ FLAGOK1 nil)
;(IF (NOT FLAGAA)(ALERT "\n INFORME UMA REFERÊNCIA! "))(SETQ FLAGIJ T)
;
(SETQ VVBL "TEST")
(VERIFICA-VVBL VVBL);
(SETQ VINSERT (GETPOINT))
(COMMAND "_INSERT" VVBL VINSERT ESCALA "" "" CONTRATO ESCPROJJ DATAPROJJ (NTH (ATOI NPROJJ) LLPROJJ) (NTH (ATOI NSPROJ) LLSPROJ) (NTH (ATOI NNOME) LLNOME) (NTH (ATOI NNCITY) LLNCITY) (NTH (ATOI NENDE) LLENDE) (NTH (ATOI NCNPJ) LLCNPJ )
(SETQ PTSI1 (GETPOINT"\n>>Selecione um Ponto Interno <ENTER=Fim>: "))
;
(IF RESTAURA (RESTAURA))
(COMMAND "_UNDO" "_END")
;
)

;////////////////////////////////////////////////////////////////////////////////////////////////
(DEFUN C:CARIMBO2 ()
;
(COMMAND "_UNDO" "_BEGIN")
(IF SALVA (SALVA (LIST "OSMODE")))
(SETVAR "OSMODE" 512)
;(SETQ FLAGOK1 nil)
;(IF (NOT FLAGAA)(ALERT "\n INFORME UMA REFERÊNCIA! "))(SETQ FLAGIJ T)
;
(SETQ VVBL "TEST")
(VERIFICA-VVBL VVBL);
(SETQ VINSERT (GETPOINT))
(COMMAND "_INSERT" VVBL VINSERT ESCALA "" "" CONTRATO ESCPROJJ DATAPROJJ (NTH (ATOI NPROJJ) LLPROJJ) (NTH (ATOI NPREFF) LLPREFF) (NTH (ATOI NNOME) LLNOME) (NTH (ATOI CNPJ) LLCNPJ) (NTH (ATOI ENDE) LLENDE) )
(SETQ PTSI1 (GETPOINT"\n>>Selecione um Ponto Interno <ENTER=Fim>: "))
;
(IF RESTAURA (RESTAURA))
(COMMAND "_UNDO" "_END")
;
)

;;;

hak_vz · ‎12-21-2020

Attach all your lisp ad dcl files with all missing functions.

For example function (VERIFICA-VVBL ) is missing.

There is your similar post from 2017.

Miljenko Hatlak

Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.

rolisonfelipe · ‎12-21-2020

I SOLVER... THANK-U