|
Lisp : Hilfe beim Rauschschreiben !!!
Andreas Kraus am 05.08.2008 um 13:53 Uhr (0)
Also...mapcar arbeitet mit Listen !Wenn du von einer Koordinate etwas abziehen willst, dann ist das ja eine Liste mit zwei oder drei Werten (je nach dem ob der Z-Wert mit in der Liste ist oder nicht).Also mußt du auch eine Liste abziehen die genauso lang istBeispiel:wenn in der Variablen p die Liste (8.5 16.0 9.0) gespeichert ist und du machst das:(setq p (mapcar - p (5.0 5.0 5.0)))sieht der Inhalt von p dann so aus: (3.5 11.0 4.0)Wenn du aus dieser Liste eine Zeichenkette machen willst, gibt es verschiede ...
|
| In das Form Lisp wechseln |
|
Lisp : Insbase von XREF's per Reactor abfragen?
Andreas Kraus am 10.06.2014 um 13:35 Uhr (1)
Ich hab eben einfach mal eine Testdatei gemacht und Insbase verschoben.Das Ding als XREF in eine neue Datei und dann das hier gemacht:(entget (tblobjname "BLOCK" "Test1"))Da kam das hier raus:((-1 . Objektname: 7ffff811920 ) (0 . "BLOCK") (330 . Objektname: 7ffff811910 ) (5 . "1C2A") (100 . "AcDbEntity") (67 . 0) (8 . "0") (100 . "AcDbBlockBegin") (70 . 44) (10 2445.0 550.5 0.0) (-2 . Objektname: 7ffff83f6e0 ) (2 . "test1") (1 . "G: est est1.dwg"))GC 10 enthält genau den "verschobenen" Einfügepunkt.Hilf da ...
|
| In das Form Lisp wechseln |
|
Lisp : Symbolname aus Symbolnummer ermitteln
Andreas Kraus am 09.09.2006 um 22:56 Uhr (0)
Hallo zusammen,für alle die das schon im "Rund um Autcad"-Forum gelesen haben, jezt mal an der richtigen Stelle nochmal.Ich habe ein Programm geschrieben daß Linientypdefinitionen so umdefiniert, daß diese bei einem beliebig wählbarem LT-Faktor vernünftig dargestellt werden. Hauptsächlich für Pläne von extern mit einem anderen LT-Faktor.Bei Linientypen die Symbole enthalten wird in der LIN-Datei der Symbolname angegeben. In der Definition die ich in Autcad finde, steht aber nur die Symbolnummer. Im Moment ...
|
| In das Form Lisp wechseln |
|
Lisp : Arbeiten über mehrere Zeichnungen hinweg
Andreas Kraus am 18.09.2006 um 16:31 Uhr (0)
Hab ich nachgedacht.Vielleicht gehts so:Ich nehme an daß du nicht alle Dateien auf einmal öffnen möchtest, weils so viele sind, sondern nacheinander.Das Programm muß nun eine Liste aller zu öffnenden Dateien erstellen.Daraus machen wir eine Textdatei.SDI auf 1 stellen.Reactor einrichten der z.B. nach dem Speichern gleich die nächste Datei aufruft.Die erste Datei aus der Liste wird aufgemacht.(command "_open" dateiname)Diese Datei (also die erste in der Liste) wird aus der Liste gelöscht.Ist diese Datei bea ...
|
| In das Form Lisp wechseln |
|
Lisp : Autor in Excel-Datei ändern
Andreas Kraus am 12.09.2007 um 07:42 Uhr (0)
Hallo Rabbit007,ich weis zwar nicht wo du diesen Hilfetext gefunden hast, ich hab ihn noch nicht gefunden (auch nicht in der Excel Hilfe und auch nicht in der Hilfe vom VB-Editor), aber das Wort "Schreibgeschützt" gefält mir gar nicht. Muß ich mir wohl was anderes ausdenken.DankeGrußAndreas
|
| In das Form Lisp wechseln |
|
Lisp : Autor in Excel-Datei ändern
Andreas Kraus am 10.09.2007 um 14:46 Uhr (0)
Hallo zusammen,ich möchte gern (muß den Eintrag im Feld Autor in den Dateieigenschaften einer geöffneten Excel-Datei ändern.Folgendes hab ich schon: (setq excel (vlax-get-object "excel.application")) (setq ExcelWorkbook (vlax-get-property excel "ActiveWorkbook")) (setq n 1) (repeat (vlax-get-property BuiltinDocumentProperties "Count") (print (vlax-get-property (setq xxx (vlax-get-property BuiltinDocumentProperties "item" n) ) "Name" ) ) (if (equal (vlax-get-property (setq xxx ...
|
| In das Form Lisp wechseln |
|
Lisp : Text in Block überprüfen und ggf. ändern
Andreas Kraus am 02.10.2007 um 11:12 Uhr (0)
Hallo tommygo,ich habs leider verpasst dir schon im Rund um AutoCAD Forum zu antworten, aber da hab ich was. (danach noch regenerieren)(if (setq blk_data (tblsearch "BLOCK" "kopf")) (progn (setq ent_name (cdr (assoc -2 blk_data))) (while ent_name (setq ent_data (entget ent_name)) (if (and (= (cdr (assoc 0 ent_data)) "TEXT") (= (cdr (assoc 1 ent_data)) "STRASSEALT") ) (progn (setq ent_data (subst (cons 1 "STRASSENEU") (assoc 1 ent_data) ent_data ) ) (entmod ent_data) ) ) (setq ent ...
|
| In das Form Lisp wechseln |
|
Lisp : ObjectDBX und schon geöfnete Datei
Andreas Kraus am 22.11.2007 um 07:49 Uhr (0)
Hallo zusammen,Das öffnen und Auswerten von Dateien klappt ja dank Thomas inzwischen richtig klasse.Wenn ich aber auf eine Datei zugreifen will die schon (von irgendwem) geöffnet ist bekomme ich eine Fehlermeldung und nix wird geöffnet. Kann ich mit ObjektDBX solch eine Datei schreibgeschützt öffnen oder muß ich hier durchs Büro rennen und betteln daß die Datei geschlossen wird ?DankeAndreas
|
| In das Form Lisp wechseln |
|
Lisp : ObjectDBX und schon geöfnete Datei
Andreas Kraus am 22.11.2007 um 11:55 Uhr (0)
Schade Das mit der Kopie ist zwar nicht so elegant aber was solls.DankeGrußAndreas
|
| In das Form Lisp wechseln |
|
Lisp : .vlx und .fas in AutoCAD OEM
Andreas Kraus am 29.01.2008 um 16:07 Uhr (0)
Hallo Mario,was ist das denn genau für eine Version die du da hast ?Ist das vielleicht ACAD-LT ?Dann gehts nämlich nicht. Außer du besorgst dir den Extender der müsste die .fas laden können (ich habs noch nicht probiert)GrußAndreas
|
| In das Form Lisp wechseln |
|
Lisp : mit ODBX schreibgeschützte öffnen
Andreas Kraus am 11.02.2008 um 12:03 Uhr (0)
Hallo zusammen,ich möchte mit ODBX aus Dateien etwas auslesen egal ob gerade irgend jemand eine dieser Dateien bearbeitet. Geht das oder muß die Datei geschlossen sein ? Wenns nicht geht müßte ich mir eine Kopie erstellen die ich dann wieder lösche, ist mir aber lieber wenns ohne geht.DankeGruß Andreas
|
| In das Form Lisp wechseln |
|
Lisp : Excel-Datei als Object
Andreas Kraus am 12.02.2008 um 08:57 Uhr (0)
DAAAAANKE !!!!!Das Workbooks-Objekt isses.Ich hab nach der Open-Methode gesucht und da ist sie.Und schon funktioniert alles.Us4UDankeGrußAndreas
|
| In das Form Lisp wechseln |
|
Lisp : Excel-Datei als Object
Andreas Kraus am 12.02.2008 um 09:33 Uhr (0)
Hab doch noch was gefunden.Meine Konstruktion sieht jett so aus:(setq excel (vlax-get-or-create-object "excel.application"))(setq workbooks (vlax-get-property excel "Workbooks"))(vlax-invoke-method workbooks OPEN pfad)(setq ExcelWorkbook (if excel (vlax-get-property excel "ActiveWorkbook" ) ) ExcelSheet (if ExcelWorkbook (vlax-get-property ExcelWorkbook "ACTIVESHEET" ) ) ExcelCells (if ExcelSheet (vlax-get-property ExcelSheet "CELLS" ) ));;; Ab hier wird i ...
|
| In das Form Lisp wechseln |
