Salve
vorrei sapere come creare un file script per importare dei testi su autocad in un punto predeterminato.
Moderatori: Anthony47, Flash30005
federicob ha scritto:Salve
vorrei sapere come creare un file script per importare dei testi su autocad in un punto predeterminato.
DimCerchio = 5
UROut = Range("AV" & Rows.Count).End(xlUp).Row
If Range("AV" & UROut) = "_pline" Then
Range("AV" & UROut).Clear
Else:
Range("AV" & UROut).FormulaLocal = Range("AV" & UROut) & " "
End If
Range("AV" & UROut + 1) = "_circle"
Range("AV" & UROut + 2).FormulaLocal = Range("AT" & UROut - U + Rif + 1) & "," & Range("AU" & UROut - U + Rif + 1)
Range("AV" & UROut + 3) = DimCerchio
Range("AV" & UROut + 4) = "_point"
Range("AV" & UROut + 5).FormulaLocal = Range("AT" & UROut - U + Rif + 1) & "," & Range("AU" & UROut - U + Rif + 1)
Range("AV" & UROut + 6) = "_text"
Range("AV" & UROut + 7).FormulaLocal = "'@" & DimCerchio * 1.5 & "," & -DimCerchio / 2
Range("AV" & UROut + 8) = DimCerchio
Range("AV" & UROut + 9) = 0
Range("AV" & UROut + 10).FormulaLocal = Round(AzimutStr, 0) & "/" & Round(InclStr, 0)
End If
wallace&gromit ha scritto:c'entra, c'entra...
Sub CompilaProiezioni()
URIn = Range("A" & Rows.Count).End(xlUp).Row
UROut = Range("F" & Rows.Count).End(xlUp).Row
If UROut = 1 Then
UROut = 2
End If
Range("F" & 2, "F" & UROut).Clear
For i = 2 To URIn
UROut = Range("F" & Rows.Count).End(xlUp).Row
DimCerchio = Range("J2")
DimTesto = Range("J4")
Range("F" & UROut + 1) = "_circle"
Range("F" & UROut + 2).FormulaLocal = Range("B" & i) & "," & Range("C" & i) & "," & Range("D" & i)
Range("F" & UROut + 3) = DimCerchio
Range("F" & UROut + 4) = "_point"
Range("F" & UROut + 5).FormulaLocal = Range("B" & i) & "," & Range("C" & i) & "," & Range("D" & i)
Range("F" & UROut + 6) = "_text"
Range("F" & UROut + 7).FormulaLocal = "'@" & DimCerchio * 1.5 & "," & -DimTesto / 2
Range("F" & UROut + 8) = DimTesto
Range("F" & UROut + 9) = 0
Range("F" & UROut + 10).FormulaLocal = Range("A" & i)
Next i
Call CreaScript
End Sub
Sub CreaScript()
ScriptName = Application.GetSaveAsFilename("", fileFilter:="File di Testo (*.scr), *.scr")
On Local Error Resume Next
Kill ScriptName
On Error GoTo 0
Open ScriptName For Output As 1
i = 2
Do Until Range("F" & i) = ""
Print #1, Range("F" & i).Text
i = i + 1
Loop
Close 1
Range("F2").Select
End Sub
Torna a Applicazioni Office Windows
Screenshot automatizzato fogli excel:script?macro o...? Autore: Paolo67met |
Forum: Programmazione Risposte: 9 |
È possibile passare uno script da vba a app per smartphone? Autore: wallace&gromit |
Forum: Applicazioni Office Windows Risposte: 6 |
Visitano il forum: Nessuno e 10 ospiti