|
Lisp : Kranke Polylinien?
CADchup am 26.07.2011 um 22:15 Uhr (0)
...und ich denk die ganze Zeit "...kommt mir so bekannt vor..." Hi,die Suche nach "invalid class" findet in Adesks Lisp-Brett ein paar gute Beiträge zu diesem ActiveX-Aussetzer.Tony T. hat es hier prima erklärt: Zitat:When a COM wrapper for an object exists,...Was ab dem Zeitpunkt des ersten (vlax-dump-object (vlax-ename-vla-object(car(entsel)))) der Fall ist. Zitat:...and AutoCAD replaces that object with another object of a different type, and also exchanges the object ids; xdata and extension dictionar ...
|
| In das Form Lisp wechseln |
|
AutoLisp : importiern von Layer-Bemaßung-TextStyle
tom.berger am 16.06.2004 um 11:32 Uhr (0)
Zitat: Original erstellt von Petra_Sp: Ich hab mir eine Zeichnung-Vorlage angelegt wo ich das alles definiert und erstellt habe. Wie kann ich jetzt am einfachsten über Lisp, Sript pder dergeleichen diese vordefinierten Sachen per Knopfdruck einfügen. 1x für Layer, 1x für Bemasungstile und 1x für Textstyle. Ich vermute, Du willst das in bereits bestehende Zeichungen einfügen, denn für neue Zeichnungen hast Du ja schon Deine Vorlage. Das geht dann am einfachsten, indem Du die ansonsten leere Vorlage ...
|
| In das Form AutoLisp wechseln |
|
Lisp : 1.attribut auslesen
Bauvermesser am 05.07.2008 um 22:14 Uhr (0)
ja, ja ich geb es ja zu . Habe leider keine Ahnung was die Welt und Autocad zusammen hält. Hatte in meinem laienhaften Wahn gedacht mit dem austausch einer Befehlszeile komme ich zum Ziel, aber denkste. Für mich war die Befehlszeile"(setq att (entnext en))" die Lösung!"Du hättest doch bloß meine drei Lisp-Ausdrücke via Copy&Paste zu übernehmen brauchen .."....-- aber an welche stelle ?Die Hinweise "dann mit dem Attributwert noch ein simmples (Command "Text" ...)oder auch ein (vla-AddText... oder ein (Entma ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Probleme mit Lambda ?
mapcar am 01.04.2003 um 02:06 Uhr (0)
Hallo Andi, beschäftigen tue ich mich schon lange damit - da muss ich selber schmunzeln, wenn ich dran denke. War wohl 90/91, als ich mir meinen ersten PC angeschafft habe, ein XT mit 8 MHz!!! Und da war ein AutoCAD 2.6 drauf - das hat mich irgendwie interessiert. Ich habe ein bisschen damit rumgespielt, habe rausgekriegt, wie man in Lisp programmiert, und ein halbes Jahr später bin ich zu einem AutoCAD-Händler gegangen und hab mal vorgeführt, was ich da so gemacht habe. Kam gut an, und seitdem bin ich in ...
|
| In das Form AutoLisp wechseln |
|
Lisp : X-ref Layer
cadffm am 24.09.2012 um 15:48 Uhr (0)
Genau, DXF-Gruppencode 70Bit 1 gesetzt = gefroren, Bit 1 nicht gesetzt = getautBefehl: (setq q1 (entget(tblobjname "LAYER" "eininsert221000|kfw_5_moeb_-")))((-1 . Objektname: 75c38238 ) (0 . "LAYER") (5 . "19F") (102 . "{ACAD_XDICTIONARY") (360 . Objektname: 75c38240 ) (102 . "}") (330 . Objektname: 75c34d10 ) (100 . "AcDbSymbolTableRecord") (100 . "AcDbLayerTableRecord") (2 . "einInsert221000|MOEB") (70 . 49) (62 . 4) (6 . "CONTINUOUS") (290 . 1) (370 . -3) (390 . Objektname: 75c34c68 ) (347 . Objektname: ...
|
| In das Form Lisp wechseln |
|
Lisp : Einpassen von ALKIS Daten
KlaK am 16.03.2021 um 17:35 Uhr (1)
Hallo Bauvermesser,Ich fürchte Du wirst Dich nach 15 Jahren von Deinem Acad 2005 trennen müssen Eine günstige Alternative wäre Bricscad Pro, da kannst Du zumindest Deine Lisp-Programme weiterverwenden. Unser Vermesser hat dazu noch "CADdyV for Bricscad" damit kann man Zeichnung von einem System in ein anderes transformieren, entweder über EPSG-Code, NTv2-Koordinatengitter oder über Helmert-Transformation. Geht eigentlich ganz gut und schnell.Wie Vino schon geschrieben hat ist es durch die unterschiedliche ...
|
| In das Form Lisp wechseln |
|
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 : 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 |
|
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 |
