|
Lisp : Attribute zum Block
Brischke am 24.01.2013 um 13:36 Uhr (0)
Zitat:Original erstellt von cadplayer:... phil kerkers ap-API, schon mal davon gehört?...Kenne ich nicht, inzwischen kenne ich mich (denke ich) auch in der .Net und der ActiveX und Lisp-API recht gut aus.Zitat:Original erstellt von cadplayer:... Das Autocad-magazin erhalte ich leider nicht, zumal ich neuerungen oft aus der direkten quelle ADESK erhalte ......... was nützen die Neuerungen? Diese haben doch eh nur in den seltensten Fällen etwas davon, was man als Lösung der Probleme bezeichnen könnte.Zitat:O ...
|
|
AutoLisp : bitte Mini-Lisp prüfen , danke
Brischke am 02.10.2002 um 13:22 Uhr (0)
Hallo Sebastian, wenn ich jetzt ehrlich bin, dann weiß ich nicht wirklich was Du tatsächlich möchtest. Aber nun zu Deinen konkreten Fragen: 1) (ssget...) - Aufruf: Geht prinzipiell so. Du läufst allerdings die Gefahr, dass es verschiedene Blöcke gibt, in denen Attribute mit gleicher Bezeichnung definiert sind. Es ist nicht klar, welchen Block Du dann änderst. Wenn es um generelle Änderungen eines Attributes mit dieser Bezeichnung geht (unabhängig davon in welcher Blockdefinition es vorkommt), dann solltest ...
|
|
AutoLisp : Exeldateien in AutoCAD verarbeiten
Brischke am 07.10.2002 um 08:26 Uhr (0)
Hallo Mirko, es ist kein Problem Excel-Daten nach AutoCAD zu bringen. Dazu entweder in diesem Forum oder bei Rund um AutoCAD mal suchen. Es werden verschiedene Ansätze und auch Lösungen vorgestellt. Hauptsächlich geht es jedoch um die Darstellung von Punkten. Möchtest Du bestimmte Geometrien erzeugen, dann muß dafür ein extra Programm geschrieben werden. LISP ist dazu geeignet, du kannst aber auch mit VB/VBA das Thema bearbeiten. Das solltest du davon abhängig machen, in welcher Sprache die besseren Kenn ...
|
|
AutoLisp : Punkt aus Auswahlsatz filtern
Brischke am 11.10.2002 um 20:08 Uhr (0)
Hallo Andrea, was funktioniert denn nicht? Hast du schon einmal das Programm im Einzelschritt ablaufen lassen und dabei das Verhalten beobachtet? Ich vermute, dass der Verglich in dem (If (=...) nie erfüllt wird, weshalb das Programm nie in die Zeile ( (cadr e1) (cadr e2)) reinläuft. Ersetze den Vergleich durch ein (equal (car e1)(car e2) 0.00000005) Begründung: Zwei Zahlen, die augenscheinlich gleich sind, können jedoch in der 16. Nachkommastelle abweichen. Das sieht man nicht, aber die Zahlen sind nich ...
|
|
AutoLisp : Elemente am Fadenkreuz (hängend) einfügen
Brischke am 14.10.2002 um 10:24 Uhr (0)
Hallo Dschu, ein Hilfskonstrukt wäre: Die Elemente im Punkt 0,0 einfügen und dann den Schieben-Befehl aufrufen. Das geht aber nur, wenn das Schieben wirklich als letztes vom Programm bewerkstelligt werden soll. Dann kannst du den Schieben- Befehl im Programm unvollständig beenden. (command "_.move" "L" "" "0,0") In dieser Zeile fehlt der Zielpunkt. Sollten noch weitere Befehle in der Lisp-Datei folgen, laufen die auf einen Fehler. Was anderes fällt mir im Moment nicht ein. Vielleicht hilft s dir ja. Grüße ...
|
|
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
|
|
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
|
|
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 ...
|
|
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 ...
|
|
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 ------- ...
|
|
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 ...
|
|
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 ...
|
|
AutoLisp : punkt oder variable
Brischke am 25.11.2002 um 17:11 Uhr (0)
Hallo Rolf, die Werte der Initget-Optionen lassen sich durch Addition kombinieren. in diesem Fall besteht die 9 aus der Option 1 - Leereingabe nicht erlaubt und 8 - Limitenbegrenzung ausschalten Das ist z.B. auch bei dem Objektfang so. Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night
|
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
