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 |
|
Rund um AutoCAD : Objekt in Blöcken suchen und löschen
CADuceus am 13.04.2011 um 15:43 Uhr (1)
Zitat:Original erstellt von KlaK:Ist mir jetzt nicht ganz klar was Du machen möchtest.Hast Du verschiedene Blöcke (also unterschiedliche Namen) oder gleicher Block öfters eingefügt? [...] Zitat:Von mir selbst:Ich habe verschiedene Blockreferenzen [...] Was ist da unklar?@CADmium (gehört u.U. ins Lisp-Forum):Ich schaffe es ALLE Polylinien zu löschen:Code:(if (= (strcase (vla-get-objectname ITEM)) (strcase "AcDbPolyline"))Aber wie kann am einfachsten weitere Filterkriterien einbauen?Folgende Anpassung produ ...
|
| In das Form Rund um AutoCAD 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 |
|
Rund um AutoCAD : Bemassung über mehrere Ansichtsfenster
nebuCADnezzar am 03.02.2016 um 10:16 Uhr (1)
Schönen guten MorgenJa sieht so aus, hab mich mal durchgefragt, bei Bemassung im Layout hab ich grosse Augen geerntet... Als nicht Metallbauer hät ich gesagt geht ja gaaaaar nicht, aber wenn dass Standart is werd ich mich Anpassen müssen...Wir haben/hätten hier Athe... aber ich nich, a kann ichs nich, b hab ich ne 2014 Inventor / Mechanikal Installation...ich hab mal noch schnell gekukt ob ich die Start und Endpunkte der Bemassung rausbekommen kann, aber mal wohl nicht auf die schnelle, dann hät ich das Ma ...
|
| In das Form Rund um AutoCAD 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 |
dwg.zip |
Lisp : Hatches von User-defined auf Custom ändern
silvatika am 02.02.2009 um 07:36 Uhr (0)
Hi,das mit dem Dateianhängen ist eine gute Idee. Ich hoffe, es klappt.Mit FME haben wir schon Stunden verbracht, damit die Hatches richtig konvertiert werden. Aber leiderohne Erfolg. Wir haben auch schon versucht, bereits vorhandene Flächen von AutoCAD (z.B. SWAMP) mit einer ZEBRA-Darstellung zu verändernn. Aber auch das klappte nicht. Kann aber auch sein, dass es irgendwie mit AutoCAD zusammenhängt (die *.pat-Dateien liegen im Support-Ordner). Auf jeden Fallkommt die Information, dass es sich bei einer Fl ...
|
| In das Form Lisp wechseln |
|
Lisp : Kein Dialogfeld bei Attributeingabe gewünscht
cm-Zeichner am 27.12.2013 um 12:17 Uhr (1)
Hallo, bei der Umstellung von AutoCAD 2004 auf 2014 ergibt sich beim Ablauf eines alten Lisp-Programmes folgendes Problem:Zum Einsetzen eines Blocks werden vorher einige Variable berechnet, diese werden dann an den Insert Befehl übergeben. Das funktioniert. Sobald er dann aber zur Eingabe eines Attributes kommt - erscheint das Dialogfeld.Code:(command "_.INSERT" NAT-TST pins1 höhe1 "" dreh_objekt ts)Hab das auch einzeln probiert, also nur Code:(command "_.INSERT")eingegeben, kein Dialogfeld zum Blockeinfüg ...
|
| In das Form Lisp wechseln |
|
Lisp : MTEXT mit entmake setzen
romi1 am 26.03.2010 um 11:36 Uhr (0)
Hallo!Habe mir ein Lisp geschrieben, welche diverse Daten extrahiert und diese formatiert (mit Tabulatoren, ...) in die Variable "mtext-zeile" schreibt; diese Daten sollen dann zum Schluß als MTEXT mit entmake in die Zeichnung gesetzt werden:Code: (entmake (list (cons 0 "MTEXT") (cons 100 "AcDbEntity") (cons 100 "AcDbMText") (list 10 (car einsetzp) (cadr einsetzp)) (cons 40 2.5) (cons 41 250) (cons 1 mtext-zeile) ...
|
| In das Form Lisp wechseln |
|
Rund um Autocad : Lisp Hilfe : auswerten von Listen
marc.scherer am 02.11.2001 um 12:31 Uhr (0)
Hi, so was hab ich mal geschrieben... (defun c:gsc ( / COLR LAYR PICKED) (setq picked (entsel "
Objekt anklicken dessen Layerfarbe aktuelle Farbe werden soll: " ) ;_ end entsel ) ;_ end setq (if (/= picked nil) (progn (setq layr (cdr (assoc 8 (entget (car picked)))) colr (itoa (cdr (assoc 62 (tblsearch "LAYER" layr)))) ) ;_ end setq (setvar "cecolor" colr) ) ;_ end progn (princ "
Kein OBJEKT gewählt !") ) ;_ end if (princ) ) ;_ end progn Zu Dein ...
|
| In das Form Rund um Autocad wechseln |
|
Autocad VBA : Object.Centroid ?
Proxy am 04.01.2004 um 11:47 Uhr (0)
danke euch beiden, war mein Denkfehler , dann kommt sowas raus Code: Sub Centroid_2_Point() Dim Object As Object Dim ssget As AcadSelectionSet Dim Centroid As Variant Dim location(0 To 2) As Double Dim ZielLayer As String Dim AcadPoint As AcadPoint ZielLayer = Mein Layername hier On Error Resume Next ThisDrawing.Utility.GetEntity Object, PickedPoint, Bitte Objekt wählen: If TypeName(Object) = Region Then Set Object = Object End If Centroid = Object.Centroid location(0) = Centroid(0): location ...
|
| In das Form Autocad VBA wechseln |
|
Lisp : Doppelte Elemente einer Liste finden...
Brischke am 10.05.2004 um 12:45 Uhr (0)
Hallo Marc,Ok, habe es nicht getestet, nur überflogen und dann geschrieben.Hier deshalb das ganze ohne (vl-..) und so wie du es benötigst. Ich habe das ganze dann auch so gemacht, dass du mal dies und mal jenes als Ergebnis erhältst.Code:(defun DOUBLES? (LST WIE / RETVAL CHECK);|WIE - T = Liefert die doppelten Einträge der Liste LSTWIE - nil = Liefert die nicht doppelt vorhandenen Einträge der Liste LSTBSP:(DOUBLES? (0 1 2 3 4 5 6 6 7 8 9 6 11) T); - (6)(DOUBLES? (0 1 2 3 4 5 6 6 7 8 9 6 11) nil); - (0 1 ...
|
| In das Form Lisp wechseln |
