|
AutoLisp : Block hängt nicht am Mauszeiger ?
tom.berger am 10.07.2004 um 16:59 Uhr (0)
Zitat: Original erstellt von Juergen55: Ich versteh Deine Antwort nicht, das hatte ich gar nicht gefragt,es geht darum das beim einfügen über Lisp der Block nicht am Mauszeiger hängt, wenn ich sonst in ACAD auf Block einfügen gehe hängt der Block am Fadenkreuz bis ich Ihn absetze ! Dann verstehe ich Deine Frage nicht :-) Warum sollte der Block denn am Mauszeiger hängen? Du weist ihm doch explizit einen Punkt zu. Selbst wenn Du (command ._insert bln (getpoint Einfügepunkt: ) ...) verwenden würdes ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Höhenkote Lisp Code 3 Fragen
tom.berger am 04.09.2004 um 12:05 Uhr (0)
Zitat: Original erstellt von CADwiesel: na, da bin ich aber froh, das ich so einen Quatsch erst garnicht in meine Programme reinschreibe - Copyright - Kaputtlach und wegschmeiß Stimmt, das braucht man nicht. Nach deutschem Rechte hat man als Urheber sowieso und vollautomatisch und ohne jeden Hinweise alle Rechte, und dazu gehört auch das Recht, bei einer Veröffentlichung namentlich genannt zu werden. Gerade letzteres Recht kannst Du noch nicht mal aufgeben, wenn Du es aufgeben willst - Du kannt l ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Auswahl, bei nein abbruch
fuchsi am 10.08.2010 um 08:51 Uhr (0)
icvh denke, es ist ein Fehler im IFSyntax ist so(if (bedingung) (erüllt anweisung) (nicht erfüllt anweisung))Das heisst diese Zeile macht genau folgendesWenn die Abfrage gleich "NEIN" ist, mach ein command Gridmode 0, ansonsten mach ein command CancelCode:(if (= Abfrage "Nein") ;;bei nein abbrechen und ausschrift (command "Gridmode" "0") ;; - Erfüllt ANweisung (command "cancel") ;; - Nicht Erfüllt Anweisung )ich denke, du willst aber beide Commands machen bei Abfrage ="nein"Code:(if (= Abfrage ...
|
| In das Form Lisp wechseln |
|
Lisp : Werte von Attributen in Blöcken ändern
Bernhard GSD am 01.02.2021 um 15:41 Uhr (1)
Ich verwende 2 Lisp-Befehle zum Attribut-Handling:(:attget [blockname])Liefert Dotted-pair Liste, die mit (CDR (ASSOC...) auszulesen ist.Code:(DEFUN :attget (#name / #att #elem #rückliste #ende) (WHILE (NOT #ende) (SETQ #elem (ENTGET (SETQ #name (ENTNEXT #name)))) (IF (= (CDR (ASSOC 0 #elem)) "SEQEND") (SETQ #ende T) (SETQ #rückliste (CONS (CONS (CDR (ASSOC 2 #elem)) (CDR (ASSOC 1 #elem))) #rückliste)) ) ) #rückliste)(:attakt [blockname] [attributbezeichnung] [neuerwert])Code:(DEFUN :attak ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Scheitelpunkt x / Kontollpunkt
AB am 10.06.2003 um 14:06 Uhr (0)
Liebe Forum-Mitglieder, ich habe eine Frage, zu einem Thema, welches schon häufiger diskutiert wurde, wo ich aber noch keine vollständige Antwort zu gefunden habe. Es geht mal wieder um die Kontroll- bzw. Stützpunkte einer LWPOLYLINE. Ich habe mehrere LISP zu dem Thema gefunden, aber es werden mir immer nur 2 Koordinaten ausgegeben. Mir fehlt jetzt z.B. der x-Wert (z. B. 244,45). Über das Eigenschaftsfenster kann ich mir aber die kompletten Koordinaten aller Vertex ansehen, das bedeutet doch, dass dieser ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Excel API Aufruf erzeugen
archi.archi am 16.09.2022 um 10:13 Uhr (1)
Hallo Forumer,über die Excel-Api möchte ich durch eine kleinen Anpassung der (defun GetExcel) aus getexcel.lsp von Terry Miller den max. verwendeten Zellbereich (also MaxRanges) einer Tabelle ermitteln.mit VBA einfach:Code:letztezelle = ActiveSheet.Range("A1").SpecialCells(xlCellTypeLastCell).Address(False, False)mit Lisp komme ich leider bei der richtigen Zusammenstellung dieses Api-Aufrufes nicht weiter:Code:(setq MaxRanges (vlax-get-property (vlax-get-property (vlax-get-property (vlax-get-prope ...
|
| In das Form Lisp wechseln |
|
Lisp : Gruppieren mit AutoLISP
cadffm am 22.02.2017 um 12:30 Uhr (1)
Abgesehen davon ob man nicht vielleicht mit dem passenden Programm für diese Aufgabe arbeiten sollte.Dynamische Blöcke sicher zum großen Teil sinnvoll eingesetzt werden könnten.Ein normaler Block mit XY-Skalierung auch eine Kompromisslösung darstellt.So würde ich schon mal eine geschlossene Polylinie + Linie den fünf Einzellinien vorziehen.Ob man dann noch eine Gruppierung der 2 Objekte benötigt?Falls ja: Für die Geometrie ist ja schon kein Lisp notwendig, auch nutzt du zum erstellen normale Autocadbefehle ...
|
| In das Form Lisp wechseln |
|
Lisp : ssget oder getreal, optionale Abfrage
CADuceus am 10.07.2018 um 17:11 Uhr (1)
Guten Abend nochmalAlso meine Frage ist beantwortet aber zum Verständnis für alle...Zitat:Original erstellt von cadffm:Wenn ich dich recht verstehe möchtest du überhaupt keine Option anbieten sondern lediglich die Möglichkeit geben einen Vorgabewert per Enter zu übernehmen?Doch. Ich möchte eben die Option anbieten...Zitat:Original erstellt von cadffm:PUNKT wählen vs. ZahlenwertDas eine ist eine Koordinate, das andere ist eine Zahl - macht auf den ersten Block keinen Sinn!?...einen Zahlenwert zu verändern, ...
|
| In das Form Lisp wechseln |
schraffur_notAzz.dwg.txt |
Lisp : Schraffur merkwürdig und neue Umgrenzung nicht assoziativ
tappenbeck am 13.07.2021 um 14:18 Uhr (1)
Moin!ich habe Schraffuren wie die aus der Anlage.Am Schluss muss ich daraus irgendwie ein MPoylgon erstellen.Nun wollte ich die Umgrenzung neu erstellen lassen und dann mit Lisp die Umgrenzungselemente abfragen. Aber bei der Abfrage kommen die Borders nicht mit.Dann habe ich mir das Element etwas näher angesehen und irgendwie wird die Schraffur nicht assoziativ. Auch die "frisch" aus der Schraffur abgeleiteten Border sind nicht assoziativ. Hier vermute ich auch warum ich diese nicht abfragen kann.Dann woll ...
|
| In das Form Lisp wechseln |
|
Lisp : aus String Programmaufruf erstellen
Werner-Maahs.de am 02.05.2008 um 17:59 Uhr (0)
Hallo,ich habe ein recht umfangreiches LISP-Programm, in dem ich über eine Text-(Datenbank-)Dateieinen Text eingeben kann, mit dem ein gleichnamiges Programm gestartet werden kann.Beispiel:Aus DB-Datei lese ist den Text XY heraus (setq Dateiname (read-line ...)).(setq dateinamen (strcat Dateiname ".LSP"))Mit der Funktion (load dateiname) rufe ich das Programm auf.Aus dem aufegrufenen Programm wird dasselbe gestartet.Nun beabsichtige ich mein Hauptprogramm so zu ändern, das ich nicht jedesmal das Unterprogr ...
|
| In das Form Lisp wechseln |
|
AutoLisp : nur teile eines String
Petra_Sp am 17.06.2004 um 09:15 Uhr (0)
Hallo Fuchsi Danke nochmal, hat prima Funktioniert. Du hast mir sehr damit geholfen!! Eine Frag noch an alle: Kann ich mir aus einem Dateinamen z.b. DetailB001-20-5-001-.dwg einen ganz bestimmete Position z.b. den 1 er (6. Position von rechts) rausfiltern und in meinen Plankopf automatisch auf eine bestimmte Position eintragen-verwenden? Ist das möglich?? Oder der umgekehrte Weg wäre auch nicht schlecht. Ich habe z.b. in meinem Plankopf Attripute wie Art (4), Plannr. (001) und Index (-). Diese sollen dann ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Externe Lisp in Repeat starten möglich?
CADwiesel am 26.10.2004 um 11:15 Uhr (0)
müsste so gehen (command .-layer _th * _on * ) (setq allobj (ssget X (list (-4 . AND )(cons 8 * ) (-4 . AND )))) (Setq objanz (sslength allobj)) (repeat objanz (setq laakt (ssget l )) (print laakt) (setq las (ssname laakt 0)) (print las) (setq elist (entget las)) (print elist) (setq lalist (assoc 8 elist)) (print lalist) (setq aktla (cdr lalist)) (print aktla) (command .-layer _se aktla _off * _on aktla ) (if (setq lst (acet-overkill-ui nil)) (acet-overkill2 lst) );if ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Attributswerte übertragen
Ian_K am 01.04.2008 um 13:10 Uhr (0)
Jupp! Das kann ich bestätigen. Genauso wie ich es eingangs dargestellt habe.Obwohl ich das Script bei Bedürftigkeit bestimmt noch etwas selbst anpassen können - Namen ändern oder drehen.Bin von Haus aus eigentlich VBAler. Mit Lisp hab ich so meine Schwierigkeiten, aber das schöne Script von Marc gibts ja nun schon mal. Eine kleine Erweiterung in der Schleife oder nach der Schleife, wo man die von der Funktion erstellte Liste der Texte mit einigen Variablen erweitern könnte wäre nicht schlecht nach dem Mott ...
|
| In das Form Lisp wechseln |
