|
AutoLisp : Bemaßungswerte in Excel einfügen
nahe am 02.03.2004 um 12:27 Uhr (0)
Hallo Moony nur damit Du Dich nicht in was verrennst. Soweit ich weiß (bis AutoCAD 2002) haben Maße keine Parameternamen, so wie in Inventor od. Mechanical Desktop! Wenn Du die Maße nur als Text-Datei brauchst, warum der Umweg über Excel? Dann schreib die Maße gleich in eine Text-Datei, dann geht das problemlos mit LISP. Die Frage ist nur, wie weißt Du welchem Parameter welcher Wert zugewiesen werden soll? Grüße Heinz
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Bemaßungswerte in Excel einfügen
nahe am 03.03.2004 um 16:10 Uhr (0)
Hallo ich werd mich morgen mal kurz damit beschäftigen Sollte eigentlich kein großes Problem sein. Jetzt geh ich zum Heurigen, Prost ;-) Grüße Heinz
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Bemaßungswerte in Excel einfügen
nahe am 04.03.2004 um 12:47 Uhr (0)
Hallo nochmals sorry es fehlt das Hochzählen (setq i (1+ i)) in der Schleife (foreach n wl (princ (strcat R (itoa i) = ) m) (princ n m) (princ m) (setq i (1+ i)) )
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Bemaßungswerte in Excel einfügen
nahe am 03.03.2004 um 07:28 Uhr (0)
Guten Morgen das ist ja das Problem. Weißt Du welche Variable welchen Wert erhalten soll? Oder können die Variablen einfach durchnummerriert werden, in der Reihenfolge in der sie gewählt werden? Grüße Heinz
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Bemaßungswerte in Excel einfügen
nahe am 01.03.2004 um 09:52 Uhr (0)
Hallo Moony ich denk mal, dass das mit LISP nicht wirklich einfach ist. Anbei ein kleines Makro für Excel, vielleicht hilft Dir ja das weiter. Grüße Heinz Sub test() Dim doc As AcadDocument Dim sel As AcadSelectionSet Dim mode As Integer Dim groupCode As Variant, dataCode As Variant Dim gpCode(0) As Integer Dim dataValue(0) As Variant Dim i As Long Dim cad As Object Dim acad As AcadApplication Dim autocad_gestartet As Boolean autocad_gestartet = True On Error Resume Next Set ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Bemaßungswerte in Excel einfügen
nahe am 04.03.2004 um 08:23 Uhr (0)
Hallo Moony anbei nun ein kleines LISP-Programm. Bemerkung Es wird dabei auf das Abfangen von Fehleingaben verzichtet. Das Programm fragt so lange nach Bemaßungswerten bis ENTER gedrückt wird. Grüße Heinz (defun c:dim2file( / i e el m wl n) (setq i 1 wl nil) (while (setq e (entsel (strcat
Bitte Abstand (itoa i) wählen: ))) (setq el (entget (car e))) (if (/= (cdr (assoc 0 el)) DIMENSION ) (progn (princ
Gewähltes Element ist keine Bemaßung! ) (setq i (1- i) ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Bemaßungswerte in Excel einfügen
nahe am 02.03.2004 um 07:47 Uhr (0)
Hallo nochmals @Claudio, danke für die Units @Moony mit LISP ist das ermitteln des Bemaßungstextes kein Problem, mit VB/VBA ist es eben nur, meiner Meinung nach, einfacher eine Verknüpfung mit anderen Programmen zu realisieren. Es sollte kein Problem sein, das Makro umzuschreiben, dass es von AutoCAD aus funktioniert. Vielleicht ein paar Bemerkungen zum Makro 1.)der Wert einer Winkelbemaßung wird im Bogenmaß angezeigt! 2.)der handle kann nützlich sein, wenn man später ev. wieder auf die Bemaßung zugrei ...
|
| In das Form AutoLisp wechseln |
