Vytisknout stránku | Zavřít okno

PartsLists.Item(1).Sort

Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: CAD programování
Popis fóra: Otázky programování - nadstavby a utility pro CAD a GIS aplikace Autodesk (VBA, AutoLISP, ARX/C++, .Net, JavaScript, Python, MEL...)
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=3733
Datum vytištění: 18.čer.2026 v 11:25


Téma: PartsLists.Item(1).Sort
Odeslal: Radek Pícha
Předmět: PartsLists.Item(1).Sort
Datum odeslání: 12.led.2007 v 10:46
Ja mám správně napsat další parametry metody sort?
Help říká:
Public Sub Sort( _
   ByVal  # - PrimaryColumnTitle  As String, _
   Optional ByVal  # - PrimaryColumnAscending  As Boolean = True, _
   Optional ByVal  # - SecondaryColumnTitle  As String = "", _
   Optional ByVal  # - SecondaryColumnAscending  As Boolean = True, _
   Optional ByVal  # - TertiaryColumnTitle  As String = "", _
   Optional ByVal  # - TertiaryColumnAscending  As Boolean = True _
)
Daří se mi pouze:
oVykres.ActiveSheet.PartsLists.Item(1).Sort ("Číslo")
nebo:
oVykres.ActiveSheet.PartsLists.Item(1).Sort ("Název")
nebo:
oVykres.ActiveSheet.PartsLists.Item(1).Sort ("Pozice")

Nedaří se mi:
oVykres.ActiveSheet.PartsLists.Item(1).Sort ("Číslo",True,"Název",True,"Pozice",False)



-------------
<font color=BLUE>Ing. Radek Pícha[/COLOR] (konstruktér)

http://www.itsbenda.cz" rel="nofollow - ITS BENDA s.r.o.


Odpovědi:
Odeslal: Jan Liska
Datum odeslání: 13.led.2007 v 16:41
Dobrý den,
 
jakou verzi Inventoru používáte? Zkoušel jsem:
Sub test()
    Dim doc As DrawingDocument
   
    Set doc = ThisApplication.ActiveDocument
    Dim pl As PartsList
   
    Set pl = doc.ActiveSheet.PartsLists(1)
    Call pl.Sort("QTY", True, "ITEM", False, "PART NUMBER", False)
End Sub
 
a výsledkek byl dle očekávání. Testovaná verze R11 SP2 English.
 
S pozdravem


-------------
Jan Liška
Autodesk Consulting

Odeslal: Radek Pícha
Datum odeslání: 15.led.2007 v 09:00
Děkuji za odpověď, mám verzi 10.
Že by tam byla chyba a tím další důvod pro plánovaný přechod na verzi 11?


-------------
<font color=BLUE>Ing. Radek Pícha[/COLOR] (konstruktér)

http://www.itsbenda.cz" rel="nofollow - ITS BENDA s.r.o.


Vytisknout stránku | Zavřít okno