|
Lisp : Ploteinstellung Zoll/mm
CADblue am 04.08.2017 um 13:12 Uhr (1)
Hallo zusammen,greife hier das Thema nochmal auf, hoffe ich bekomme wie immer einige Tips.Ich habe mir auch diverse Änderungen am Plotmenü erlaubt und anschließend wie von CADWiesel empfohlen mit der Zeile (vla-refreshplotdeviceinfo(ActLay))das Layout aktualisiert NUR kommt es dadurch jetzt immer zu einem "Fehler", nämlich werden die vorher eingestellten Plaotmaßstabseinstellungen immer von mm auf zoll umgestellt, wie kann das sein oder wie kann ich das unterbinden oder umgehen?PS: hier der ganze codeCode: ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Positionsnummern
CADwiesel am 04.06.2004 um 08:10 Uhr (0)
hier dieses etwas sollte reichen (defun c:ted ( / as) (if(setq as (ssget _:S ((0 . *TEXT )))) (progn (while as (command _ddedit (ssname 0 as)) (setq as (ssget _:S ((0 . *TEXT )))) ) ) ) ) ------------------ Gruß CADwiesel Besucht uns im CHAT
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Positionsnummern
tom.berger am 04.06.2004 um 11:06 Uhr (0)
Zitat: Original erstellt von CADwiesel: hier dieses etwas sollte reichen (defun c:ted ( / as) (if(setq as (ssget _:S ((0 . *TEXT )))) (progn (while as (command _ddedit (ssname 0 as)) (setq as (ssget _:S ((0 . *TEXT )))) ) ) ) ) Du weisst, ich bin Dozent, und deshalb hab ich immer was zu nörgeln. Nimm s nicht krumm, sondern als Anregung: Das IF kannst Du bei Dir komplett weglassen, und selbst wenn es sinnvoll wäre, dann wäre das PROGN überflüssig. Außerdem w ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Positionsnummern
CADwiesel am 04.06.2004 um 11:30 Uhr (0)
@ Tom Was soll denn das werden? ist das hier ein Kritikforum oder eine Hilfsplattform? Wo ist eigentlich dein kreatiever Hilfsansatz zu seiner Frage? Kann aber auch sein, das ich hier was totall Falsch verstehe - den Rest spare ich mir ------------------ Gruß CADwiesel Besucht uns im CHAT
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Positionsnummern
tom.berger am 04.06.2004 um 14:01 Uhr (0)
Zitat: Original erstellt von CADwiesel: @ Tom Was soll denn das werden? ist das hier ein Kritikforum oder eine Hilfsplattform? ... aber ich helfe Dir doch, Deine LISP-Kenntnisse zu erweitern :-) Und davon ab: konstruktive Kritik ist immer eine Hilfe. Ich jedenfalls bitte darum. Zitat: Wo ist eigentlich dein kreatiever Hilfsansatz zu seiner Frage? Den sollte jeder erkennen können. Inhaltlich besteht er darin zu zeigen, dass Dein Vorschlag völlig überflüssig war, weil Dein kleines LISP Pr ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Positionsnummern
CADwiesel am 07.06.2004 um 08:26 Uhr (0)
Lieber Tom in einem Punkt muss ich dir Recht geben. der Befehl ddedit erledigt das schon alles. ich hatte den nicht genügend ausprobiert, dass mir bewusst aufgefallen ist, das der ja schon in einer Schleife arbeitet. ok. aber das ist nu wirklich alles. Ich kann eigentlich schon gut Kritik einstecken. Denke aber das in diesem Fall du wohl aus lauter Langeweile deinen Beitrag dazugeschrieben hast, da es sich bei dem Posting von mir eigentlich um ein so banales Teil handelt, wofür sich jedes zusätzliche Wort ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Positionsnummern
tom.berger am 07.06.2004 um 13:16 Uhr (0)
Zitat: Original erstellt von CADwiesel: Ich kann eigentlich schon gut Kritik einstecken. Denke aber das in diesem Fall du wohl aus lauter Langeweile deinen Beitrag dazugeschrieben hast, da es sich bei dem Posting von mir eigentlich um ein so banales Teil handelt, wofür sich jedes zusätzliche Wort als echte Zeitverschwendung erübrigt. Gerade weil das Programm so ein banales Teil ist, eignet es sich besonders gut, bestimmte Programmierstile zu vergleichen und einzuüben. Wir können den ohnehin banale ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : md_fla funktioniert nur teilweise...
CADwiesel am 11.06.2004 um 08:29 Uhr (0)
ich habe dir das mal etwas überarbeitet: (defun c:md_fla (/ t_2 Ss) (setq Ss nil t_2 nil ) ;_ end of setq (setq Ss (ssget ((0 . *POLYLINE )))) (setq md_zaehler 0) (setq gesamt 0) (if (not Ss) (princ (strcat
Da waren keine Polylinien dabei. )) (progn (while (setq t_2 (ssname Ss 0)) (setq md_in (cdr (assoc 10 (entget t_2)))) (setq startp md_in) (command _.area _o ) (command t_2) (entmake (LIST (0 . TE ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Positionsnummern
Juergen55 am 11.06.2004 um 23:36 Uhr (0)
Hallo Tom Berger, also ich kann Deine Kritik wirklich nicht nachvollziehen, was sollte den an dem Teil von Cadwiesel unklar sein ? Jeder kann ja wohl noch so programmieren wie er möchte ! Lisp ist da ja eh sehr flexibel, was auch immer man tippt, es funktioniert, solange es seinen Zweck erfüllt warum nicht ! Gruß, Jürgen
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Befehl: UMGRENZUNG/GPOLY
CADwiesel am 16.06.2004 um 12:57 Uhr (0)
ich denke am ehesten kommst du an die Zahl, wenn du ein (ssget _C (getvar extmin )(getvar extmax )) ausführst allerdings müssen auch die gefrorenen Elemente miteinbezogen werden. ------------------ Gruß CADwiesel Besucht uns im CHAT
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Farbabhängig in Layerabhängig umwandeln
CADwiesel am 17.06.2004 um 10:05 Uhr (0)
kann es sein, das dir convertpstyles weiterhilft? ------------------ Gruß CADwiesel Besucht uns im CHAT
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Befehl: UMGRENZUNG/GPOLY
CADwiesel am 17.06.2004 um 10:19 Uhr (0)
@Bernd in diesem Falle kommst du mit cmdactive nicht weiter. Eigentlich müsstezusätzlich auch noch mit lastprompt gearbeitet werden, aber inn allen meinen Versuchen habe ich es nicht geschafft diese verschiedenen Abfragen, die da kommen können alle abzufangen. am sichsrsten ist es immernoch auf die gewünschte auswahl zu Zoomen ein ssget _cp auf die Anzeige auszuführen und wenn es bspl unter 800 ist (auf alle Fälle unter 1000) den gpolybefehl zu starten. dann funzt das eigentlich immer. ------------------ G ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Farbabhängig in Layerabhängig umwandeln
CADwiesel am 17.06.2004 um 11:42 Uhr (0)
komischerweise verlangt meine 2002 er acad version nicht nach nem Migrations irgendwas - aber ich habe bestimmt was falsch gemacht ------------------ Gruß CADwiesel Besucht uns im CHAT
|
| In das Form AutoLisp wechseln |
