|
AutoLisp : Optionen in Masken (z.B.: Block)
dschu am 21.10.2002 um 09:35 Uhr (0)
Guten Morgen zusammen, ich habe eine grundsätzliche Frage: Wie bekomme ich die Optionen eines Befehles in LISP heraus? Und zwar jene, welche ich in den Masken sehe; und möglichst in Englisch? Beim Befehl -Layer ist’s halbwegs ok weil ich dort was angeboten bekomme. z.B.: (command "_.layer" "_make" "TEXT" "_color" "7" "TEXT" "") Beim Befehl -Blocks kann ich zwar Name, Einfügepunkt etc. eingeben, mir fehlen aber die Kenntnisse z.B.: die Optionen für Symbol (soll kein Symbol enthalten...) und für Objekte (bei ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Optionen in Masken (z.B.: Block)
Brischke am 21.10.2002 um 16:15 Uhr (0)
Hallo Dirk, bis jetzt ist es mir noch nicht untergekommen, dass ein engl. Befehl in der Befehlszeile Optionen hatte und ein deutscher nicht. Um die engl. Befehlesoptionen rauszukriegen muss man probieren. Ich hatte mal ein Liste, wenn ich diese wiederfinde poste ich diese direkt. Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Optionen in Masken (z.B.: Block)
Brischke am 22.10.2002 um 16:30 Uhr (0)
Hallo Dirk, deine Frage war schon deutlich genug, jedoch ist es so, dass die Befehlszeilenbefehle nicht immer alle Optionen aus einem Dialogfenster zur Verfügung stellen. Da ist dann auch nichts zu machen. Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Optionen in Masken (z.B.: Block)
dschu am 23.10.2002 um 10:40 Uhr (0)
Hallo Holger, das war eine wichtige Aussage für mich. Ich war bisher der Meinung, das man einen ACAD-Befehl immer 1:1 auch in LISP ausführen kann. Danke für die Hilfe Gruß und schönen Tag noch Dirk
|
| In das Form AutoLisp wechseln |
|
AutoLisp : LISP funktioniert nicht mehr unter ACAD2002
T. Steffen am 06.11.2002 um 07:26 Uhr (0)
Hallos zusammen folgendes Lisp zum einfachen positionieren setzen wir seit Version 12 ein. Unter 2002 funktioniert dies aber nicht mehr. Kann mir nicht erklären warum. Könnte jemand mal drüberschauen? ;; ;; POSFUEH.LSP ;; Aseptomag AG, T. Steffen ;; (defun C:POSFUEH (/ pta pte pos cl cmd) (setq cmd (getvar "CMDECHO")) (setq cl (getvar "CLAYER")) (setvar "cmdecho" 0) (setq pta (getpoint "
Anfangspunkt der Positionslinie: ")) (setq pte (getpoint pta "
Endpunkt der Positionslinie: ")) (grdra ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : LISP funktioniert nicht mehr unter ACAD2002
Brischke am 06.11.2002 um 08:24 Uhr (0)
Hallo Thomas, ich habe das mit Acad2000 getestet und bin zum Ergebnis gekommen, dass der Befehl BEMTOM nicht mehr mit den Optionen EIN/AUS funktioniert. Ich habe diese in EIN - 1 AUS - 0 geändert. Bei mir läuft s jetzt. Code: ;; ;; POSFUEH.LSP ;; Aseptomag AG, T. Steffen ;; (defun C:POSFUEH (/ pta pte pos cl cmd) (setq cmd (getvar "CMDECHO")) (setq cl (getvar "CLAYER")) (setvar "cmdecho" 0) (setq pta (getpoint "
Anfangspunkt der Positionslinie: ")) (setq pte (getpoint pta "
Endpunkt ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : LISP funktioniert nicht mehr unter ACAD2002
T. Steffen am 06.11.2002 um 08:47 Uhr (0)
Hallo Holger Erstmal vielen Dank. Bei mir funktioniert es jetzt auch. Ein paar Fragen hätte ich denoch: - Das ganze läuft enorm langsam ab. Wenn ich die Punkte setze und danach die Positionsnummer eingebe, vergehen etwa 15 Sekunden bis das ganze gezeichnet ist. - Es wird ein Pfeil statt einem Punkt gezeichnet. Sollte doch eigentlich einen Punkt geben, da BEMBLK = Punkt? - Die Positionsnummer wird über der Führungslinie gezeichnet, statt zentriert rechts oder links daneben. - Ist es möglich, dass wenn die P ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : LISP funktioniert nicht mehr unter ACAD2002
Britt am 06.11.2002 um 12:19 Uhr (0)
Hallo Thomas, die Bemassungssystemvariablen (die sind alle schön in der Onlinehilfe dargestellt) haben sich geändert. Wenn Du einen Punkt möchtest mußt DIMLDRBLK "punkt" in Dein Programm einbauen. Wenn Deine Führung aus einzelnen Elementen besteht, müsstest Du überhaupt Deine Bemassung assoziativ schalten. Das geht unter Voreinstellungen/Benutzereinstellungen/neue Bemassung assoziativ. Tschüß Britt
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Reaktoren
Brischke am 31.10.2002 um 10:38 Uhr (0)
Hallo Gerd, gleich einmal vorweg: Reactoren sind nicht unbedingt mein Spezielgebiet. Aber nach dem ersten Hinschauen sieht es für mich so aus, wenn über die Extendet Data nichts über einen evtl. vorhandenen Reacctor rauszubekommen ist, dann muß man einen anderen Weg gehen. Da die Reactoren irgendwo (evtl. in den Dictionaries?) gespeichert sind, dann existiert von dort aus eine Verbindung zum Objekt. Somit ist zuerst der betreffenbde Reactor zu untersuchen und die Verknüpften Objekte in einer Liste zu speic ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Länge vom Beginn bis zu einem Punkt auf Polylinie berechnen
m-troeger am 08.10.2002 um 21:32 Uhr (0)
Hallo zusammen, (ACAD2000/MAP4) also ich hab eine 2D POLYLINE mit Bögen, und Blöcke neben der PL. 1. wie berechnet mann einen Punkt X, welcher der Schnittpunkt einer gedachten Linie (vom Einfügebasispunktes eines gewählten Blockes zum LOT auf die Polylinie) und der Polylinie ist. (VBA oder LISP) 2. wie berechnet man die Länge vom Beginn der PL bis zum Punkt X. (VBA oder LISP) 3. wie bekomme ich den Blocknamen, den Wert des 1. und 2. Attributes eines gewählten Blockes (bei VBA, in LSP ist mir s klar) ich ho ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Länge vom Beginn bis zu einem Punkt auf Polylinie berechnen
Brischke am 11.10.2002 um 08:38 Uhr (0)
Hallo Mario, wenn es unbedingt VBA sein soll, dann bin ich nicht der richtige. Mit LISP kann man das aber auch machen. Zu 1. und 2. werde ich mir mal meine Gedanken machen, und melde mich dann wieder. Grüße Holger PS: Mir fällt gerade noch was ein. zu 1. Kann man sagen, dass der Abstand vom Blockbasispunkt immer in der Nähe zu einem Bestimmten Polyliniensegment liegt? Dann kann man über einen Längenvergleich der Lotstrecken das Segment eindeutig identifizieren. Dann gibt es auch eine Lösung. Holger ------- ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : 3D Volumenkörperhöhe ermitteln und
loup am 19.11.2002 um 17:34 Uhr (0)
Hallo hier ist LOUP ein neuer Lisper!! 1-Ich versuche derzeit die Höhe eines Volumenkörpers zu ermittel um danach eine geschlossene Polylinie auf diese Höhe zu extrudieren. Aber wie kann ich diese Höhe "z" herausfiltern? Ich muss derzeit die HÖhe noch von hand eingeben. Mein code sieht derzeit so aus: ;;; Die Form der Polylinie wird von dem bereits bestehenden Volumenkörper abgezogen (defun C:su1 () (graphscr) (prompt "
Select closed polyline you want to subtract: ") (setq po1 (ssget)) (promp ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : 3D Volumenkörperhöhe ermitteln und
Brischke am 20.11.2002 um 09:39 Uhr (0)
Hallo loup, folgende Zeilen ermitteln die Höhe in Z-Richtung. Zumindest sollte Dir das Prinzip klar sein und mit ein wenig Anpassung kannst Du die Funktion bei Dir passend einbauen. Code: (defun SUB (/ obj_3d objTyp aa bb minpt maxpt distz) (while (not (= "3DSOLID" objTyp)) (setq obj_3d (entsel "
Körper wählen")) (if obj_3d (setq objTyp (cdr (assoc 0 (entget (setq obj_3d(car obj_3d)))))) ) ) (vla-GetBoundingBox (vlax-ename- vla-object obj_3d) aa bb) (setq minpt (vlax-safe ...
|
| In das Form AutoLisp wechseln |
