|
Lisp : Move zum absoluten Nullpunkt
ebla am 27.07.2012 um 02:46 Uhr (0)
Hallo,ich lese aus einem Objekt eine Koordinate aus und möchte diese X,Y-Werte als Basispunkt verwenden, um meine ganze Zeichnung auf den absoluten Nullpunkt zu verschieben.Hier der Code:(setq Punkt (cdr (assoc 10 (entget (car (entsel))))))(setq PunktX (rtos (car Punkt) 2 3))(setq PunktY (rtos (cadr Punkt) 2 3))(setq Punkt (strcat PunktX (chr 44) PunktY))(command "_move" "all" "" Punkt "#0,0")Jedoch bricht der Befehl mit folgender Meldung ab:Zu viele Objekte gewählt für SCHNITTPUNKTHat jemand eine Idee?--- ...
|
| In das Form Lisp wechseln |
|
AutoLisp : plt-Datei erzeugen
Wolli am 18.01.2006 um 10:17 Uhr (0)
Hallo Zusammen,@Holger, das mit dem Timing klingt plausibel.die Fehlermeldung (siehe screenshot) in meinem Beitrag kommt ausdem Aufruf cimdb_zvs_plot_do_rest am Programmende.Das ist kompiliert darauf kann ich nicht zugreifen.Dieses cimdb_zvs_plot_do_rest soll die Plotdatei verschieben,findet sie aber leider nichtWenn ich das cimdb_zvs_plot_do_rest auskommentiere dann kommtkeine Fehlermeldung.Aber die plt-Datei wird trotzdem nach kurzer Zeit irgendwie gelöscht.Wo wird das löschen aufgerufen, es müsste irgen ...
|
| In das Form AutoLisp wechseln |
|
Lisp : crash mit shell.open
cadffm am 28.11.2016 um 17:51 Uhr (1)
Die Beschreibung mit dem create hast du recht verstanden.Ich kann problemlos in Acad weiterarbeiten, finde auch keinen logischen Zusammenhang mit dem Code und einem Crash bei Selektion in Acad.Teste nur mit dem Code-Teil, mit einfachen Datei, ohne das auf Acad- oder Datei-Explorer Seite, vorher oder nachher, etwas geändert wird.So hatte ich es getestet, in 2013:Nur einfache DWG mit Zeichnungelemente offen, Code wie oben ausführen, Fokus wieder auf Acad setzen, Objekt markieren/verschieben.Ich bin raus, sor ...
|
| In das Form Lisp wechseln |
|
Lisp : Zeichnung vom Modellbereich in den Layoutbereich verschieben
Dorfy am 22.05.2009 um 18:34 Uhr (0)
Hi,na dann Schnellschuss die Zweite(defun c:C2PS (/ doc space elem vobj n asatz) (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)) space (vla-get-paperSpace doc) asatz (ssget) n 0 ) (repeat (sslength asatz) (setq elem (ssname asatz n) n (1+ n) vobj (vlax-ename-vla-object elem) ) (vlax-invoke doc copyobjects (list vobj) space) (vlax-invoke-method vobj DELETE) ) (princ))den Rest darfst du dann aber selber machen mfg heiko
|
| In das Form Lisp wechseln |
|
Lisp : Blockattribute bearbeiten
Dorfy am 25.08.2011 um 12:06 Uhr (0)
Zitat:Original erstellt von cadplayer:wie soll ich weiter mit entnext vorgehen, um an die Attribute zu kommenna du erhältst ein entity - was kann man damit machen?löschen, verschieben, kopieren und wieder löschen versuch doch mal die entity liste von dem entnext entity zu erhalten (mit entget)und schau dir diese an...und dann die nächste ... usw ... bis gc 0 seqend kommt...wo ist das attribut und wo ist der wert und ...steht oben alles im code ------------------Mfg Heiko Elefantenjagd in Afrika "... L ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Linienteile stutzen innerhalb einer Ellipse
CAD-Huebner am 22.11.2004 um 15:11 Uhr (0)
Wenn ich jetzt wüsste, was das eigentliche Ziel der ganzen Programmiererei ist? Sind die Ellipsen nur Hilfsgrößen aus diesem OVERLAPF.vlx Programm oder sind Sie ganz wichtig? Ansonsten reicht ein einfaches ENTMOD um eine Koordinate der Linie zu verschieben (auf den Kreisrand der Ellipse, dessen Parameter ja auch bekannt sind, hängen ja alle an dem Elemeent Ellipse). Dann kommt man völlig ohne COMMAND aus. Was ist den jetzt die Aufgabe, muss es unbedingt der Befehl STUTZEN sein? Mit freundlichem Gruß Udo H ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Elemente auf eine definierte Einfügehöhe verschieben
ChristianBermpohl am 17.03.2016 um 16:46 Uhr (1)
Sorry, Verwirrung zu schaffen ist ganz bestimmt nicht meine Absicht!! Ich bin wirklich für jede Hilfe dankbar...Ich versuche es mal mit der Anleitung. 1.) Die Datei coe_special_kitchen.dcl/lsp laden2.) Den Befehl cadtop ausführen3.) im Dialog -- "Special Ein" selektieren -- "Layergruppe" Langteile auswählen -- Unter BKS-Z zum Beispiel den Wert 800 eingeben -- Den Dialog mit OK verlassen4.) Das Programm verschiebt nun Linien, Bögen usw. auf die eingegebene Z-Höhe 800 Nur eben nicht das Element KRE ...
|
| In das Form Lisp wechseln |
|
Lisp : Auswahlsatz
woppi am 02.06.2010 um 17:27 Uhr (0)
Zu der Angelegenheit, einen vorhandenen AWS zu filtern der nicht mehr der "letzte" ist (also "_P") nicht funktioniert, habe ich als Lisp Anfänger folgenden Code geschrieben:(command "_select" aws "") (setq aws (ssget "_P") ;setzt den aws wieder aktuell awsPoint (ssget "_P" ((0 . "POINT"))) ) ; Auswahlsatz Punkte um Punkte nach unten zu verschieben (command "_select" aws "e" awsPoint "") ;Punkte aus aws entfernen (command "_draworder" awsPoint "" "U") ( ...
|
| In das Form Lisp wechseln |
|
Lisp : Insert verschieben in anderen Insert
Brischke am 22.08.2017 um 07:50 Uhr (1)
... noch ein Hinweis: den SubInsert kannst du nicht einfach mit den Koordinaten, wie dieser im Modellbereich eingefügt ist, übernehmen. Du musst die Lage, Drehung/Skalierung auf den Block umrechnen, der den Hauptblock darstellt, und durch den HauptInsert repräsentiert wird.Ist dieser gedreht und skaliert und auf irgendeiner Koordinate eingefügt, und du fügst den SubInsert einfach so, wie dieser im Modellbereich dargestellt ist, hinzu, ändert sich die Lage, also auch das Erscheinungsbild der Zeichnung.Grüße ...
|
| In das Form Lisp wechseln |
|
AutoLisp : verschieben von block/text mitte von zwei punkten
michelangelo am 21.10.2004 um 15:59 Uhr (0)
gibt es einen schiebe befehl mit dem ich einen Text oder Block anklicken kann. dann zwei punkte angeben kann und es verschieb es mir in die mit der beiden punkte. das heisst ich habe zum beispiel ein rechteck. und einen block. ich möchte zwei diagonale punkte des rechtecks ankgeben. und den block wählen. dann verschieb es den block in die mitte des rechtecks. gibts so was.?? und wen nein wie muss ich das angehen zu programmieren.? ------------------ [AutoCAD spricht mit jedem, nur leider nicht immer die g ...
|
| In das Form AutoLisp wechseln |
|
Lisp : regen läuft zu langsam
archtools am 17.01.2013 um 20:04 Uhr (0)
Zitat:Original erstellt von cadplayer:hi all!ich habe hier ein paar funktionen zusammen geschrieben, die mir einen text von DIMENSION-objekt verschieben soll. Optimal wäre, wenn ich den text während der verschiebung sehen könnte, dass soll mein 3. beispiel ermöglichen, aber läuft ebend sehr träge. hat jemand einen tip auf lager sorry bin auf einhändiges schreiben wegen gebrochener schulter gezwungen, deshalb alles klein geschrieben.Da hast in c:mot3 ja das REGEN in der While-Schleife stehen. Kein Wunder, ...
|
| In das Form Lisp wechseln |
|
Lisp : wo is der bug?
CADblue am 16.01.2014 um 11:32 Uhr (1)
Hi Leute,viell. kann mir jemand mit meinem befehl helfen. In der Regel funktioniert er so das er vom ausgewählten block den basispunkt als ersten punkt zum verschieben wählt. jedoch tritt manchmal das phänomen auf das der basispunkt nicht richtig gefangen wird und positioniert werden kann. besonders problematisch ist das bei attributsblöcken. hier der befehl:(defun c:d(/ gg ff dd ddd)(setq dd (entsel))(setq ddd(entget(car dd)))(if (= (cdr(assoc 0 ddd)) "LINE")(setq ff(append(list(/(+(cadr(assoc 10 ddd))(ca ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Umstellung Acad2000 > 2004
Geos am 29.04.2005 um 08:04 Uhr (0)
Hallo Sebastian In meiner Hektik hab ich versehentlich das Lisp-Forum erwischt - vielleicht kann man den Beitrag verschieben. Es geht mir nicht primär um das Proxy-Objekt (und so etwa weiß ich auch was das ist). Die Zeichnung (und auch andere) wurde mit ACAD2000 erstellt (dort funktioniert das alles) und unverändert in ACAD2004 geöffnet. Es müßte meines Erachtens eine generelle Einstellung (Sysvar?) oder ähnliches sein, die verhindert, dass ein Teil dieser Zeichnung als neue Zeichnung erstellt wird (soll ...
|
| In das Form AutoLisp wechseln |
