|
Lisp : Fields/Felder und deren Werte addieren
reltro am 03.10.2010 um 21:29 Uhr (0)
hallo archtools,Diesen Weg hab ich mir auch schon überlegt... weils grundsätzlich viele viele Dinge erleichtern würde.Die Sache die es für mich kompliziert macht sind die Reaktoren.Hab mich in der letzen Zeit ein wenig mit den Reaktoren befasst, zur Zeit auch ein Paar in Verwendung, jedoch sind das zb. der cmd-reactor, der mouse-reactor und lisp-reactor, welche meiner Meinung einen relativ verständlichen Syntax und funktionsweise an den Tag legen.Manche Andere sind mir jedoch völlig unverständlich bzw. hab ...
|
| In das Form Lisp wechseln |
|
Lisp : (command _rotate)
cadplayer am 03.09.2009 um 09:24 Uhr (0)
Hi communityhier nochmal mein Ansatz, um eine Text automatisch an einer Linie auszurichten, indem ich erst die Linie wähle und dann den Text.Wie kriege ich es hin, dass der Wert von riwi als eingabe für den Textwinkel realisiert wird? Die Routine fragt nun nach dem "Einfügepunkt", dass sollte automatisch der Texturprungspunkt sein.(defun c:rt () (SETQ wahl (ENTSEL "select line: ");abfrage der koordinaten anfp endp und berechnung des richtungswinkels riwi element (ENTGET (CAR wahl)) anfp (CDR(ASS ...
|
| In das Form Lisp wechseln |
|
Lisp : Eine konkrete Anwendung von (car (entsel))
CAD-Huebner am 26.11.2011 um 00:12 Uhr (0)
Zitat:Original erstellt von Barbara33:1.Wie kann ich überprüfen, ob ich alle verwendeten Variablen in der defun-Zeile lokal gesetzt und nicht was vergessen habe? Nur mit Durchschauen aller Zeilen? VLIDE Lisp Daei öffnen Extras UmgebungsoptionenAllgemeine OptionenDiagnoseStatistik bei Syntaxüberprüfung aktivierenund dannExtras Text im Editor prüfen und dann in das Fenster "Ausgabe für Erstellung" schauen. Zitat:Original erstellt von Barbara33:2.Gibt es eine Liste aller in einem Skript verwendeten Variabl ...
|
| In das Form Lisp wechseln |
|
Lisp : Flächenberechnung
spider_dd am 23.02.2005 um 22:58 Uhr (0)
Hallo Carsten, setze mal die folgenden Code-Fragmente an passender Stelle ins lisp dieses sicherlich ziemlich weit vorn, vor Abfrage der Elemente ; Abfrage Einheiten und setzen Umrechnungsfaktor ; 1. alles Umrechnen auf m2 (setq zeichnen_einheit (getstring Zeichnungseinheit angeben (m/cm/mm) )) (if (= zeichnen_einheit m ) (setq faktor_1 1.0) (if (= zeichnen_einheit cm ) (setq faktor_1 (/ 1.0 10000.0)) (setq faktor_1 (/ 1.0 1000000.0)) ) ) ; 2. alles Umrechnen von m2 (setq ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Lispbefehl VARIO funktioniert unter AutoCAD 2004 nicht mehr
Jürgen H am 27.04.2005 um 15:10 Uhr (0)
Also jetzt verstehe dank flaschenpost ich warum das Variolisp nicht ein zweites mal funktioniert. Vario funktioniert so: - Vario macht aus dem Objekt einen Block - Dann wird der Block eingefügt und unterschiedlich skaliert - Dann wird der Block mit Ursprung wieder zerlegt - Anschließend wird der Blockname tempor bereinigt, damit er beim nächsten Mal wieder zur Verfügung steht. Das Problem bei Vario ist das dieser besagte Block tempor nicht gelöscht wird. Wenn ich das Objekt dann anklicke ist es imm ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Block verschieben in Unterfunktion
pebre am 10.09.2011 um 20:41 Uhr (0)
Hallo Gemeinde,Bisher habe ich ein Objekt immer mit grread visuell verschoben. Nun möchte ich aber nicht mehr auf den Objektfang verzichten undversuche es nun mit der command-funktion _move: (defun block-insert (Blockname /) (setvar "osmode" 0) (command "_insert" Blockname (car(cdr(grread t 5 0))) 1. 1. 0. "") ;holt Block ans Fadenkreuz (command "_move" (entlast)(setvar "osmode" 3) "") ;verschiebt ihn )Block hereinholen und verschieben funtioniert als standalone-Funktioneinwandfrei, im Gesamtprogramm ...
|
| In das Form Lisp wechseln |
|
Lisp : attribute + Field von einem Block als Tabelle
-reltro- am 01.05.2010 um 11:12 Uhr (0)
allo erstmal...hätte da eine Frage bezüglich Blöcke, und hoffe jemand von euch kann mir unter umständen helfenDie sache ist die, ich habe über lisp einen Block erstellt, der zum einen Felder (Fläche, Umfang einer refernzierten Polyline enthält) und einige, von der Menge her unterschiedliche Atribute enthält. sprich einen Raumstempel, in dem zb. Raumname, Fläche, Umfang, Bodenbelag usw. oder auch nur eines oder mehrere dieser dinge enthalten sein kann, nicht nur in bezug auf die attribute sondenr auch auf d ...
|
| In das Form Lisp wechseln |
|
Lisp : Kreise durch Punkte ersetzen
Steff179 am 11.03.2009 um 21:14 Uhr (0)
Hallo zusammenich habe mir vorher ein kleines lisp geschrieben das mir alle gewählten kreise durch punkte ersetzt.funktioniert bestens.würde mich freuen wenn jemand zeit und lust hat, dies anzuschauen, ein wenig kritik hinterlassen würde.;Kreise in Punkte umwandeln;---------------------------------------------------------(DEFUN C:kreiszupunkt ()(setq vZAEHLER 0)(setq vPOSIT 0)(setq vSET (ssget))(setq vLAENGE (- (sslength vSET) 1))(setq vWargesperrt 0)(while(= vPOSIT vLAENGE) (setq vTrueKreis (cdr(assoc 0(e ...
|
| In das Form Lisp wechseln |
|
Lisp : Datensatz von 3dsolids auf ein 3dsolid rediuzieren
baumhaus am 15.05.2009 um 10:12 Uhr (0)
ok, ich komm nicht weiter.machts mich platt für das billige lisp. aber bin nun mal im stress Code:(defun C:GBL()(setq Objekt_liste (ssget ((0 . "3Dsolid"))))(setq H (getreal "
Höhedifferenz:"))(setq Hmax (getreal "
maximale Höhe:"))(setq Hmin (getreal "
Anfangshöhe:"))(setq P1 (getpoint "
Begrenzung") P2 (getpoint "
Begrenzung") P3 (getpoint "
Begrenzung") P4 (getpoint "
Begrenzung"))(setq n 0)(repeat (sslength Objekt_liste) (setq A (cons (ssname Objekt_liste n) A) n (+ n 1)))(setq lst_l (sslength A)) ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Fremdpläne anpassen
michelangelo am 12.10.2004 um 16:17 Uhr (0)
habe das nuke ausprobiert das geht nicht. ich weiss nicht warum aber es geht nicht bei allen fremdzeichnungen und blöcken. deshalb habe ich mit hilfe dieses forums mein eigens lisp kreiert. (command BEREINIG AL N ) (command _AUDIT J ) (C:as2isocp) ; ;as2isocp setzt alle schriftstile auf isocp ; (command _.LAYER FA 8 * T * ) ;;; (setq Index -1) ;;; (repeat (sslength (setq aws (ssget _X ((0 . DIM* ))))) ;;; (command _.explode ;;; (ssname ...
|
| In das Form AutoLisp wechseln |
 |
Lisp : Polylinie ... Schnittpunkte ???
edo2000 am 27.10.2012 um 21:22 Uhr (0)
Hallo Leute ...irgend wie Habe ich n geometrischen BlackOut und komme einfach nicht weiter. Und was Lisp betrifft sind mir nur die "Basics" Vertraut Zum Vorhaben:Gegeben ist eine Polylinie (Trasse) und sozusagen 2 Wagons die über eine Stange verbunden sind. Hierzu siehe angehängte Prinzip-Skizze. L1, L2 und L3 sind feste Größen die sich entlang der Trasse bewegen.Ich Starte am Anfang der Polyline und möchte die Punkte P1 bis P4 in gewissen Abschnitten ermitteln.Mit einem Hilfsbogen und Mapcars htt ...
|
| In das Form Lisp wechseln |
|
AutoLisp : xlspl ??? wie sieht denn die liste aus ?
philoktet1 am 15.03.2006 um 10:29 Uhr (0)
hi...bis jetzt hab ich alles mit vectorscript geschrieben und dachte der sprung auf lisp kann nicht so dramatisch sein ;-)eigentlich versuche ich hiermit nur einen teilaspekt aus einem grösseren zusammenhang darzustellen.ich habe ein javaprogramm das räume optimiert und diese als xml ausgibt.diese datei wird auf einen server geladen und durch einen genetischen algorithmus gedrückt und über mehrere generationen ein optimiertes system entwickelt (hoffentlich...)die statikersoftware rstab soll die einzelteile ...
|
| In das Form AutoLisp wechseln |
|
Lisp : renameblock.lsp
stolti am 05.06.2008 um 21:17 Uhr (0)
hallo leute.ich hab hier von herrn cadmium freundlicherweise eine tolle lisp bekommen.(defun C:LAYOUTRENAME (/ ITEM LAYOUTLISTE) (vl-load-com) (setq NAME (cadr(fnsplitl(getvar"dwgname")))) (vlax-for item(vla-get-layouts (vla-get-activedocument(vlax-get-acad-object)) ) (setq LAYOUTLISTE(cons(list ITEM (vla-get-name ITEM) (vla-get-taborder ITEM) ) LAYOUTLISTE ) ) ) (setq NR 0) (foreach LAYOUT (cdr(vl-sort LAYOUTLISTE (lambda(X1 ...
|
| In das Form Lisp wechseln |
