|
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 |
|
AutoLisp : 3D Volumenkörperhöhe ermitteln und
Brischke am 21.11.2002 um 08:49 Uhr (0)
Hallo loup, das ganze ein wenig umstellen und dann kommt folgendes raus: Code: (defun C:su1 (/ po1 obj objTyp extrhoehe) (graphscr) (prompt "
Select closed polyline you want to subtract: ") (setq po1 (ssget)) ;;;(prompt "
Select solide : ") (while (not (= "3DSOLID" objTyp)) (setq obj (entsel "
Körper wählen")) (if obj (setq objTyp (cdr (assoc 0 (entget (setq obj(car obj)))))) ) ) (setq extrhoehe(SUB obj)) ;;;(setq so1 (ssget)) (command "_extrude" po1 "" extrhoehe ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : punkt oder variable
Bernd Cuder am 01.10.2002 um 01:47 Uhr (0)
Meine Lisp Zeiten sind lange her aber hier ein Bsp. Abfrage mit Keyword: (initget 2 "Abstand") 2 bedeutet keine 0 Eingabe (setq Point (getpoint "Punkt eingeben oder [Abstand] 45 : ")) Jetzt prüfen was in Point steht, ein Punkt oder "Abstand" oder Leer? Ich wünschte in ARX wärs so einfach :-) ------------------ Bernd Cuder Cad&Co makes CAD easy
|
| In das Form AutoLisp wechseln |
|
AutoLisp : punkt oder variable
marc.scherer am 01.10.2002 um 09:48 Uhr (0)
Hi Gregor, hier ein Beispiel: Code: (defun test (/ RETVAL) (initget 9 "optionA optionB") (setq retval (getpoint "
Punkt eingeben oder Option wählen [optionA/optionB]: " ) ;_ end of getpoint ) ;_ end of setq (cond ((= retval "optionA") (setq retval (subfunction-a))) ((= retval "optionB") (setq retval (subfunction-b))) (T) ;_ ansonsten tue nix ) ;_ end of cond retval ) ;_ end of defun (defun subfunction-a () "Ausführung von A" ) ;_ end of defun (defun ...
|
| In das Form AutoLisp wechseln |
