|
AutoLisp : MTEXT Gruppencode 3
WolfgangGutke am 11.08.2005 um 18:24 Uhr (0)
Vieleicht so?(defun c:mt () (vl-load-com) (setq Text "") (foreach nMT (STR:STRING_TO_LIST (vla-get-TextString (vlax-ename-vla-object (car (entsel)))) "P") (setq Text (strcat Text " " nMt )) ) (alert (substr Text 2)) )(defun str:STRING_TO_LIST (str tz / lst pos) ;Teilt ein String gem. übergebenen Trennzeichen in eine Liste ;z.B. (str:String_to_List "qw;df;" ";") - ("qw" "df") (if (and str tz) (progn (setq pos (vl-string-search tz str)) (while pos (setq lst (cons (substr str 1 pos) lst) str (substr ...
| | In das Form AutoLisp wechseln |
|
Excel : Bordererkennung
WolfgangGutke am 14.03.2006 um 20:28 Uhr (0)
Hallo Thomas,vielen Dank für dein Test. Leider muß ich das Gegenteil feststellen.Beim ersten Durchlauf geht es auch sehr schnell. Aber dann wird es immer langsamer, bis das Prog stehen bleibt. Wenn ich Excel schließe und dann die Tabelle öffne, habe ich wieder die volle Geschwindigkeit.Gibt es eine Möglichkeit, dass nicht immer die Zelle markiert werden muß, um die Linienfarbe zu ändern (so etwas wie ActiveCell.Offset ...)Habe leider in VBA nicht die Kenntnisse, um so etwas zu erstellen.Vielleicht kannst d ...
| | In das Form Excel wechseln |
|
AutoLisp : Probleme mit align
WolfgangGutke am 03.03.2006 um 19:21 Uhr (0)
Hi,schaue dir doch mal die Hilfe der Entwicklerumgebung in AutoCAD an. Dort findest du auch die Anleitung zum Ausrichten im 2D Raum. Das Ausrichten im 3D kannst du auf mein Beispiel zurückgreifen.Mein Beispiel(align BlockNeuBlockNeu-EP_OR Block1-EP_URBlockNeu-EP_OL Block1-EP_ULBlockNeu-EP_UL Block1-EP_OL"" "3d")ist wie folgt zu verstehen:BlockNeu ist der Block, der Ausgerichtet werden sollBlockNeu-EP_OR, BlockNeu-EP_OL und BlockNeu-EP_UL sind die Punkte, die Ausgerichtet werden sollenBlock1_EP-UR ... sind ...
| | In das Form AutoLisp wechseln |
|
Excel : Bordererkennung
WolfgangGutke am 14.03.2006 um 14:08 Uhr (0)
Hallo,durch mehrere Tipps aus diesem Forum habe ich mir folgendes Programm "zusammengestrickt"Sub Bordererkennung()Ändert alle Linienfarben auf grauFarbeGrau 50 = ColorIndex = 16Positionen = xlEdgeTop xlEdgeBottom xlEdgeRight xlEdgeLeft xlDiagonalDown xlDiagonalUp Dim Bereich As Range Dim Zelle As Object Set Bereich = Selection For Each Zelle In Bereich Zelle.Select Linienfarbe xlEdgeTop Linienfarbe xlEdgeBottom Linienfarbe xlEdgeRight Linienfarbe xlEdgeLeft Linienfarbe xlDiagon ...
| | In das Form Excel wechseln |
|
Access : Bilder in Access 2003
WolfgangGutke am 15.12.2005 um 12:21 Uhr (0)
Hallo,wir arbeiten hier in unserer Firma mit Access zur Katalogerstellung. Die Kataloge habe einen Umfang von 100-200 Datensätzen. Zu jedem Datensatz gehört auch eine Bilddatei (JPG). Da diese Bilder nicht als Objekt eingefügt werden (die Datenbank hätte sonst einen Speicherumfang von 1,5GB!!!) ist in einer Zelle zu jedem Datensatz nur die Pfadangabe zu dem Bild.Bei Anzeige des Formulars/Bericht wird das richtige Bild auch zum richtigen Datensatz angezeigt (Steuerung über Ereignisprozedur) - soweit so gut. ...
| | In das Form Access wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
