Witam
Robię to za pomocą kostki wizualizacyjnej.
OBI WAN i ac cobra 427, wszystko to działa dobrze dla wszystkich ciał z wyjątkiem Arkusza...
Za pomocą kostki wizualizacyjnej uzyskuje się wymiary części złożonej i nierozłożonej.
Dobry... metoda, której zamierzam użyć w międzyczasie, polega na skopiowaniu tego wyrażenia w polu "Opis":
Grubość blachy "SW-Grubość tôlerie@@@SW-CutListItemName@SW-FileName(FileName)"... "SW-Flank Length tôle@@@SW-CutListItemName@SW-FileName(FileName)"x"SW-Flank Width tôle@@@SW-CutListItemName@SW-FileName(FileName)"
Ideałem byłaby możliwość skopiowania go w polu normalnie zajmowanym przez "Arkusz" (patrz pj), ale jak powiedział max59, nie ma tam możliwości skopiowania znaku specjalnego ...
2019-02-27_14h33_20.png
1 polubienie
Podtrzymuję ideę Makro,
Osobiście mam makro do nagrania, które wykonuje:
- Widok wymiarowy
- Zoom w najlepszym wydaniu
-Zamelduj się
=> wszystkie połączone z "S", co oznacza, że po naciśnięciu S model obraca się, w najlepszym razie powiększa i zapisuje.
=> Możliwe jest zintegrowanie makra, które wstrzykuje zmienne do rutynowego makra, takiego jak to, spowoduje to ponowne wstrzyknięcie zmiennych przy każdym rekordzie, ale przynajmniej one tam będą!
Używam tego systemu i przyzwyczaiwszy się do nagrywania tylko za pomocą makra, jest o wiele bardziej elastyczny, możesz z nim robić, co chcesz, działa dla nowych i starych części.
Dodałem w moim makrze usunięcie zmiennych, dodanie nowych i działa świetnie!
1 polubienie
Nie znam się zbytnio na makrach, ale mam wrażenie, że będę musiał przez to przejść.
Michael, przetestuję twój kod, kiedy będę miał trochę czasu.
Będę Cię informować na bieżąco.
Witam, może kolejny lead.watch w 23min 23 s
https://www.youtube.com/watch?v=Pjqi1XSLY5A
Niech Moc będzie z wami.
Michael DELACOTE, czy moglibyśmy dodać do Twojego makra fakt, że stosuje ono oznaczenie tylko do ciał o nazwie Tole, a nie do profili:
A jeśli tak, to jaki fragment kodu należy zmodyfikować/dodać?
Z góry dzięki!
Witam
Oto zmodyfikowany kod, artykuł Cutlist musi zaczynać się od "Tole", w przeciwnym razie nie zadziała.
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swFeat As SldWorks.Feature
Dim swCustPropMgr As SldWorks.CustomPropertyManager
Dim NF As String
Dim Liste As String
Dim Final As String
Dim st As String
Dim swBodyFolder As SldWorks.BodyFolder
Dim swBody As Body2
Dim vBody As Variant
Dim i As Integer
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swCustPropMgr = swModel.Extension.CustomPropertyManager("")
NF = swModel.GetTitle() & ".SLDPRT"
st = """"
Set swFeat = swModel.FirstFeature
Do While Not swFeat Is Nothing
If swFeat.GetTypeName() = "CutListFolder" Then
Liste = swFeat.Name
Set swBodyFolder = swFeat.GetSpecificFeature2
swBodyFolder.UpdateCutList
Final = st & "SW-Longueur du flanc de tôle@@@" & Liste & "@" & NF & st & "x" & st & "SW-Largeur du flanc de tôle@@@" & Liste & "@" & NF & st
If Liste Like "Tole*" Then
Set swCustPropMgr = swFeat.CustomPropertyManager
swCustPropMgr.Add3 "Dimension", swCustomInfoText, Final, 1
End If
End If
Set swFeat = swFeat.GetNextFeature
Loop
End Sub
3 polubienia
Doskonałe! To działa ;-)
Dziękuję Michael
2 polubienia
Dziękuję Michałowi za makro!
Witam
Jestem nowy w grupie. Oto rozwiązanie, którego używam.
Tworząc formularz właściwości niestandardowych dla konstrukcji blachowej.
PL. "SW-Grubość tôlerie@@@PLAQUE@Pièce1.SLDPRT" x "SW-Szerokość tôle@@@PLAQUE@Pièce1.SLDPRT" x "SW-Długość tôle@@@PLAQUE@Pièce1.SLDPRT"
Podoba mi się pomysł na makro dla Michaela DELACOTE'a.
Miłego dnia!
propriete_piece_de_tolerie.pptx