|
Inventor : Makro zum Ø hinzufügen
SHP am 13.12.2005 um 20:34 Uhr (0)
So, hier beide Varianten.Public Sub Add_Ø()On Error Resume NextDim oDrawDoc As DrawingDocumentSet oDrawDoc = ThisApplication.ActiveDocumentDim oSelectSet As SelectSetSet oSelectSet = oDrawDoc.SelectSetDim colDimensions As New CollectionDim i As LongFor i = 1 To oSelectSet.CountIf TypeOf oSelectSet.Item(i) Is DrawingDimension ThencolDimensions.Add oSelectSet.Item(i)End IfNextFor i = 1 To colDimensions.CountDim oDimension As DrawingDimensionSet oDimension = colDimensions.Item(i)im 9eroDimension.Text.Formatte ...
|
| In das Form Inventor wechseln |
|
Inventor : Makro zum Ø hinzufügen
SHP am 13.12.2005 um 20:24 Uhr (0)
So klappt es bei mir im 9er.oDimension.text.FormattedText = "StyleOverride Font=AIGDTn/StyleOverride"------------------GrußHans-Peter Der Wahnsinn in Sachen Musik. Das Saxregister [Diese Nachricht wurde von SHP am 13. Dez. 2005 editiert.]
|
| In das Form Inventor wechseln |
|
Inventor : Ø-Zeichen nach dwg-Export im 11er
SHP am 07.09.2006 um 14:30 Uhr (0)
Hallo,ich speichere eine 11-er idw welche einen Absatztext mit Ø-Zeichen enthält auf dwg 2000.Wenn ich nun die dwg mit Acad2004 öffne stehen anstelle der Ø-Zeichen, mir unbekannte.In der idw hab ich einerseits das IV-eigene, und andererseits Alt+0157 Zeichen verwendet.Wenn ich nun den Mtext in Acad öffne, den ganzen Text anwähle, und Zeichensatz Mitteleuropa wähle, stimmen die Ø-Zeichen.Kann das jemand nachvollziehen?------------------GrußHans-Peter Der Wahnsinn in Sachen Musik. Das Saxregister
|
| In das Form Inventor wechseln |
|
Inventor : Maßtext verschieben
SHP am 08.09.2004 um 12:08 Uhr (0)
Zitat: Original erstellt von Doc Snyder: Hi Hans-Peter, wo willst Du das verwenden? Bei schrägen Maßen kann ich den Maßtext einfach mit der Maus nach außen ziehen und dann, mit so einer bestimmten Mausbewegungen um die Ecke, steht der Text waagerecht. Ansonsten geht doch mit dem Bemaßungsstil auch ein Menge, aber das kennst Du ja; danach würdest Du also nicht fragen. Was für Drehen und Verschieben meinst Du? Gruß Roland In erster Linie bei Kettenmaßen. z.B. vertikales Kettenmaß Maßzahlen horizont ...
|
| In das Form Inventor wechseln |
|
Inventor : Elemente die einen Text beinhalten; kein iFeature möglich
SHP am 09.05.2005 um 19:10 Uhr (0)
Hallo WBF, warum kann man aus Elementen deren Skizze einen Text beinhaltet kein iFeature exportieren? Hat das einen Grund? ------------------ Gruß Hans-Peter Der Wahnsinn in Sachen Musik. Das Saxregister
|
| In das Form Inventor wechseln |
|
Inventor : Farben IV zu Acad-M
SHP am 22.10.2004 um 21:13 Uhr (0)
Hallo WMF, habe im IV einen Bemstil definiert in dem der Text gelb dargestellt wird. Jetzt speichere ich als dwg ab und siehe da in Acad-M hat der Text nun die Farbe 255,255,0. Das ist aber nicht gut, denn geplottet soll auf monochrom werden. 255,255,0 ist theoretisch gelb aber nicht in Autocad. Dort wird mit 255,255,0 geplottet und somit in Farbe. Bei der Bemaßung wär es kein Problem die Farbe mittels Lisp auf Gelb umzustellen. Aber z.B. bei den Bohrunginfos ist das schon mit einem größeren Aufwand verbun ...
|
| In das Form Inventor wechseln |
|
Inventor : Elemente die einen Text beinhalten; kein iFeature möglich
SHP am 14.05.2005 um 21:19 Uhr (0)
Hallo, Grund hat es offenbar keinen, aber gehn tut s trotzdem nicht. Kann ich wohl nur hoffen das es ein mal gehen wird. Wär schon schön. Wie schon hier erwähnt. ------------------ Gruß Hans-Peter Der Wahnsinn in Sachen Musik. Das Saxregister [Diese Nachricht wurde von SHP am 14. Mai. 2005 editiert.]
|
| In das Form Inventor wechseln |
|
Inventor : Makro zum Ø hinzufügen
SHP am 13.12.2005 um 19:21 Uhr (0)
Hallo,hab im Amiland gerade dieses Makro entdeckt, aber noch nicht getestet.Public Sub Add_Ø()On Error Resume NextDim oDrawDoc As DrawingDocumentSet oDrawDoc = ThisApplication.ActiveDocumentDim oSelectSet As SelectSetSet oSelectSet = oDrawDoc.SelectSetDim colDimensions As New CollectionDim i As LongFor i = 1 To oSelectSet.CountIf TypeOf oSelectSet.Item(i) Is DrawingDimension ThencolDimensions.Add oSelectSet.Item(i)End IfNextFor i = 1 To colDimensions.CountDim oDimension As DrawingDimensionSet oDimension = ...
|
| In das Form Inventor wechseln |
|
Inventor : Material in 11er Bib
SHP am 29.08.2006 um 14:04 Uhr (0)
Zitat:Original erstellt von invhp: dazu nutze ich das Tool MacroMaker der haut dann schnell die x-hundert Zeilen rein! http://members.ij.net/anthonymathews/MacroMaker.htm Die Zeilen ergänze ich in Excel. Aus dem Inhaltscenter kopieren, in Excel einfügen (Tabellenformatierung auf "Text" stellen) und die Spalte Material über Excel ausfüllen lassen! Wieder kopieren und in die eben mit dem MacroMaker erstelten Leerzeilen einfügen.Das Material bekommst du auch in die Dateinamenspalte rein, indem du die Dateina ...
|
| In das Form Inventor wechseln |
|
Inventor : Wer kann denn den DWG-Export mit Mechanical-Layern im Neuner?
SHP am 29.10.2004 um 14:03 Uhr (0)
@Walter Wenn Du bei den Textstilen die Du in der Bemaßung verwendest die Farbe auf VonLayer setzt, dann kommen die schon richtig nach Acad. AMSETUPDWG brauchst Du glaub ich nicht, wie gesagt, alles was im Inventor mit Farbe VonLayer gezeichnet wird, kommt auch mit Von Layer nach Acad. Ähnliches Problem hab ich auch schon gehabt, sieh mal im Lispforum nach. AMSETUPDWG hilft Dir nicht wenn z.B. ein Text im IV Rot dargestellt wird, der kommt mit der Farbe 255,0,0 nach Acad. Sieht zwar rot aus, ist aber für de ...
|
| In das Form Inventor wechseln |
