|
AutoLisp : EED und Variable
U. Neumann am 27.01.2004 um 09:18 Uhr (0)
Hallo Lisp-Gemeinde, ich möchte an Zeichnungsobjekte EED s anhängen. Die anzuhängenden Daten liegen in Variablen gespeichert vor. Der nachfolgende Ansatz liefert mir aber immer einen Fehler, da fehlerhafte DXF-Gruppe. Ersetze ich die Variablen durch Festwerte funktioniert es. Wo liegt mein Fehler? (defun c:Test ( / ) (if (NOT (tblsearch APPID LINIENPUNKTE )) (regapp LINIENPUNKTE )) (setq P1 (getpoint
Anfangspunkt: )) (setq PN1 (getstring Punktnummer: )) (setq P2 (getpoint
Endpunkt: )) (s ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : abrunden mit lisp
flaschenpost am 28.01.2005 um 14:58 Uhr (0)
@Udo Der Befehl _.fillet verhält sich sehr unterschiedlich. Linien mit Linien, P-linien mit Linien, P-linien mit P-linien ... und genauso in der Verwendung von (getpoint) oder (entsel). Zum Beispiel müssen bei getpoint nicht die P-linien auf dem Schirm voll sichtbar sein, die Linien aber müssen wieder voll sichtbar sein. Der deutsche Befehl abrunden scheint in Command-Zeilen ne Macke zu haben. Ich dachte erst an einen Bug in 2004. Jetzt muß ich alle Möglichkeiten mal systematisch testen und melde mich, wen ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Blöcke bzw. Attribute suchen
CAD-Huebner am 27.07.2005 um 22:32 Uhr (0)
Ich sollte mich ja auch schämen - hab ich auch ein paar Sekunden lang getan (weil ich den Fehler ssget in Verbindung mit Attrib gar nicht weiter zur Kenntniss genommen habe). Dann hab ich noch gedacht - vielleicht hilft der Hinweis auf die Möglichkeiten des Designcenters ja noch anderen Lesers weiter - dafür schäme ich micht nicht (hier wurde ja nur nach einem Tool gefragt). Manchmal kommen auch Tipps zu Lisp in "Rund und AutoCAD" Forum - warum nicht auch umgekehrt. Ach ja, mapcar darf das - mich ents ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Visual Lisp
CADmium am 01.03.2005 um 19:29 Uhr (0)
Bitte: (defun Test (DWGNAME / DWG) (if;vorhandene Datei (or(not(vl-catch-all-error-p (setq DWG(vl-catch-all-apply vla-open (if (=(getvar SDI )1) (list (vla-get-Activedocument(vlax-get-acad-object)) DWGNAME ) (list ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Polylinien und Kreisbögen in einem Lisp
Theodor Schoenwald am 05.03.2009 um 14:44 Uhr (0)
Wenn ich einen Namen gefunden hätte, könnte ich Dich mit Namen ansprechen.Zu Deinem Problem ein ganz anderer Ansatz:Es ist manchmal einfacher verschiedene Element wie Linien und Bögen als Linien und Bögen zu zeichnen und zum Schluss den Konturzug in eine Polylinie umzuwandeln.Dabei funktioniert auch folgendes Beispiel:Linie mit Bogen.Eine Linie zeichnen und danach der Befehl Bogen verwenden.Wenn dem Bogen kein Anfangspunkt gegeben wird, wird er automatisch tangential an die vorher gezeichnete Linie angesch ...
|
| In das Form Lisp wechseln |
|
Lisp : Variable in Lisp aus Excel
Dolcetto am 21.03.2006 um 07:40 Uhr (1)
Also ich komme einfach nicht weiter.(setq excel (vlax-get-object "excel.application")ExcelWorkbook (if excel (vlax-get-property excel "ActiveWorkbook"))ExcelSheet (if ExcelWorkbook(vlax-get-property ExcelWorkbook "ACTIVESHEET"))ExcelCells (if ExcelSheet(vlax-get-property ExcelSheet "CELLS")))(setq a (vlax-variant-value (vlax-get-property ExcelCells "item" 2 1)))Lasse ich genau diesen Code laufen mit einer geöffneten Excel, in der ich in der Zelle A1 den wert 50 eingetragen habe, bekomme ich vollgende meldu ...
|
| In das Form Lisp wechseln |
|
Lisp : Linienstärke - Farbe
CADmium am 26.09.2008 um 08:49 Uhr (0)
Zitat:Original erstellt von kh-arnold:Hallo Leute,ich benötige Eure Hilfe, .. und ich das richtige Programm dazu noch nicht gefunden habe.Könnt Ihr mir Helfen ???Eine Variante könnte so aussehen ... für deinen Zweck kann man das abspecken und Ini-gesteuert realisieren...Ohne Lisp mit Bordmitteln geht das für Top-Level-Geometrieobjekte aber auch mit der Schnellauswahl und dem Eigenschaftsfenster.Mit "bescheidenen" Lispkenntnissen sollte man aber nicht unbedingt gleich so ein Projekt angehen .. das wird d ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Zweites Element
startrek am 22.07.2005 um 23:42 Uhr (0)
Hi Wolfgang, Einrückungen und Kommentare sind sehr wichtig, nicht nur für den Schreiber, mehr für den Leser/Versteher, aber auch Schreiber werden irgendwann mal ihre eigenen Leser - und wenns nach zwei Jahren ist;-) Ob das nun was mit Ordnung zu tun hat, weiss ich auch nicht, bin ja eher der schlampige Typ und lege auf Ordnung wenig Wert, aber auf Einrückungen schon;;-)) Und die Sache mit dem Tod, nein den Tot - oder Torturials von Axel find ich genauso gut wie du. Nochwas: (defun C:Zählen () keine Ahnun ...
|
| In das Form AutoLisp wechseln |
|
Lisp : 3D Objekte ausfiltern und speichern
mundal am 19.12.2008 um 12:32 Uhr (0)
Hallo Zusammen,ich möchte eine AutoCAD 3D Zeichnung (Zusammenbauzeichnung) in Einzelbauteile zerlegen.Dabei sind die Teilegruppen auf je einer Layer gezeichnet.Es sollen zumindest die Geometrien der einzelnen Layer als separates File in eine eigene DWG besser ACIS-Datei (SAT) gespeichert werden.Optimal wäre wenn die einzelnen 3D Teile auf den Layern extrahiert werden.Beispiel:Zusammenbauzeichnung: ein komplettes AutoTeilegruppe: Motor, Karosserie, Innenausstattung, Räder etc liegen auf eigenen Layern.Das L ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Anfänger-Code mit unsichtbarem Problem
autocart am 20.07.2004 um 10:12 Uhr (0)
Hallo, folgender Code funktioniert bei mir nicht: ;Code soll prüfen, ob eine Zeichenkette Umlaute oder ß enthält (defun Umlautß-Pruefung (string01 / äs ös üs ßs) (setq äs 0 ös 0 üs 0 ßs 0) (repeat (strlen string01) (cond ((equal ä (substr string01 1 1)) (setq äs (1+ äs)) ) ((equal ö (substr string01 1 1)) (setq ös (1+ ös)) ) ((equal ü (substr string01 1 1)) (setq üs (1+ üs)) ) ((equal ß (substr string01 1 1)) (set ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Reaktor beim Beenden von AutoCAD
mapcar am 24.08.2004 um 13:04 Uhr (0)
Noch was: Das Umbiegen von Befehlen ist sowieso eine wacklige Technik, denn jeder, der ein paar Zeilen Lisp schreibt, meint ja, er muss unbedingt vor jeden Befehl in einem Command einen Punkt setzen. Das geht so nach dem Motto Hauptsache, meins läuft, alles andere wird abgeschossen... Dem Anwender ist damit aber nicht gedient. Ich evtl. würde ein kleines VB-Programm schreiben, das AutoCAD mit DB-Anschluss startet und über einen Timer prüft, ob AutoCAD noch offen ist. Gruß, Axel Strube-Zettler ----------- ...
|
| In das Form AutoLisp wechseln |
 |
Lisp : Häcken im Menü anzeigen
ryfCAD am 28.09.2020 um 15:11 Uhr (1)
Hallo Sebastian,Das hier im Forum die Screenshots mit den neuen, selbigen Namens überschrieben werden, habe ich zu spät bemerkt.Werde in Zukunft darauf achten! Ich sende dir zum Schluss nocmals ein Bild der CUI von GstarCAD mit deinem Eintrag.Dann nochmals (wegen den überschiebenen Screenshots) das Abrollmenü:Die von dir definierte Element ID "MMU_231_5810B" wird beim Markieren des Eintrages im Abrollmenü im Anzeigebereich (Ausgabebereich für modemacro) unten links nicht angezeigt.Ich denke, wir können das ...
|
| In das Form Lisp wechseln |
|
Lisp : Blockattribute drehen
Dorfy am 01.08.2011 um 16:12 Uhr (0)
Zitat:Original erstellt von cadplayer:Danke für Eure Anworten@Dorfy attsync ist doch meiner Meinung nach nur möglich, wenn man Blockeigenschaften von einem Original zur Kopie überträgt....ähm - nöwie rübe schin sagt, einfach mal probieren...ungetestet so Code:(DEFUN c:rb (/ ele wi ) (SETQ ele (CAR (ENTSEL "Block wählen: "))) (setq bname (vla-get-Name (vlax-ename-vla-object ele))) (SETQ ele (ENTGET ele)) (COMMAND "_ucs" "_object" (CDR (ASSOC -1 ele))) (SETQ wi (+ (CDR (ASSOC 50 ele)) (GETANGLE (TRA ...
|
| In das Form Lisp wechseln |
