|
Lisp : Polylinien abhängig vom Startpunkt versetzen
cadffm am 28.08.2015 um 12:33 Uhr (1)
Auf das Versetzen gehe ich mal nicht ein, ich denke du nutzt dafür sowieso den AutoCAD -Befehl?Ohne eine Ahnung zu haben "wo du stehst" ist es schwierig dich abzuholen?Ist dir bekannt das es verschiedene "Polylinien" Objekte gibt,das Polylinien auch die Eigeschaft"geschlossen" haben(in dem Fall hätte deine Polylinie einen unnötigen letzten Scheitelpunkt).Zu der Berechnung von Links/Rechts usw. suche nach Seiten im www zur Berechnung "Punkt in Polylinie" / Point inside polyline.Darüber kommst du zu allen In ...
|
| In das Form Lisp wechseln |
|
Lisp : Eigenschaften von Applikations-Elementen (EED) abrufen+setzen
archi.archi am 28.03.2021 um 18:57 Uhr (1)
Hallo cadffm,zu früh gefreut: die liNear-Applikation hat wahrscheinlich einen Fehler.Beim manuellen Anlegen eines Raumes kann man die Attribute "G111" (Gebäudeteil) und "N222" (Nutzungseinheit) im Beschrifterblock ändern und die Werte werden dann an die Raumkontur übertragen.Beim Anlegen von Räumen über einen Ifc-Import werden die Raumkonturen und auch ein Beschrifterblock erzeugt. Die Änderungen der Attribute dieses Beschrifterblockes werden aber nicht an die Raumkontur übertragen.Ich muss jetzt also nich ...
|
| In das Form Lisp wechseln |
 |
Lisp : MV-Block geänderte Werte zurückschreiben
cadking am 08.10.2021 um 08:03 Uhr (15)
Hallo Lisp-Experten,ich habe mir aus MV-Blöcken in einer Zeichnung folgende Werte ermittelt:(setq ObjnameMVB (ssname get_MV-BLOCK lauf));holt Entityname von MV-Block(setq ObjnameMVBVLA (vlax-ename-vla-object ObjnameMVB));holt VLA-Objektname von MV-Block(setq MVBlockDefName (vlax-get-property ObjnameMVBVLA "StyleName"))(setq scalex (vlax-get-property ObjnameMVBVLA "ScaleX"))(setq scalez (vlax-get-property ObjnameMVBVLA "ScaleZ"))(setq scaley (vlax-get-property ObjnameMVBVLA "ScaleY"))(setq einfp (vlax-get O ...
|
| In das Form Lisp wechseln |
 |
Lisp : Länge und Breite über Lisp abfragen und in Excel einfügen?
PAS81 am 14.03.2013 um 14:14 Uhr (0)
@CADchup, ja du hast Recht ich wollte mich damit beschäftigen, hab auch kurz damit angefangen aber mangels „Zeit und Können“ dieses Thema wieder liegen lassen! Es handelt sich bei den angesprochenen Platten um Deckenplatten.(Unterkonstruktion und Fertigdecken)! Diese werden von den Konstrukteuren im Grundriss gezeichnet und danach bei uns von den Arbeitsvorbereitern aus dem Grundriss herauskopiert, an andere Stelle wieder abgelegt und dann in der Holzliste aufgelistet! Nach dem herauskopieren wird jetzt z. ...
|
| In das Form Lisp wechseln |
|
Lisp : Zeichnung vom Modellbereich in den Layoutbereich verschieben
Doc40 am 20.05.2009 um 14:08 Uhr (0)
Hallo Lispforum!Ich bitte um Hilfe bei folgendem Problem:Ich habe eine DWG-Datei aus einem Fremdsystem (ProEngineer) vorliegen,in der sich alle Zeichnungsobjekte im Modellbereich befinden. (inkl. Zeichnungsrahmen)Problemstellung:Mittels LISP alle Zeichnungsobjekte des Modellbereiches "ausschneiden" und im Layoutbereichwieder einfügen (im Punkt 0,0).[b]Mein Lösungsansatz 1:[b] (command "_cutclip" "_all" "") ; Alle Objekte ausschneiden (command "CTAB" "Layout1") ; Layouttab "Layout1" aktiv schalten (command ...
|
| In das Form Lisp wechseln |
|
AutoLisp : pdf plotten mit lisp und ghostscript 8.33
CADchup am 16.02.2005 um 10:37 Uhr (0)
Hi, Autodesks 2005er Stolperfallen sind umgangen. Nur Ghostscritp ziert sich. Die AFPL-Versionen (im Moment 8.50) verhalten sich beim Aufruf anders als die GPL-Versionen !? Plot2PDF sollte unbedingt nur mit den GPL-Versionen (im Moment 8.15) betrieben werden, da sonst keine PDFs erzeugt werden. Warum? Woher? Ich weiß es nicht! Hier also Plot2PDF 2.0. Getestet unter A2k2 - A2k5 und mit Ghostscript 8.11 - 8.15 unter WinXP Scheint soweit zu funktionieren. Es gibt einen neuen Befehl: P2P-CFG. Damit kann die Ko ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Addition mit 3 Stellen nach Komma
malsehn am 16.04.2009 um 11:53 Uhr (0)
Servus Beisammen,bin etwas unerfahren wie alle am Anfang und möchte gerne ein kleines Lisp-Programm verwenden. Verändert habe ich dieses:(defun c:ADD ( / Z1 Z2 OBJEKT OBJEKTDATEN ) (if (setq Z1(getreal "
Zahl eingeben: ")) (while (setq OBJEKT (car(entsel "
Text wählen : "))) (setq OBJEKTDATEN(entget OBJEKT ("*"))) (if (member(cdr(assoc 0 OBJEKTDATEN)) ("TEXT" "MTEXT")) (progn (setq Z2 (atof (cdr(assoc 1 OBJEKTDATEN)))) (setq OBJEKTDATEN (subst(cons 1 (rtos (+ Z1 Z2) 2 2)) (a ...
|
| In das Form Lisp wechseln |
|
Lisp : Auswahlmöglichkeit beim Plotten
lutzc am 03.09.2009 um 08:28 Uhr (0)
Hallo,kann mir jemand helfen in dieses LISP noch eine Möglichkeit des Benutzers zur Auswahl von Hoch und Querformat einzubinden?Vielen Dank für die Hilfe!Gruß Christian======================================================================(defun c df (/ p1 p2 File dcl_id) (setq p1 (getpoint "
Untere linke Ecke des Fensters angeben: ")) (setq p2 (getpoint "
Obere rechte Ecke des Fensters angeben:
")) (WarDateiPlot2000 p1 p2 File) (princ))(defun WarDateiPlot2000 (p1 p2 File) (setvar "filedia" 0) (command ...
|
| In das Form Lisp wechseln |
|
Lisp : Layer umschalten bei der Bemassung
daiz am 18.10.2003 um 12:26 Uhr (0)
Hallo CAD-Tötti,ich brauche für verschiedene Projekte jeweils einen anderen Satz Layer.Ich habe das so gelöst:Es gibt eine "acad.lsp", die bei jedem Start automatisch geladen wird. Dort trage ich alle LISP ein, die geladen werden sollen. Ein Eintrag lauten: (princ (load "laden_layer" "ladenlayer.LSP-Datei nicht geladen."))Das "laden_layer.lsp" sieht so aus:(defun c:laden_layer (/ wahl)(setq wahl (getfiled "Layer-Anwendung wählen" "J:/acad_support/Layer_Verwaltung/" "" 8))(load wahl))Im Ordner Layer_Verwalt ...
|
| In das Form Lisp wechseln |
|
Lisp : Problem mit EXCEL-Leiche
Andreas Kraus am 22.04.2025 um 14:57 Uhr (1)
Hallo zusammen,manchmal finde ich über den Taskmanager ein Excel das aber nur, warum auch immer, nicht richtig beendet wurde.Natürlich lässt sich dieser Task einfach beenden aber wenn ich aus Lisp auf Excel zugreifen möchte bekomme ich dann genau dieses untote Excel.Also Taskmanager aufrufen, dieses Excel beenden und alles nochmal starten.Das nervt.Ich habe schon versucht das Ding mit Quit zu beenden, funktioniert ja bei "lebendem" Excel, hier leider nicht.Ich kann dort auch arbeiten (Workbooks erstellen, ...
|
| In das Form Lisp wechseln |
|
Lisp : Copy und grread
Dober Heinz am 21.03.2012 um 13:33 Uhr (0)
Hallo brauche wieder mal eure HilfeHabr hier ein Lisp, ist nicht von mir, weiss aber nicht von wenn ich das habe.Ich kopiere ein Objekt, dann kann ich es mit der Leertaste drehn, alles ok so. Aber jetzt muss ich mit der ESC-Taste ok sagen um es abzusetzen, ich will das aber mit der linke Maustaste tun.Was muss ich da ändern.Danke mal im VorrausCode:(defun c:Dcc (/ BNAME LOOP ROT GR PT OLDPT EN) (vl-load-com) (setq ssett (car(entsel)));; (getstring (strcat "
Insert name" (getvar "INSNAME") "")) (setq sset ( ...
|
| In das Form Lisp wechseln |
|
Lisp : DXF-Code Abfragen
Paulchen am 11.09.2006 um 12:45 Uhr (0)
OK, mal sehen, ob ich Dir kurz helfen kann - ist eigentlich ein ACAD-Thema, also ein wenig fehl am Platz in diesem Forum, aber gut, Du wolltest ja auf Lisp losgehen:-)Also: In ACAD rechte Maustaste in den grauen Bereich - Anpassen. Es sollte ein Menü auftauchen. Scrollen, bis Du "Benutzerdefiniert" lesen kannst. Dann mit linker MT eine "benutzerdefinierte Schaltfläche" gedrückt in einem Werkzeugkasten ablegen (am besten vorher einen eigenen erstellen, geht auch unter "Anpassen").Wieder mit der rechten MT a ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Attributinformationen austauschen
Brischke am 14.01.2004 um 22:14 Uhr (0)
@spider_dd Du hast da einen falschen Gedankenansatz. Du gehst direkt in die Blockdefinition und die ATTDEF s. Das ist vollkommen unnötig, da ja nur die Attributwerte geändert werden müssen. Du hast dir viel Arbeit gemacht, sicher auch eine Menge gelernt dabei, es war mit sicherheit auch nicht umsonst. Du wirst es bestimmt noch mal brauchen. @dakneifer Folgend eine Lösung in VLisp: Code: ;;;vlaObj ist der Block als VLA-Objekt ;;;Bsp: (vlax-ename- vla-object (car(entsel)));Block picken ;;;-- ;;;NeuAttWert ...
|
| In das Form AutoLisp wechseln |
