|
Rund um Autocad : befehl kommandozeile
Brischke am 04.02.2003 um 19:03 Uhr (0)
Hallo sleepi, zu 1) (setvar "filedia" 0);Ausschalten des Dateiwahl-Dialogfenster (command "_.linetype" "_l" "*" "acadiso.lin" "");Laden (setvar "filedia" 1);Einschalten des Dateiwahl-Dialogfenster zu 2) Wievile ctb s existieren denn im Suchverzeichnis? Hatten gleiches Problem, haben uns dann mit einem Tool beholfen, welches es möglich macht die ctb aus dem aktuellen Zeichnungsverzeichnis zu nutzen. Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Wieder 2 neue ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : befehl kommandozeile
Brischke am 04.02.2003 um 21:25 Uhr (0)
Hi, 1)Das wäre die Schleife: (while (= (getvar "CMDACTIVE") 1)(command "J")) 2) http://www.cadwerk.com/ oder http://www.industrie24.com/ftp.php?63 Ist von Volker Kleppel. Ich habe es mir noch ein wenig angepaßt, so dass ich die derzeitigen CTB s in einem Verzeichnis lassen kann. Wenn die in der Zeichnung benötigte nicht im Zeichnungsverzeichnis gefunden wird, dann wird diese aus dem Netzwerkverzeichnis dorthin kopiert. Somit hat man sich die Arbeit gespart, dass man die CTB s händisch in s Zeichnung ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : befehl kommandozeile
Brischke am 05.02.2003 um 08:26 Uhr (0)
Guten Morgen sleepi, ich bin wiederum kein scriptler. Ich handhabe das eigentlich immer so, dass das, was geändert werden soll, alles von Lisp aus geht, und dieses Lisp nur vom Script geladen wird. Was hast Du denn insgesamt vor? Holger ------------------ Holger Brischke CADlon - Lisp over night! Wieder 2 neue Tool s im FreeDownload Wissen wie es gemacht wird? Jetzt Quellcode für die Hälfte
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Sonderwünsche
Seven am 06.02.2003 um 10:57 Uhr (0)
Hallo Marc Ich habe deine Version von MD_FLA kräftig getestet. Nun will sie aber nicht ganz. Mit grösster Warscheinlichkeit liegt es aber nicht an deinem Lisp. Wenn ich das Tool in einer neuen Zeichnung verwende, ist alles kein Problem. Verwende ich es in einer bisherigen Zeichnung, klappt es auch bis und mit Messung, sogar der text wird gesetzt, doch die Summe der angezeigte Zahl ist immer Null. Lustigerweise ist diese 20° gedreht und 4 Einheiten gross. Was ist das? gibt es Zeichnungseinstellungen welche ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : lisp, mittelpunkt, winkel
CADwiesel am 06.02.2003 um 11:10 Uhr (0)
Hier was für die Mitte zwischen 2 Punkten: (DEFUN X MP (/ AGRBIB#O AGRBIB0O) (INITGET 128) (SETQ AGRBIB#O (GETPOINT "NERSTER PUNKT :") AGRBIB0O (GETPOINT AGRBIB#O "NZWEITER PUNKT :")) (IF (= (QUOTE STR) (TYPE AGRBIB#O)) (SETQ AGRBIB#O (EVAL (READ AGRBIB#O))) AGRBIB#O ) (IF (= (QUOTE STR) (TYPE AGRBIB0O)) (SETQ AGRBIB0O (EVAL (READ AGRBIB0O))) AGRBIB#O ) (MAPCAR (QUOTE (LAMBDA (AGRBIB0) (/ AGRBIB0 2))) (F:V+ AGRBIB#O AGRBIB0O)) (D ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : lisp, mittelpunkt, winkel
fca_mi2 am 06.02.2003 um 11:14 Uhr (0)
danke... ------------------ -
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : lisp, mittelpunkt, winkel
Schachinger am 06.02.2003 um 11:16 Uhr (0)
Winkel in Radiant: (angle pt1 pt2) Beispiel: (angle (1.0 1.0) (1.0 4.0)) Mittelpunkt geht meines Wissens nicht ohne ein paar Codezeilen... (setq deltax (/ (- (car pt1) (car pt2)) 2)) (setq deltay (/ (- (cadr pt1) (cadr pt2)) 2)) (setq deltaz (/ (- (caddr pt1) (caddr pt2)) 2)) (setq pt3 (list (+ (car pt1) deltax) (+ (cadr pt1) deltay) (+ (caddr pt1) deltaz))) pt1 = erster Punkt pt2 = zweiter Punkt pt3 = Mittelpunkt hab den Code aber noch nicht getestet - nur ma so dahingeschrieben... ups.. war eh klar das ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : lisp, mittelpunkt, winkel
fca_mi2 am 06.02.2003 um 12:08 Uhr (0)
vielen dank, aber einen kleine fehler habe ich gefunden : (setq deltax (/ (- (car pt2) (car pt1)) 2)) (setq deltay (/ (- (cadr pt2) (cadr pt1)) 2)) (setq deltaz (/ (- (caddr pt2) (caddr pt1)) 2)) (setq pt3 (list (+ (car pt1) deltax) (+ (cadr pt1) deltay) (+ (caddr pt1) deltaz))) pt1 = erster Punkt pt2 = zweiter Punkt pt3 = Mittelpunkt ------ ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : lisp, mittelpunkt, winkel
Schachinger am 06.02.2003 um 12:16 Uhr (0)
stimmt.. thanks ------------------ mfg Siegfried Schachinger http://www.tbschatz.at
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : lisp, mittelpunkt, winkel
StephanJP am 06.02.2003 um 13:03 Uhr (0)
oder so? (setq pt3 (mapcar / (mapcar + pt1 pt2) (2 2 2))) ------------------ gruß Stephan
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : lisp, mittelpunkt, winkel
Brischke am 06.02.2003 um 13:18 Uhr (0)
Hallo, habt ihr euch mal den Geometrierechner angesehen. Da gibt es ganz einfache Möglichkeiten den Mittelpunkt zu berechnen. Der geomcal gerät (unberechtigt) immer wieder in Vergessenheit, man kann aber eine ganze Menge mit machen. AutoCAD-Hilfe schreibt dazu Zitat: Die Funktionen plt und pld geben einen Punkt auf einer gegebenen Linie zurück. Die Position des Punktes auf der Linie kann entweder über seinen Abstand vom ersten Punkt oder parametrisch über einen Parameter t bestimmt werden. pld(p1,p2,a ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : lisp, mittelpunkt, winkel
StephanJP am 06.02.2003 um 21:15 Uhr (0)
Ja, Axel, eigentlich wollte ich ja Deine Seite verlinken! Dachte mir aber, dass es Dir gefallen wird ------------------ gruß Stephan
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : lisp, mittelpunkt, winkel
otterloh am 07.02.2003 um 10:30 Uhr (0)
Vorsicht bei eingeschalteten Objekt-Fang. Viele Vorschläge/Programme erzeugen Fehler. Probiert es, wenn diverse verschiedene Fangpunkte (alle etwas nebeneinander) im Bereich des gewünschten Mittelpunktes und innerhalb der Größe des Fangfensters liegen. Der Geometrie Rechner kann es dann nicht. ------------------ Gruß Werner http://Meyer-Werner.bei.T-Online.de
|
| In das Form Rund um Autocad wechseln |
