|
Rund um Autocad : Kurzbefehle für Makros
Werner-Maahs.de am 09.05.2007 um 21:44 Uhr (0)
Vielleicht hilft dieses Beispiel:Du willst eine Linie von A nach B zeichnenCode:(defun c:L_AB ( / A B )(setq A (getpoint "1. Punkt: ") B (getpoint "2. Punkt: "))(command "Linie" A B ""))Ich hab es zwar nicht getestet, aber es sollte funktionieren.Die Funktion/das Makro heißt L_AB durch Voranstellen von c: wird es zum Befehl. Hast Du dies in ein Schaltflächenmakro geschrieben, musst Du es zuvor aber einmal aufrufen, dannach reicht der Kurzbefehl L_AB. Hast Due es in einer Skript- oder LISP-Datei geschrieb ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Dyn. Block - Breite/Länge mittels Lisp beim Einfügen übergeben...
Kuschelfee am 14.07.2015 um 20:43 Uhr (1)
Hallo,zur Zeit beschäftige ich mit einer ähnlichen Funktion und habe dafür eine Lisp gebastelt die mich nach den Parametern fragt und diese an den Block übergibt. Hier eine für deinen Block umgeschriebene Version.Code:; K. Kubat 2015; ; Aufrufen mit Matte fügt Block "ML-allgemein" ein; Block sollte sich schon in der Zeichnung befinden.; Wenn Blockverzeichnis im AutoCAD Suchpfad enthalten,; dann wird der Block auch eingefügt wenn er nicht; in der Zeichnung Referenziert ist(defun setProperty (vlaDynBlock sPr ...
|
| In das Form Rund um AutoCAD wechseln |
|
AutoLisp : Set_by_layer.lsp
CADmium am 06.08.2004 um 09:32 Uhr (0)
Freut, mich, dass dir das Lisp gefällt und gute dienste leistet um den Linientyp nicht mehr zu verstellen äneder folgende Zeile: (defun UPDATE_OBJEKT ( OBJEKT / OBJEKTDATEN) (if (=(type OBJEKT) ENAME) ; Parameter o.k. ? (progn (setq OBJEKTDATEN (entget OBJEKT)) ; Objektdaten auslesen (if (assoc 8 OBJEKTDATEN) (progn (if (=(strcase(cdr(assoc 0 OBJEKT ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Objektkoordinaten mit Lisp abfragen
cadffm am 03.11.2016 um 23:25 Uhr (1)
So einen "Versuch" darf man eigentlich nicht unterstützen, da müssen ja zufällig 20 Parameterstimmen damit das Ergebnis zufällig das Gewünschte ist.Oben ergänzen wo eDATA zur Verfügung steht(setq ZVAL (rtos(cadddr(assoc 10 eLIST))2))Unten vor den Aufruf der Dialoge einfügen(setq sObjectType (strcat sObjectType " (Z= " ZVAL " )")) Damit bekommt man eine Anzeige hin, aber nur wenn 10 Sterne richtig am Himmel stehen,erhält man auch das gewünschte Ergebnis.Vorausgesetzt man hat sich überhaupt für die Koordinat ...
|
| In das Form Lisp wechseln |
 |
Rund um AutoCAD : Polylinien vereinfachen und Linien zu Bögen
CAD-Huebner am 22.09.2015 um 11:55 Uhr (1)
Hallo WBF,ich suche einen AutoCAD/AutoCAD Mechanical Befehl/Workflow oder ein (möglichst günstiges, gern kostenlos mit Quelltext) Makro (Lisp/vba), um Polylinien für die CNC Nachbearbeitung aufzubereiten.Konkret sind Bögen häufig durch eine Vielzahl an Geradenelementen ersetzt worden, das würde ich gern umkehren.Anbei ein Beispiel zum Test.Selber kann ich die Konturen einfach mit MAPCLEAN aus AutoCAD MAP/Civil umwandeln, hat der Kunde/Schulungsteilnehmer aber nicht.Kann mir da jemand weiterhelfen?Ich meine ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Gratis! rC-Batch, Stapelverarbeitung mit AutoCAD und AutoCAD LT
ryfCAD am 22.06.2005 um 20:37 Uhr (0)
Weshalb die Demoversion? Mich interessiert ganz einfach, wer überhaupt ein solches Tool braucht. Dies kann ich doch einfach mittels Eurer Email-Bestellung feststellen. Einfach anonym ein Programm runter laden finde ich als Entwickler nicht so toll. Ich werde übrigens die Email-Adressen der Besteller nicht anderweitig verwenden. Ja und meine HomePage hat regen Besuch und das freut mich natürlich. Noch zum Schluss: Das Tool ist ja eigentlich für LT entwickelt. Und da kenne ich kein Tool, das ohne Lisp funkti ...
|
| In das Form Rund um Autocad wechseln |
|
Programmierung : LISP
clausb am 09.08.2007 um 11:58 Uhr (0)
Wenn man den Code mal aufs Wesentliche reduziert, wird es viel leichter. Ohne Problem funktioniert folgendes:Code:(line :two_points 100,100 0,0)Nun variieren wir den Code leicht, indem wir eine Koordinate berechnen, anstatt sie als Literal hinzuschreiben:Code:(line :two_points (+ 50 50),100 0,0)Nun bekommen wir die gleiche Meldung ("A comma has appeared out of a backquote.") wie in Deinem Beispiel.Lösen lässt sich das Problem zum Beispiel so:Code:(line :two_points (oli:make-gpnt2d :x (+ 50 50) :y 100) 0,0) ...
|
| In das Form Programmierung wechseln |
|
Rund um AutoCAD : Faktoren von Blöcken auslesen
Proxy am 11.07.2007 um 14:39 Uhr (0)
Oder via Lisp ....kleiner Denkanreiz für diese ile Aufgabe.Code:(defun C:CAD_DE_54_017297( / k name x y z) (setq k (entget (car (last (nentsel "
Selektieren Sie bitte einen verschachtelten Block: "))))) (setq name (cdr (assoc 2 k))) (setq x (rtos (cdr (assoc 41 k)) 2)) (setq y (rtos (cdr (assoc 42 k)) 2)) (setq z (rtos (cdr (assoc 43 k)) 2)) (alert (strcat "Blockname: " name "
X-Faktor: " x "
Y-Faktor: " y "
Z-Faktor: " z)) (princ))Funktion mit CAD_DE_54_017297 starten, oder umbenennen.------------------ ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Z-Koordinaten über txt-Dateien einfügen?
Bernhard GSD am 05.08.2005 um 11:28 Uhr (0)
Hab ich in meiner Lisp-Sammung gefunden.Simple alte Lösung, die ich mir vor Jahren geschnitzt habe.(DEFUN c:LIST2POINT (/ fang) (SETQ fang (GETVAR "OSMODE")) (SETVAR "OSMODE" 0) (SETQ file (OPEN "koord.txt" "r")) (SETQ text T) (WHILE text (SETQ text (READ-LINE file)) (IF text (PROGN (SETQ x (ATOF (SUBSTR text 1 14)) y (ATOF (SUBSTR text 15 14)) z (ATOF (SUBSTR text 30 14)) pt (LIST x y z) ) (COMMAND "_POINT" pt) ) ) ) (CLOSE file) (SETVAR "OSMODE" fang) (PRINC))Die Stringlängen ev. no ...
|
| In das Form Rund um Autocad wechseln |
|
OneSpace Modeling : Programme für den SolidDesigner
AlbertR am 18.01.2002 um 14:20 Uhr (0)
Hallo, Michael schickte uns einige Programme für den SolidDesigner zur Veröffentlichung: -------------------------------------------------------------------- Da wäre einmal ein Programm namens "Zylindersenkung" und eines das "Kegelsenkung" heißt. Wie die Namen sagen, kann man damit DIN-Senkungen in Teilen mit ebenen Oberflächen herstellen. Als drittes Programm gibt es "functions", das einige Funktionen enthält, die für die Senk-Programme benötigt werden. Es muß auf jeden Fall mit geladen werden, damit die ...
|
| In das Form OneSpace Modeling wechseln |
|
Lisp : RECHTECKFLÄCHE DYNAMISCH IN QUICKINFO ANZEIGEN
Brischke am 17.09.2007 um 11:59 Uhr (0)
Zitat:Original erstellt von obemar52:Habe dringnd Hilfe Notwendig...Ich bräuchte ein LISP ...Willst du ein fertiges Programm? dann bist du hier falsch. Hier werden Fragen diskutiert, die bei der Programmierung auftauchen.Programmierst du schon, dann solltest du schreiben, wo dein Problem konkret ist. Bist du noch am Suchen eines Ansatzes, dann solltest du aufzeigen, welche Ansätze du durchdacht hast, und an welchen Stellen du Fragen hast oder ...Die Machtmirmaleiner-Fragen sind hier nicht erwünscht - Hilf ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : geometrischer Schwerpunkt und Umfang
jupa am 06.09.2017 um 11:23 Uhr (1)
Zitat:Original erstellt von Gerri3d:würde ich das gerne soweit wie möglich automatisieren Warum schreibst Du das nicht gleich? Um Deine Frage zu beantworten: Ja, das geht (nicht nur prinzipiell). Und nein (falls gleich die nächste Frage kommt), ich kann auf die Schnelle keine fertige Lösung anbieten. Könnte mich frühestens heute Abend damit beschäftigen. Tip: Frag mal im LISP-Forum nach (mit exakter Aufgabenbeschreibung *) ), da tummeln sich die Experten. *) Ich habe beispielsweise stillschweigend angenom ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Eigenschaften anzeigen
AsSchu am 05.09.2008 um 10:32 Uhr (0)
oder als Lisp:;Diese Routine setzt Text an ID-Punkte(defun c idx() (setq pt (getpoint "
wähle Punkt: ")) (setq ptascii-x (car pt)) (setq ptascii-x (rtos ptascii-x)) (setq ptascii-y (cadr pt)) (setq ptascii-y (rtos ptascii-y)) (setq ptascii-z (caddr pt)) (setq ptascii-z (rtos ptascii-z)) (setq textstr1 (strcat " X = " ptascii-x )) (setq textsize-flag (getvar "TEXTSIZE")) (if (/= textsize-flag nil) (progn (command "text" pt textsize-flag "0" textstr1) (command "text" "" textstr2) ) ) (if (= texts ...
|
| In das Form Rund um AutoCAD wechseln |
