|
Rund um Autocad : Maße für Bauzeichnungen mal in Meter und mal in cm, wie geht das??
RoSiNiNo am 06.08.2002 um 13:01 Uhr (0)
hallo zusammen, ich habe für unser büro ein kleines vba-tool geschrieben. da wir aber mit einem eigenen maßstabssystem arbeiten, hab ich einfach den code ein wenig geändert. ich hoffe es funktioniert, hab es nicht getestet. die angehängte zip-datei beinhaltet: Bemassung.mns dim-m.bmp, dim-m-h1.bmp, dim-m-h5.bmp, dim-cm.bmp, dim-cm-h1.bmp, dim-cm-h5.bmp, dim-mm.bmp, dim-mm-h1.bmp, dim-mm-h5.bmp CADDE_Bemassung.bas die bas-datei einfach in acad.dvb importieren. das menü bemassung laden, dann soll ...
| | In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Text - Lisp
RoSiNiNo am 21.08.2002 um 11:41 Uhr (0)
Hallo Mozi, hab so etwas für mich auch einmal unter VBA programmiert. vbaide aufrufen, unter Datei -- Datei importieren..., die Datei vom Anhang laden, Funktion TextCalculate aufrufen. Berechnungen mit Text (=Zahl), Nachkommastellen werden mit dem Eingabewert festgelegt. Mögliche Operatoren : *, x, /, :, +, - Eingabebeispiele : *25.23, +10, /13.50, -33.333 Viel Spaß damit, ich hoffe ich hab nichts vergessen. ------------------ Roland [Diese Nachricht wurde von RoSiNiNo am 21. August 2002 editier ...
| | In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Text - Lisp
RoSiNiNo am 21.08.2002 um 12:53 Uhr (0)
Einfach die Datei nochmmal herunterladen, oder folgenden Text hinten anfügen. Code: Ersetzt Komma durch Punkt Public Function funPunkt(Wert) Dim Punkt As Long Dim Komma As Long Wert = LTrim(Wert) Komma = InStr(Wert, ",") If Komma 0 Then Mid(Wert, Komma) = "." Punkt = InStr(Wert, ".") If Punkt = 1 Then Wert = "0" & Wert funPunkt = Wert End Function Wenn anstelle des Dezimalpunktes ein Komma stehen soll, dann die Zeile die den Fehler verursacht hat mit dies ...
| | In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Automatisches Nummerieren möglich?
RoSiNiNo am 22.08.2002 um 13:10 Uhr (0)
Es sollten auch keine Probleme aufteten. Man kann anstelle der RoSiNiNo.cmd die mit acaddoc.lsp geladen wird auch das Menü wie folgt ändern. Der Nachteil, man kann den Befehl nicht mir RETURN wiederhohlen. Der Vorteil, man braucht die oben genannten Dateien nicht mehr. Code: // // AutoCAD menu file - C:ProgrammeACAD2002BlockNumm.mnc // ***MENUGROUP=BLOCK ***TOOLBARS **BLOCK ID_BLOCK_0 [_Toolbar("Block: allgemein", _Floating, _Show, 150, 150, 1)] ID_MstSet [_Button("Maßstab setzten", "MstSe ...
| | In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Automatisches Nummerieren möglich?
RoSiNiNo am 23.08.2002 um 07:03 Uhr (0)
Hallo Daniel, Zitat: Original erstellt von danglover: Warum bricht der Befehl (beim Einfügen der Symbole) beim Zoomen ab obwohl der Zoombefehl Transparent ausgeführt wird? Es stimmt das der Zoombefehl, auch wenn er transparent ausgeführt wird, den Befehl abbricht. Dieses Problem ist uns auch schon aufgefallen, tritt aber nur auf wenn du den Zoombefehl mit dem Werkzeugkasten aufrufst. Da ich aber kaum die Werkzeugkästen von ACAD verwende, ich solche Befehle mit den Kürzeln aufrufe, habe ich keine P ...
| | In das Form Rund um Autocad wechseln |
|
Rund um Autocad : eps-Datei
RoSiNiNo am 12.09.2002 um 08:06 Uhr (0)
Zitat: Original erstellt von bwp: Kann man im Layout-Bereich eine schattierte Ansicht in eine eps-Datei umwandeln, sodaß die Schattierung erhalten bleibt und wenn ja, wie? Hallo bwp, hast du ein 3d-Modell? wenn ja, dann geht das schon, es gibt eine Variable die umgestellt werden muß. Steht aber im Handbuch, bzw. in der Hilfe-Datei. Ich habe zumindest schon mal 3D-Objekte mit verdeckten Linien ausgedruckt. Solltest du nicht fündig werden, teile er mir einfach mit, dann such ich es nocheinmal. ----- ...
| | In das Form Rund um Autocad wechseln |
|
Rund um Autocad : DLL - registrieren
RoSiNiNo am 25.09.2002 um 08:30 Uhr (0)
Hallo, wie kann man eigentlich eine dll-Datei registrieren und dann in ein VBA-Projekt einfügen? ------------------ Roland
| | In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Schraffuren bei Blöcken
RoSiNiNo am 26.09.2002 um 14:41 Uhr (0)
Zitat: Original erstellt von Hetkala: Ich hatte ja eigentlich gehofft, es gäbe irgendeine geheime Systemvariable, die mir weiterhelfen kann aber gibt s wohl nicht - schnüff schnüff. Da hast du mich falsch verstanden, nicht in die Zeichnung in der das Xref drinnen ist einfügen, in das so genannte Xref hinein. Das Xref öffnen, einen WBlock erstellen (alle Element wählen), dann die soeben hinausgeschriebenen Elemente wieder einfügen (in die Xref-Datei!!!). Alles klar ------------------ Roland
| | In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Linien -> Polylinien automatisch
RoSiNiNo am 02.10.2002 um 07:59 Uhr (0)
Zitat: Original erstellt von Tblaenky: aus Luftbildern erzeugte Datei enthält 2D-Polylinien, Linien ... Mit Acad2002 kein Problem. Einfach PEDIT aufrufen, O für mehrere Objekte, alle Objekte die verbunden werden sollen wählen, die eventuell folgende Frage mit JA bestätigen, V für verbinden. Das war s. ------------------ Roland
| | In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Punktnummer - Koordinaten ausdrucken ???
RoSiNiNo am 04.10.2002 um 08:43 Uhr (0)
Hab so etwas in VBA programmiert, Nimmt Attribut des Blocks als ersten Wert der Spalte, dann Y-Wert und X-Wert. Textfile hat gleichen Namen und Pfad wie die Zeichnung Code: Option Explicit ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Koordinatenliste von Blöcken in Textdatei Auswahl von Blöcken Eingabe des Einsetzpunktes und -winkels der Liste Ergebnis: Liste mit Bezeichnung, X-Wert und Y-Wert ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Public Sub Block_KoordListe_Text() ...
| | In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Punktnummer - Koordinaten ausdrucken ???
RoSiNiNo am 04.10.2002 um 08:46 Uhr (0)
das gleiche für Punkte, unsortiert. Code: Option Explicit Übergibt Punktekoordinaten in Textdatei und speichert in Zeichnungspfad und Zeichnungsnamen Public Sub Dots_Extract_Text() Dim SS As AcadSelectionSet Dim Filnum As Integer Dim atts As Variant Dim obj As Object Dim Punkt As AcadPoint Dim PT(0 To 2) As String Dim Pfad As String Dim DatName As String Dim PfadDatei As String Dim FltTypes(0) As Integer Dim FltData(0) As Variant Dim pointUCS As Variant ...
| | In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Punktnummer - Koordinaten ausdrucken ???
RoSiNiNo am 04.10.2002 um 08:48 Uhr (0)
das ganze noch einmal für Punkte in Excel-Datei Code: Option Explicit Public ExcelVBA As Excel.Application stellt Excel für alle Prozeduren bereit Übergibt Punktekoordinaten in Exeldatenblatt und speichert in Zeichnungspfand und Zeichnungsnamen Public Sub Dots_Extract_Excel() Dim ExcelSheet As Object Dim ExcelWorkbook As Object Dim RowNum As Integer Dim Count As Integer Dim Pfad As String Dim DatName As String Dim PfadDatei As String Dim SS As ...
| | In das Form Rund um Autocad wechseln |
|
Rund um Autocad : *.tif - Dateien
RoSiNiNo am 11.10.2002 um 07:50 Uhr (0)
Diese Frage ist leicht beantwortet: NEIN Warum? Eine TIF-Datei ist keine Vektorgrafik , sondern ein Pixelbild . ------------------ Roland Ich glaube, da war Thomas ein wenig schneller. [Diese Nachricht wurde von RoSiNiNo am 11. Oktober 2002 editiert.]
| | In das Form Rund um Autocad wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
