|
Lisp : Fangfunktion bei Länge Null
Theodor Schoenwald am 30.03.2013 um 20:06 Uhr (0)
Hallo Jürgen,die von Dir gewünschte "Kleine Aufklärung", ich fange mit Deiner letzten Frage an:"Wenn man an derartige Objekte mit Objektfangfunktionen nicht rankommt, wie kann man dann die oben erwähnten Dummypunkte oder -Kreise auf ihnen positionieren? "Wenn Du in ACAD den Befehl "Liste" eingibst und eine Polylinie oder Linie mit der Länge Null anwählst, zeigt Dir ACAD die Position wo das Element sitzt.Genau so kann man mit Lisp über den Gruppencode 10 die Position auslesen.Hat man die Position, ist es ei ...
|
| In das Form Lisp wechseln |
|
Lisp : Fangfunktion bei Länge Null
jupa am 31.03.2013 um 11:16 Uhr (0)
Zitat:Original erstellt von Theodor Schoenwald:War das die gewünschte "Kleine Aufklärung"?Ich muß ehrlich gestehen - so richtig verstanden habe ich es immer noch nicht. Meine bisherige Interpretation: Du hast ein CNC-Programm, das erkennt, wo ein Punkt ist, da soll gebohrt werden, wo ein Kreis ist soll was gemessen werden (?), und wo eine Linie der Länge 0 liegt soll eine Z-Bewegung erfolgen? So richtig? Kommt mir selbst bißchen weit hergeholt vor. Falls ich damit völlig falsch liege mag das aber auch dara ...
|
| In das Form Lisp wechseln |
|
Lisp : Fangfunktion bei Länge Null
Theodor Schoenwald am 31.03.2013 um 14:47 Uhr (0)
Hallo Jürgen,mein Beispiel mit dem Befehl Liste, war wirklich nur ein Verständnis- Beispiel auf Deine Frage: "wie ich zu den Koordinaten bei einem Element mit Länge Null kommen kann, wenn Fang nicht funktioniert."Wenn ich z.B. 200 Elemnte habe gebe ich nicht 200 x Liste ein.Selbstverständlich habe ich die Sache mit einem Lisp-Tool automatisiert.Ungenauigkeit, Nachkommastellen? Die meisten CNC-Maschinen arbeiten mit 3 Stellen nach dem Komma, dafür wäre die Ausgabe von 8 oder mehr Stellen sinnlos.CNC?Ist vie ...
|
| In das Form Lisp wechseln |
|
Lisp : Fangfunktion bei Länge Null
Theodor Schoenwald am 01.04.2013 um 21:21 Uhr (0)
Hallo Jürgen,es freut mich, dass es Dir darum ging: "was macht der denn", Dein hartnäckiges "Dranbleiben" ist in Ordnung.Zu "was macht er": Teil 1, ich erstelle Software zur CNC-Generierung in ACAD, BricsCad und ZWCAD.Da richte ich mich nach den Wünschen der Anwender und auch deren Umgang mit z.B. ACAD, manche Anwender haben gute Ideen, die ich, wenn möglich, umsetze.Teil 2 meine "Eurofreie Zone":Software mit Lisp erstellen, um Werkstücke mit meiner selbst gebauten CNC-Maschine zu bearbeiten.Welche Werkstü ...
|
| In das Form Lisp wechseln |
|
Lisp : Umgebungseigenschaften übertragen
Danillo am 07.04.2013 um 11:21 Uhr (0)
Hallo Leute,damit das gewünschte Layout erzielt wird bzw. die Lisp-Programme korrekt arbeiten, habe ich bisher immer eine Prototypenzeichnung (Template) gemacht, wo ich z.B. den Bemaßungsstil, den Textstil, Maßstäbe usw. voreingestellt habe. Diese Methode hat den Nachteil, dass man darauf angewiesen ist, dass der Benutzer auch die entsprechende Template verwendet bzw. man hat Probleme, wenn man auf einer fremden Zeichnung weiterarbeiten will.Meine Frage ist, wie kann ich einen Bemaßungsstil in LISP abspeic ...
|
| In das Form Lisp wechseln |
|
Lisp : Umgebungseigenschaften übertragen
Bernd10 am 08.04.2013 um 08:46 Uhr (0)
Hallo Daniel,Zitat:Original erstellt von Danillo:Meine Frage ist, wie kann ich einen Bemaßungsstil in LISP abspeichern und bei Bedarf wieder einfügen. Ich stelle den gewünschten Bemaßungsstil per Lisp so ein:; Den Bemaßungsstil als aktuellen Bemaßungsstil setzen (setq cbemstil (strcase "BemSoll")) (setq iexpertsav (getvar "expert")) (setvar "expert" 5) (command "_.dimstyle" "sichern" cbemstil) (setvar "expert" iexpertsav); Die Einstellungen des aktuellen Bemaßungsstiles aktualisieren (setvar "dimblk" ".") ...
|
| In das Form Lisp wechseln |
|
Lisp : Existenz von Attributen
Musicus am 08.04.2013 um 17:26 Uhr (0)
Hallo Henning,vielen Dank für den Ansatz.Jetzt übersteigt ActiveX meine Lisp-Kenntnisse doch etwas, aber ich denke ich weiß, was das Progrämmchen im Inneren tut.Es funktioniert auch wunderbar.Ich brauche jetzt aber keine Meldung als Ausgabe, sondern es soll natürlich ein Befehl ausgeführt werden. Wenn keine Attribute drin sind, darf der Befehl nicht ausgeführt werden.Ich dachte mir, packst du statt (alert ...) einfach das Stück Code rein, was du schon hast, und fertig.Gedacht wahrscheinlich nicht schlecht, ...
|
| In das Form Lisp wechseln |
|
Lisp : gruppenfilter per lisp ändern
CADmium am 10.04.2013 um 13:13 Uhr (0)
Da du ja keinen Code mit gepostet hast , gibts wohl auch noch keinen naja.. egal .... mal ein Schnipsel für dir Richtung :(defun LAYGROUPFILTER( / OBJ DICT ITEM E D N LISTE)(if(and(setq OBJ(vla-get-layers (vla-get-activedocument(vlax-get-acad-object)))) (=(vla-get-hasextensiondictionary OBJ):vlax-true) (setq OBJ(vla-GetExtensionDictionary OBJ)) (not(vl-catch-all-error-p (setq DICT(vl-catch-all-apply vla-item (list OBJ "AcLyDictionary"))) ) ) ) (vlax-for ITEM DICT (if(and(setq E(vl ...
|
| In das Form Lisp wechseln |
|
Lisp : gruppenfilter per lisp ändern
CADblue am 10.04.2013 um 13:57 Uhr (0)
also so weit bin ich selber gekommen:(setq OBJ(vla-get-layers (vla-get-activedocument(vlax-get-acad-object))))(setq OBJ2(vla-GetExtensionDictionary OBJ))(setq E(vlax-vla-object-ename OBJ2))(setq D(entget E))Rückgabe:((-1 . Objektname: 7c212550 ) (0 . "DICTIONARY") (330 . Objektname: 7c20ac10 ) (5 . "1EA") (100 . "AcDbDictionary") (280 . 1) (281 . 1) (3 . "ACAD_LAYERFILTERS") (360 . Objektname: 7be09588 ) (3 . "ACAD_LAYERSTATES") (360 . Objektname: 7c212558 ) (3 . "ACLYDICTIONARY") (360 . Objektname: 7be095 ...
|
| In das Form Lisp wechseln |
|
Lisp : gruppenfilter per lisp ändern
CADmium am 10.04.2013 um 14:13 Uhr (0)
Der Code ermittlt die LAYERCollektion des aktuellen Objekts , davon das Erweiterte Dictionarie , welches nach dem dictionary "AcLyDictionary" durchsucht wird. Wird dieses gefunden, werden alle Objekte desselben durchlaufen , gegeuckt, ob diese XRECORDS mit dem Schlüssel "ACLYLAYERGROUP" sind und von denen dann der Name ermittelt..Du kannst auch dictsearch verwenden .... und dann durchlaufen des Dicts bis (=(car X)3) , (cdr (360 . ...)) ist dann der Xrecord .. auf den wieder ein entget usw..... Den Code klö ...
|
| In das Form Lisp wechseln |
|
Lisp : Anbindung SQLite mit ADOLISP auf 64-Bit-Rechner
StefanW am 10.04.2013 um 10:17 Uhr (0)
Hallo !Nachdem mein Autocad nun auf einen 64-bit-Rechner umgezogen ist, funktioniert die Anbindung an eine Access-Datenbank mit ADOLISP nicht mehr. Meine Idee wäre, auf eine SQLite-Datenbank umzustellen. Einen ODBC-Treiber (auch für 64-bit) für SQLite habe ich unter http://www.ch-werner.de/sqliteodbc/ gefunden.Nun habe ich aber Probleme, mich mit der Datenbank zu verbinden, ich bekomme immer eine Meldung, das die Verbindung geklappt hat, selbst wenn die Datenbank gar nicht da ist ! Eine Abfrage der Tabelle ...
|
| In das Form Lisp wechseln |
|
Lisp : gruppenfilter per lisp ändern
CADblue am 10.04.2013 um 16:16 Uhr (0)
OK so weit so gut, habs so einigermaßen hinbekommen :P jetzt nur noch die frage wo ich diesen gruppenfilter aktuell setzen kann.hier unten mal die rückgabe bei allen layern und beim gruppenfilter "testing". so wies aussieht is da nur der GC (290 . 1). hab auch schon versucht den mit append in die liste einzufügen und ihn entmod(ed) leider kein erfolg, wär ja auch zu einfach gewesen :PGruppenfilter ALLE:((-1 . Objektname: 7be09638 ) (0 . "XRECORD") (5 . "149EF") (102 . "{ACAD_REACTORS") (330 . Objektname: 7 ...
|
| In das Form Lisp wechseln |
|
Lisp : Gitterkoordinaten
Jourjik am 15.04.2013 um 08:29 Uhr (0)
Hallo Udo,Guten Morgen, ich arbeite nur mit Autocad Map 2014 und leider habe ichdie Civil version nicht, und im Netz habe ich die Lisp nicht gefunden.MfG Jourjik
|
| In das Form Lisp wechseln |
