|
Lisp : Block im Block sprengen
autocart am 01.07.2009 um 17:43 Uhr (0)
also...nix entmod, da wird man ja wahnsinning!ActiveX ist hier das Zauberwort. (vl-load-com) und dann für jedes Vielflächennetz:Code:(setq ename ...); hier irgentwie den ename des Vielflächennetzes finden - ich habs testweise mit (car(entsel)) gemacht, ist aber für die Automatisierung natürlich nicht zu empfehlen(vla-put-layer (vlax-ename-vla-object ename) "0")Am einfachsten wäre vielleicht im obigen Lisp die Zeile(setq EDATA(subst (cons 8 "0")(assoc 8 EDATA)EDATA));changes layer to 0auszukommentieren und ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Zweites Element
Rabbit 007 am 22.07.2005 um 14:59 Uhr (0)
Hallo Axel Tja was soll das werden. Ich versuche halt mit LISP ein paar nützliche sachen für mich zu erstellen um so auch ein wenig LISP zu lernen. Ich möchte halt für mich eine prüfung der Zeichnung durchführen. So das von Blöcken mit gleichem Namen die Blockattribute konntrolliert werden. Und zwar immer das erte Attribut im Block muss eine fortlaufende Nummer haben. So das es mir nicht passieren kann das ich ein Blockattribut falsch beschrifte (doppelt o. ausserhalb der Reihe). Da jeder Block 4 attribut ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Platzbedarf (Kontur) von AutoCAD-Objekten
Dabrunz am 10.09.2004 um 12:42 Uhr (0)
Ich habe, um der Kontroll- und Anpassungs-Punkt-Diskusion bei Spline-Objekten etwas Würze zu verleihen, einmal eine übersichtliche Beispielzeichung erzeugt und das mit getBoundingBox ermittelte Umgrenzungs-Rechteck in Relation zu dem gestellt, das bei direkter Einbeziehung der Kontroll-Punkte de Splines (GC 10) entsteht. Daraus lässt sich ganz sicher ableiten, dass diese Punkte nur indirekt ein die Berechnung von getBoundingBox eingehen. Wie allerdings, kann ich so ohne weiteres nicht sagen. Was die MT ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Blockattribute von Linien freistellen
tunnelbauer am 24.04.2006 um 13:25 Uhr (0)
Also den Original-Thread finde ich nicht... (keine Ahnung warum - vielleicht meldet sich aber der Wohltäter des Lisps und kassiert auf diese Art & Weise seine wohlferdienten Loorbeeren !)Code:;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;; Aufruf der Funktion nach dem laden von TBT_MTEXT dur ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Ursprung für alle Layouts
CeZet am 16.08.2004 um 08:29 Uhr (0)
Hi Cadmium Das erwähnte Script lässt sich laden, aber passieren tut nach dem Ausführen nichts. Da beim letzten Beitrag noch vom Burst-Befehl die Rede war ist auch dieser noch halb im Lisp integriert, da ich aber Anfänger bin kann ich es nicht vervollständingen und zum laufen bringen. Ein Explode über Modell und alle Layouts würde genügen. Ich bin nun über das Weekend einen Schritt zurück, habe ein normales Explode-Lisp genommen und wende dies auf Modells und Layouts einzeln an. Nicht die ideale Lösung, obs ...
|
| In das Form AutoLisp wechseln |
|
Lisp : autoload ohne autoload
toxot am 25.09.2009 um 18:32 Uhr (0)
Zitat:Original erstellt von CADmium: hier fehlt übrigens noch ein strcat ..... und (load "NAME" ()) ??? Negativ! Annahme: Du meinst die Extension .lsp, .fas .flxMuss nicht angegeben werden.Load lädt wahlweise nach date + extension (or lsp fas ...) Zitat:da ist IMHO (/= "ERROR" (load "NAME" "ERROR")) besser...da die Rückgabe von load bei Erfolg lt.Doku "unspezifisch" istIm Code wird spezifisch () im Fehlerfall zurückgegeben.Siehe ... (cond ((load(setq unkn_c(car b))()) ; wenn error --- nil ... Zitat: ...
|
| In das Form Lisp wechseln |
|
Lisp : reactor in lisp
archtools am 14.05.2011 um 19:53 Uhr (0)
Zitat:Original erstellt von zech:Hallo Cadmium,habe ich schon dran gedacht. Ist aber so, das dem object-reactor vorher alle Objekte bekannt sein müssen. Man muss also ein oder mehrere Objekte dem reactor in einer Liste zuordnen (sog. owner).Mal abgesehen von einem bestimmten Block, wie oben beschrieben. Ich möchte die Referenz des Objektes haben welches ich anklicke und verschiebe, das ist eigentlich alles, alles andere ist dann ein Kinderspiel.DankeDein Problem ist kein exotisches, sondern ein ganz und g ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Blöcke bzw. Attribute 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 : bitte Mini-Lisp prüfen , danke
cadffm am 02.10.2002 um 09:39 Uhr (0)
Hallo erstmal. Kurzversion: überspringen der nachfolgenden Zeilen, Lispzeilen lesen, sind die so OK ? - Antwort! Langversion: wenn man mein Lispkenntnisse mit meinen Griechisch- Kenntnissen vergleicht, so sind diese sehr ähnlich, Griechisch kann ich nicht einen Satz und in Lisp kenn ich nur 10 Wörter, die Bedeutung allerdings ist mir noch nicht soo geläufig. Dies sollen aber die ersten nützlichen Lispzeilen von mir werden. also ich möchte eine Verz. mit dem Inhalt: Dwg´s die als ...
|
| In das Form AutoLisp wechseln |
3dKanal_Problem-DWG.txt |
Lisp : 3D Objekte Zeichnen
Nano am 18.05.2013 um 09:52 Uhr (0)
Hallo JürgenKannst du behilflich sein, da wäre ich froh.bei diese Zeile habe ich noch ein Problem und ich weiss nicht mehr weiter.Habe noch eine Zeichnung im Anhang, so dass mann den Fehler sieht.Lisp:(DEFUN c:3dKanal() (SETVAR "cmdecho" 0) (SETQ $breite (Getreal "
Kanal-Breite angeben: ") $hoehe (Getreal "
Kanal-Höhe angeben: ") $laenge (Getreal "
Kanal-Länge angeben: ") $flansch 22 $flanschbreite (+ (* $flansch 2) $breite) $flanschhoehe (+ (* $flansch 2) $hoehe) $blechdicke 5 ) (command "bks" " ...
|
| In das Form Lisp wechseln |
|
Lisp : Daten speichern
MH Bit am 23.03.2004 um 11:17 Uhr (0)
Hallo,ich möchte Daten anhand einer Liste einem Objekt anfügen, so dass ich nach erneutem laden der Zeichnung dies Daten wieder zur Verügung habe. Das Objekt das ich zeichnen möchte, wir über eine Maske dürch Längen der Kanten angegenen. Diese Daten möchte ich speichern (z.B. Viereck Höhe: 100 Breite: 200 Liste die gespeichert werden soll: ((1 100)(2 200)) Aus diesen Daten errechne ich mir die Koordinaten wo das Viereck gezeichnet werden soll. Leider sind die Objekte etwas komplizierter)Ich hab etwas Code ...
|
| In das Form Lisp wechseln |
|
AutoLisp : ja ja diese reaktoren...
fca_mi2 am 23.11.2003 um 18:01 Uhr (0)
n abend, ich habe mit hilfe der seiten einen reactor geschrieben der mir bei jedem qsave eine sicherungskopie in meinem temporärverzeichnis ertsellt. wen es interessiert, hier ist der code : ;******************************************************************* ;************************ speichern ******************************** ;******************************************************************* (defun fc_reaktor_speichern_vorher(/ zeichnungsname zeichnungspfad) (princ) );defun (defun fc_reaktor_speicher ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Setzen von Layereigenschaften über entget
tappenbeck am 13.07.2012 um 14:45 Uhr (0)
hi!ich bin einmal wieder bei der Sache und habe jetzt ein Problem was ich nicht nachvollziehen kann.Wie bereits geschrieben habe ich die GC 62 und 70 gespeichert um diese über Entget wieder herzustellen.Ganz zu Anfang habe ich die Layereigenschaften abgefragt:Zitat::: (entget (tblobjname "Layer" "NeuerLayer5"))((-1 . Entity name: 15849f60) (0 . "LAYER") (5 . "4B") (330 . Entity name: 0b542118) (100 . "AcDbSymbolTableRecord") (100 . "AcDbLayerTableRecord") (2 . "NeuerLayer5") (70 . 0) (62 . 3) (6 . "Continu ...
|
| In das Form Lisp wechseln |
