|
Lisp : reskalieren mit lisp (amrescale)
CADmium am 12.10.2006 um 19:40 Uhr (0)
Amrescale ist kein originaler ACAD-Befehl sonder Bestandteil einer Arx aus dem Mechanical-Aufsatz... festzustellen z.B.. mit (type amrescale) -EXRXSUBR. Der Aufruf vial Lisp kann somit so erfolgen: (amrescale).. Zur Abwechselung ist die Funktion auch mal so programmiert, dass man ihr auch Parameter mit auf den Weg geben kann... Für dich dann z.B: so (setq Auswahl (ssget))(setq Masstab 0.5)(amrescale Auswahl Masstab)------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des ...
|
| In das Form Lisp wechseln |
|
Lisp : reskalieren mit lisp (amrescale)
copymaster am 13.10.2006 um 20:32 Uhr (0)
danke für den Hinweis und die erläuterung...das mit den Klammern wars.Jetzt funktionierts
|
| In das Form Lisp wechseln |
|
Lisp : Modellmaßstab per Lisp ändern
copymaster am 13.10.2006 um 20:30 Uhr (0)
Hallo,Unter Optionen, Register Normen (Bei Mechanical) ist es möglich den eigentlichen Maßstab per Hand zu ändern.Gibt es für diese Funktion auch einen Befehl um die steuerung mit einem Lisp-Programm vorzunehmen?Hatte gedacht, dass das mit "dimscale" möglich ist, aber der ist anscheinend nur für die Plottdarstellung zuständig.(setq "???" meinmaßstab)Kann mir da vielleicht jemand weiterhelfen? Wäre super Sorry übrigens für die vielen Beiträge..werd mir demnächst erst mal passende Literatur zulegen
|
| In das Form Lisp wechseln |
|
Lisp : Modellmaßstab per Lisp ändern
CADmium am 13.10.2006 um 21:11 Uhr (0)
Da der Modellbereichs-Maßstab in der DWG mit gespeichert wird, vermute ich mal, das man den in irgenteinem Dictionary findet. Leider sind die ganzen Mechanical-Interna undokumentiert ( zumindest hab ich nix gefunden. Also, wenn jemand Infos hat, bitte an mich !! ) ..... aber trotzdem bin ich in den Systemtiefen fündig geworden und hab mal eine Funktion ausgebuddelt, mittels der man via Lisp die Sache erledigen kann. Scheint ein Überbleibsel aus alten Geniuszeiten zu sein?! (gengetdwgsetting "SCALE") == " ...
|
| In das Form Lisp wechseln |
|
Lisp : Modellmaßstab per Lisp ändern
copymaster am 15.10.2006 um 11:35 Uhr (0)
Hallo,also zuerst ma...ja, bin noch mittlerer Anfänger hab vor ein paar Jahren ein bisschen mit Lisp Programmiert...hab aber wieder ne lange pause gemacht. In der Zeit hab ich meist VBS und Basic programmiert. Aber jetzt wollt ich halt wieder etwas einsteigen...hab nur noch keine gescheite literatur..also bezieh ich meine infos im moment noch aus hilfe-dateien..is net so prickelnd aber naja Nun zum Thema...Hab in einem anderen Forum den Befehl amggetdwgsetting gefunden. War aber nicht weiter dokumentiert. ...
|
| In das Form Lisp wechseln |
|
Lisp : Auswahlsatz
Brischke am 17.10.2006 um 08:31 Uhr (0)
ok, mal als Begrüßungsgeschenk:(defun c:AWS (/ AUSWAHL FARBE OBJDATA) (if(and(setq AUSWAHL(ssget ((0 . "CIRCLE")))) (setq FARBE (acad_colordlg 1)) ) (progn (setq INDEX -1) (repeat(sslength AUSWAHL) (setq OBJDATA(entget(ssname AUSWAHL(setq INDEX (1+ INDEX))))) (if(assoc 62 OBJDATA) (entmod(subst(cons 62 FARBE)(assoc 62 OBJDATA)OBJDATA)) (entmod(append OBJDATA (list(cons 62 FARBE)))) ) ) ) ) (princ))Dafür ...
|
| In das Form Lisp wechseln |
|
Lisp : Auswahlsatz
Brischke am 17.10.2006 um 08:31 Uhr (0)
ok, mal als Begrüßungsgeschenk:(defun c:AWS (/ AUSWAHL FARBE OBJDATA) (if(and(setq AUSWAHL(ssget ((0 . "CIRCLE")))) (setq FARBE (acad_colordlg 1)) ) (progn (setq INDEX -1) (repeat(sslength AUSWAHL) (setq OBJDATA(entget(ssname AUSWAHL(setq INDEX (1+ INDEX))))) (if(assoc 62 OBJDATA) (entmod(subst(cons 62 FARBE)(assoc 62 OBJDATA)OBJDATA)) (entmod(append OBJDATA (list(cons 62 FARBE)))) ) ) ) ) (princ))Dafür ...
|
| In das Form Lisp wechseln |
|
Lisp : Auswahlsatz
Brischke am 17.10.2006 um 08:31 Uhr (0)
ok, mal als Begrüßungsgeschenk:(defun c:AWS (/ AUSWAHL FARBE OBJDATA) (if(and(setq AUSWAHL(ssget ((0 . "CIRCLE")))) (setq FARBE (acad_colordlg 1)) ) (progn (setq INDEX -1) (repeat(sslength AUSWAHL) (setq OBJDATA(entget(ssname AUSWAHL(setq INDEX (1+ INDEX))))) (if(assoc 62 OBJDATA) (entmod(subst(cons 62 FARBE)(assoc 62 OBJDATA)OBJDATA)) (entmod(append OBJDATA (list(cons 62 FARBE)))) ) ) ) ) (princ))Dafür ...
|
| In das Form Lisp wechseln |
|
Lisp : reskalieren mit lisp (amrescale)
tappenbeck am 17.10.2006 um 16:26 Uhr (0)
hallo cadmium,in wieweit würde amrescale auch mit einem "normalen" autocad zusammenarbeiten ??mir ist der befehl unbekannt ?und aus welchem aufsatz stammt dieser ?gruß Jan :-)------------------jan :-)
|
| In das Form Lisp wechseln |
|
Lisp : Punktfilter als Shortcut
Jonapap am 17.10.2006 um 11:52 Uhr (0)
Hallo zusammen,ich habe mir auf den Nummerntastenblock Shortcuts für Punktfilter gelegt um während des Zeichnens immer schnell damit arbeiten zu können.Das klappte auch bis Autocad 2004 ganz gut.Seitdem aber die dynamische Eingabe (am Cursor) eingeführt wurde, funktionieren die Shortcuts nicht mehr richtig.Wenn ich z.B. beim Zeichnen einer Linie "6"-Drücke (für .X-Filter) dann erscheint in der Befehlszeile richtig .X von aber gleichzeitig erscheint in der dynamischen Eingabe eine 6.Daraufhin löst sich der ...
|
| In das Form Lisp wechseln |
|
Lisp : Punktfilter als Shortcut
Jonapap am 19.10.2006 um 10:53 Uhr (0)
Ich nochmal.Die Frage mal etwas einfacher formuliert:Gibt es eine Möglichkeit, einen in Lisp definierten Befehl transparent zu starten (also während ein anderer Befehl aktiv ist)?------------------GrußMarkus
|
| In das Form Lisp wechseln |
|
Lisp : Punktfilter als Shortcut
Jonapap am 19.10.2006 um 11:17 Uhr (0)
Hallo CADwiesel,habe gerade herausgefunden, dass ich die Punktfilter (z.B. ".x") nicht aus Lisp gestartet kriege. Sind die Punktfilter vielleicht fest in den Acad-Befehlen integriert?Hier mein Code:Code:(defun c:xfil() (setq dynm(getvar "dynmode")) (setvar "dynmode" 0) (command ".x") (setvar "dynmode" dynm))------------------GrußMarkus
|
| In das Form Lisp wechseln |
|
Lisp : Punktfilter als Shortcut
Jonapap am 19.10.2006 um 14:40 Uhr (0)
Hallo CADchup,stimmt. Aber das ".X" lässt sich so nicht aus Lisp starten (Unbekannter Befehl...).Gibts da vielleicht eine andere Möglichkeit?------------------GrußMarkus
|
| In das Form Lisp wechseln |
