Newsgroup: it.discussioni.ingegneria.civile
Titolo: link per profilario (ben fatto) e richiesta su palancole

http://bar-ingegneria.forumfree.net/?t=6835618
c'è un profilario davvero completo....
Mancano solo i dati relativi alle palancole...suggerimenti? 

 Mancano solo i dati relativi alle palancole...suggerimenti?
qual è il ink da cliccare? in mezzo a qual foprum ce ne sono molti e mi sono 
perso... 

 Mancano solo i dati relativi alle palancole...suggerimenti?
Quel sagomario è mio ed e' in continua evoluzione. Il link all'ultima
versione del sagomario e':
http://bar-ingegneria.forumfree.net/?f=1303161
 3D Sadomario e DXF.
E' nelle mie intenzioni inserire in quel sagomario tutti i profili
possibili ed immaginabili.
Se qualcuno possiede i dati dei profili per palancole io posso inserirli
in pochi minuti.
Saluti.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Mancano solo i dati relativi alle palancole...suggerimenti?
Quel sagomario è mio ed è in continua evoluzione. Il link alla versione
piu' aggiornata del sagomario e:
http://bar-ingegneria.forumfree.net/?f=1303161
 e viasualizzare quindi il
3d "sagomario e Dxf"
E' mia intenzione inserire qualsiasi profili possibile, pertanto se
qualcuno possiede i dati per i profili per palancole e vuole passarmeli
io li inserisco in pochi minuti.
saluti. giò


 il 3d "sagomario e Dxf"
Ottimo lavoro. Imho potresti aggiungere le fonti (norme uni, catalogo 
produttori privati, ecc.) relative a ciascun profilo.
-- 
Ciao, DOCstone

 io li inserisco in pochi minuti.
http://www.darioflaccovio.it/abstracts/?codice=DF6168&file=DF6168.pdf

 giò ha scritto:

Purtroppo i dati dei profili riportati in questo documento pdf non sono
nemmeno copincollabili.
bye


 nemmeno copincollabili.
Hai posta (il file pdf passato al ghost script) 

Riprendendo quanto accennato da Apteryx
Ghost script permette di convertire PDF protetti in altri formati, tra 
cui anche il PDF NON protetto.
è open source
http://sourceforge.net/projects/ghostscript/

 wrote in message
news:45f554c0$0$808$
4faf...@reader5.news.tin.it

Ricevuto!
Domani spero di trovare mezz'ora e li inserisco. Nel frattempo ho
trovato un file excel in rete con 75 profilati. L'intestazione indica
che sono anch'essi profili tipo LARSSEN.
Voi che ne dite?
http://www.technopromotion.net/palservice/profili.xls


All'indirizzo che ho gia dato in coda al 3d "sagomario e DXF", trovate
l'aggiornamento del sagomario con aggiunti i profili per palancole.
Bye

Ottimo lavoro, sarà uno strumento prezioso...!
Volevo solo segnalarti che c'è un problema nel codice VB riguardo alla 
creazione del DXF...se quando hai tempo ci puoi dare un'occhiata... 


Nella mia postazione e' tutto funzionante. L'errore che lamenti
durante l'esecuzione del codice è dovuto probabilmente alla
impostazione di default della dichiarazione esplicita delle variabili.
Ho reso esplicite tutte le variabili per la creazione del file dxf.
Scaricalo sempre dal 3d "sagomario e DXF" dal seguente link.
http://bar-ingegneria.forumfree.net/?f=1303161
Fammi sapere se adesso funziona.
bye

niente da fare, mi crea un errore di compilazione nel modul DXF salvafile 
(evidenziata la funzione Mid)..purtroppo ho dimenticato TUTTO della 
compilazione in VB, fosse stato ai tempi della tesi avrei probabilmente 
risolto da solo...ma ora non riesco... 

robygen ha scritto:

Premesso che a me non funziona a priori! :-)  io uso OO.Calc e 
l'interfaccia è diversa da quella di Office.
Comunque, da programmatore VB...giusto per rinfrescarti le idee per 
debuggarti l'applicazione:
- apri l'editor di VBA premi F9 sulla prima riga della procedura che va 
in errore (ovvero inserisci un breakpoint)
- F8 per avanzare passo passo e vedi cosa contengono le variabili.
IMHO l'unico motivo per cui possa andare in errore la funzione MID è che 
"a" sia vuoto....forse selezioni qualche profilo non gestito? o non 
selezioni alcun profilo: il "selecteditem(1)" è vuoto.

 l'interfaccia è diversa da quella di Office.
Puoi comunque usare quel file rinunciando a qualche automazione data
dal poco codice presente e sfruttare per i tuoi scopi la massa di
tabelle in esso contenute.
Ciao

 selezioni alcun profilo: il "selecteditem(1)" è vuoto.
l'istruzione        nomeprofilo = Mid(a, 1, Len(a) - 4) + ".dxf"
altro non fa che togliere l'estensione .xls che purtroppo il dialogo
assegna in automatico al nome del file per sostituirla con
l'estensione .dxf.
La variabile "a" [ a = .SelectedItems(1) ] contiene il nome del file
selezionato nel diagolo "salva dxf" che appare. Pertanto "a" dovrebbe
comunque contenere qualcosa poichè il bottone "salva" del dialogo
"salva dxf" in caso contrario non si attiva.
Non mi spiego, pertanto, l'errore che lamenti se non ipotizzando che
non hai installato tutto il pacchetto di excel oppure non hai attivato
una qualche libreria di funzioni fondamentale.
bye

gio...@tin.it
 ha scritto:

Per carità! nessuna critica! anzi: lodevole iniziativa la tua!
.....la tabelle sono abbastanza complete....mi riferivo solo al DXF!

 
...non IO....ovviamente ti riferivi a robygen :-) ...io excel non l'ho 
installato per niente :-)

 installato per niente :-)
Certamente; mi riferivo a robygen pur essendomi appoggiato al tuo post.


 
Ho provato la procedura su un altro PC su cui è installato Office ed ho
riscontrato anch'io il problema già citato.
Non so quale versione hai utilizzato comunque il problema è "genico" su
molte funzioni, ovvero è necessario specificare l'oggetto da cui
estrarre la proprietà.
Tutte le funzioni  Mid, LTrim, RTrim, Str richiedono che venga
esplicitamente riportato l'oggetto VBA e quindi devono diventare:
VBA.Mid,  VBA.LTrim  VBA.RTrim    VBA.Str
Consiglio:
------------------------------------------
Sicuramente è poco pratico creare un DXF e poi manualmente aprire ACAD
per la visualizzazione di tale file.
IMHO è meglio consentire l'apertura immediata di tale file (...e quindi
in questo caso appoggiare il file in $Win\Temp senza specificare
esplicitamente il nome...in modo sbrigativo ho solo accodato l'apertura
di ACAD dopo il salvataggio...che a questo punto potrebbe avvenire in
Background)
Nell'Intestazione del modulo DXF inserisci la seguente dichiarazione:
-------------------------------
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal
lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As
String, ByVal nShowCmd As Long) As Long
Sub Crea_DXF()
  [......]
---------------------------------
-----------------
Sub DXF_profili(CoOrdinate As Variant, numero_r As Integer, n_pol As
Integer)
[....]
     Call dxf_close_file(FileNumber)
     Close #FileNumber
     MsgBox "Creazione dxf eseguita"
---->   ShellExecute 0, vbNullString, nprofilo, vbNullString, "", 1
Else
     MsgBox "Creazione dxf annullata"
End If
End Sub
--------------------------------------------------------------------
-- 
Ciao, Nobody
[cit.]...Le strutture non cadono mai,
ma quando cadono fanno un gran casino!
mail:   indirizzomail Toglimi chiocciola gmail punto com

 --------------------------------------------------------------------
Ti ringrazio molto per gli opportuni suggerimenti.
Ho apportato le modifiche suggerite, anche se ancora non comprendo i
motivi per cui quelle istruzioni Mid, Str, Ltrim ecc ecc vengono
eseguite nella mia postazione mentre non sono riconosciute altrove.
Trovate il file corretto al solito indirizzo.
http://bar-ingegneria.forumfree.net/?t=13904602&st=15#lastpost
saluti