|
Lisp : AutoCAD 2009 und UNDOCTL
Dober Heinz am 09.05.2008 um 07:19 Uhr (0)
Hallo Tom Das sagt Autocad 2009Systemvariablen U-Systemvariablen UNDOCTL UNDOCTL Konzept Verfahren Kurzübersicht Typ: Ganzzahl Gespeichert in: Nicht gespeichert Ausgangswert 53 Gibt den Status der Optionen Auto, Steuern und Gruppe des Befehls ZURÜCK an. Der Wert wird als Bitcode gespeichert, der aus der Summe der folgenden Werte besteht:0 ZURÜCK ist deaktiviert. 1 ZURÜCK ist aktiviert. 2 Es kann nur ein Befehl rückgängig gemacht werden. 4 Auto ist aktiviert. 8 Eine Gruppe ist momentan aktiv. 16 Zo ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Zahlenspiel
flaschenpost am 18.02.2005 um 10:57 Uhr (0)
Frag doch Heinz, wenn es nicht läuft, nützt es ja auch nichts !
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Unbenannte Gruppe
Dober Heinz am 30.03.2004 um 06:38 Uhr (0)
hallo Cadmium ich bin zu blöd bring das nicht hin aber danke ------------------
|
| In das Form AutoLisp wechseln |
|
Lisp : Änder der Schraffurfarbe im Block
Dober Heinz am 15.07.2011 um 19:47 Uhr (0)
Hallo Frage wie kann ich die Farbe der Schraffur im Block ändern.Habe ihr einen Code der mir die Farbe änder ist ok so.Aber jetzt will ich, das ich die Schraffurfarbe im Block, z.B auf Layer null legen kann. Code:(defun GetBlockEntity (#blockname / retlst) (if (tblsearch "BLOCK" #blockname) (vlax-for each (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)) ) #blockname ) (setq retlst (cons each retlst)) ) )) (defun ChangeColor (#vlaOb ...
|
| In das Form Lisp wechseln |
|
Lisp : Polylinienstützpunkt einfügen
Dober Heinz am 01.04.2004 um 10:56 Uhr (1)
gleich beim starten kann gar nicht audgeführt werden das lisp------------------
|
| In das Form Lisp wechseln |
|
AutoLisp : Zahl Hochzählen
Dober Heinz am 20.02.2003 um 13:31 Uhr (0)
Danke cad-lisp war nicht so gemeint dafür gibts ein paar dance:
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Prüfen ob Zahl
Dober Heinz am 21.12.2005 um 16:23 Uhr (0)
Hallo LisplerHabe diese Lisp zum Prüfen ob Zahl, beim ersten Beispiel funkt es.Aber beim zweiten nicht mehr habe keine Ahnung warum.Bitte um eure Hilfe.----------------------------------------------------------------------(defun str-zahl-am-ende (teststring / zaehler stringende zahl-am-ende) (setq zaehler 0) (while (numberp (read (setq stringende (substr teststring (- (strlen teststring) zaehler))))) (setq zahl-am-ende (read stringende)) (setq zaehler (1+ zaehler)) )zahl-am-ende)----------- ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Koordinatenbemassung mit Ergänzung
Bassi am 14.11.2005 um 09:40 Uhr (0)
Hallo Heinz,ob Visual-Lisp für diesen Zweck notwenig ist weiß ich nicht.GrußBassi
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Num.LSP (Einfügepunkt)
Alpschorsch am 06.08.2004 um 12:05 Uhr (0)
@ Dober Heinz, geht leider immer noch nicht! Das mit dem gruppencode (72.1)(73.1)war s wohl! Trotzdem Danke! Mfg
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Pfad/Veruzeichnis auswählen lassen
Hans-Peter Dukeck am 26.08.2003 um 13:16 Uhr (0)
Hallo Heinz, vielen Dank für den Link! Grüße HP
|
| In das Form AutoLisp wechseln |
|
Lisp : Blöcke durchnummerieren
Hein Rich am 09.06.2007 um 10:07 Uhr (0)
Hallo Martin, nein, LISP ist nich meine Welt und ich benötige ja auch nur Keinigkeiten um mir die Arbeit zu vereinfachen.So jetzt zu Dienen Fragen:-Es ist nicht immer der gleiche Block, aber alle meine Blöcke haben die gleichen Attribute und die haben die gleiche Reihenfolge.-Die Blöcke sind auch schon in der Zeichnung.-Es soll nur ein Wert hochgezählt werden.-Die Nummerierung soll blockunabhängig sein. Beispiel: Ein Block heißt "HEINZ", ein Block heißt "KURT", ein Block heißt"MARTA". In einer Reihe solle ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Versetzen auf gemessener Strecke
Dober Heinz am 10.11.2005 um 08:31 Uhr (0)
Hallo habe mir ein Lisp geschrieben, wo ich eine Stecke Messe, diese Strecke dann teile und eine Linie auch dieser Strecke versetzten lass.aber das Versetzten funkt nicht so richtig.(defun c:mteilen (/ tei-len) (setq pt1 (getpoint "
Anfangspunkt eingeben: ")) (setq pt2 (getpoint "
Endpunkt eingeben: ")) (setq lange (distance pt1 pt2)) (setq teil (getint "
Wieviele Linien: ")) (setq tei-len (/ lange teil)) (setq entset (entsel)) (setq Element (car entset)) (setq side_point (getpoint "Punkt auf Seite ange ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Polylinienstützpunkt einfügen
Dober Heinz am 01.04.2004 um 11:41 Uhr (1)
hallo marc habe Autocad neu gestartet, jetzt läuft es super lispdafür gibt es 10 u------------------
|
| In das Form Lisp wechseln |
