 |
Lisp : Blöcke auf Polylinien und-color: #FFFF99'>suchen
archtools am 21.10.2022 um 11:27 Uhr (15)
Zitat:Original erstellt von cadffm:Die Methode ist natürlich recht oberflächlich,zB. vernachlässigt diese ob die Blockreferenz wirklich auf einem Vertex oder Mittelpunkt liegt..... und wenn sie exakt mit dem Einfügepunkt drauf liegt, bedeutet das ja noch lange nicht, dass die Blockreferenz in der Nähe ihres Einfügepunkts auch "Fleisch" hat, also Entities, die man mit SSGET greifen könnte.Nein, da würde ich völlig anders vorgehen: Für eine Polylinie die Liste der Vertices und Mittelpunkte erfassen, und dann ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Linien mit ignoriertem Muster und-color: #FFFF99'>suchen
Peter2 am 14.04.2005 um 16:40 Uhr (0)
Bei sehr kurzen Linien geht sich oft der definierte Linientyp nicht aus - das definierte Muster ist zu lang und passt nicht auf die Linie und wird daher als durchgezogene Linie dargestellt. Gibt es eine einfache Möglichkeit, diese Linien zu finden? Peter ------------------ Für jedes Problem gibt es eine einfache Lösung. Die ist aber meistens falsch. ;-)
|
| In das Form AutoLisp wechseln |
|
AutoLisp : und-color: #FFFF99'>suchen und erstzen
CADmium am 27.07.2004 um 11:11 Uhr (0)
im Endeffekt sollte dann so ne Funktion rauskommen : (defun C:Ersetze ( / Kreis Block AUSWAHL OBJEKT INDEX) (if (and(setq BLOCK(getstring
Blockname: )) (tblsearch BLOCK BLOCK) (setq Kreis (car(entsel
Kreis wählen: ))) (setq Kreis (entget KREIS)) (=(cdr(assoc 0 KREIS)) CIRCLE ) (setq Auswahl (ssget _x (list (assoc 0 KREIS) (assoc 8 KREIS) ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Ersetzen über Lisp
tom.berger am 18.06.2004 um 10:49 Uhr (0)
Zitat: Original erstellt von Kleiner_pally: wie kann ich über Lisp mehrere texte die zb. xxx durch yyy ersetzen aber das mehrmals unterschiedlich (xxx - yyy u. bbb - ccc usw..) Schau mal im Thread http://ww3.cad.de/foren/ubb/Forum54/HTML/003598.shtml nach dem Beitrag von mir mit dem LISP-Programm GSR. Das Programm ist uralt und berücksichtigt keine MTEXT-Elemente, aber das wäre einfach zu erweitern. Dafür bearbeitet es auch Texte innerhalb von Blöcken sowie Attribute. Tom Berger ------------- ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Nach Block in Zeichnung und-color: #FFFF99'>suchen
Brischke am 20.02.2012 um 08:50 Uhr (0)
Hallo Gerhard,auch wenn du mich jetzt nicht explizit angesprochen hast, was hast du denn genau vor?Wie mir scheint, ist dir der Aufbau der Zeichnungsdatenbank nicht ganz klar. Daher ist es vielleicht sinnvoll, wenn du beschreibst, was dein Ziel ist, dann können wir einschätzen, ob der von dir eingeschlagene Weg überhaupt zielführend ist.Grüße!Holger------------------Holger BrischkeCAD on demand GmbHIndividuelle Lösungen von Heute auf Morgen. defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!
|
| In das Form Lisp wechseln |
|
Lisp : Block ersetzen
Geos am 16.08.2007 um 08:29 Uhr (0)
Danke Henning (werd mir beide aufheben)Wollt die Progs heute anschauen, aber - eh klar - wieder keine Zeit dafür.------------------Schöne GrüßeErnst www.geopaint.at
|
| In das Form Lisp wechseln |
|
AutoLisp : Objekte und-color: #FFFF99'>suchen ihn Zeichnung
fuchsi am 18.10.2005 um 10:25 Uhr (0)
Zitat:Original erstellt von Dober Heinz:Hallo Lisplerich habe mit diesem Befehl (setq (ssget)) ein Objekt gewählt, wie kann ich die Ganze Zeichnug durchund-color: #FFFF99'>suchen nach gleichen Objekten.danke heinzich würd das erste Objekt nicht mit SSGET wählen, sondern mit Entsel (ssget = Objkte wählten entsel = Objekt wählen)und dann z.B.: hiermit(setq en (car (entsel)))(setq ed (entget en))(setq ss (ssget "X" (list (cons 0 (cdr (assoc 0 ed))))))alle Elemente des gleichen Typs (z.B.: alle Linien) wählen------------------ ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Text automatisch ersetzen
cadffm am 29.09.2004 um 11:37 Uhr (0)
Proxy ist in die Falle getappt ------------------ Bitte Systemdaten eintragen (siehe links unter dem Namen) , wie & warum siehst du HIER
|
| In das Form AutoLisp wechseln |
|
Lisp : Kreise ersetzen
CADmium am 15.11.2011 um 10:21 Uhr (0)
@Meldin: nix gegen konstruktive Beiträge .. aber jetzt wird es albern------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : Kreise ersetzen
CADchup am 15.11.2011 um 09:25 Uhr (0)
Hi,Wolfgang, ich bin mir sicher, dass Heinz das inzwischen längst verinnerlicht hat. Habe es oben trotzdem geändert, falls irgendwann ein anderer LISP-Frischling hier reinstolpert.GrußCADchup------------------CADmaro.de
|
| In das Form Lisp wechseln |
|
Lisp : Lisp soll nach Blöcken und-color: #FFFF99'>suchen
CADmium am 07.04.2009 um 13:09 Uhr (0)
(if(or(tblobjname "BLOCK" "A-RAHMEN") (tblobjname "BLOCK" "B-RAHMEN") ) (alert "Falscher Rahmen"))die Zeilen in der acaddoc.lsp integriert sollten genügen ... sucht jetzt nur nach Blockdefinitionen, nicht nach Referenzierungen ... aber ein Bereinigen schadte ja auch nicht------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
AutoLisp : Blöcke bzw. Attribute und-color: #FFFF99'>suchen
mapcar am 27.07.2005 um 11:35 Uhr (0)
Zitat: Original erstellt von marc.scherer: Hat das überhaupt jemals funktioniert? Nö, hat es nicht, und eigentlich sollte das hier bekannt sein, weil die Frage schon öfters gestellt wurde. ATTRIBS sind nun mal nachrangig in komplexen Entitities, genauso wie VERTEX in den fetten Polylinien. Ein (ssget "X" ((0 . "VERTEX"))) hat es auch nie gegeben, da ssget nur in der (oberen) Ebene der Haupt-Entities sucht. Nachrangige Entities in komplexen Entities kann man nur mit einer While-Schleife (o.ä.) ausl ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Layer in Blöcken und-color: #FFFF99'>suchen / finden
CADmium am 02.03.2005 um 15:03 Uhr (0)
ohne Dialog, d.h. den Layernamen mußt du noch eingeben folgendes Tool ..gibt eine Liste mit Blocknamen zurück, in denen der gesuchte Layer referenziert ist Wenn OBJDELETE? mit T übergeben wird, werden die Elemente, die den Layer referenzieren gleich gelöscht. Aufruf z.B.(DT:SEARCH-LAYER-INBLOCK AM_GEL nil) oder DT:SEARCH-LAYER-INBLOCK in der Befehlszeile ------------------ - Thomas - Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte ...
|
| In das Form AutoLisp wechseln |
