|
Lisp : DXF-EXPORTIEREN
udouk am 26.08.2009 um 15:00 Uhr (0)
Danke für die superschnelle Antwort!!!Also, mein Versuch eine Vorhandene Kopieren & Drehen LISP-Datei umzuschreiben sieht nun so aus:_________________________________________________________________________(VL-LOAD-COM)(defun C XF-EX (/ SGET)(princ "
Objekte zum Exportieren wählen: ")(if (setq SGET (ssget))(DXF-EX SGET))(princ))(defun DXF-EX (AUSWAHL / LST-ORGOBJECTS P SSET-COPIED)(if (setq LST-ORGOBJECTS (DT:SELSET-VLA-OBJECTLIST AUSWAHL))(while (setq P (DT:SAFE-EVAL(list getpoint"
Nullpunkt wählen: ")))( ...
|
| In das Form Lisp wechseln |
|
Lisp : Texte einfügen
Dorfy am 19.05.2011 um 10:52 Uhr (0)
@cadplay bis zum mittag?! na so kompliziert ist es doch nicht?! quick and dirtyCode: (vlax-for x (setq #SS (vla-get-activeselectionset *AcadDoc*)) (cond ((eq (vla-get-objectname x) "AcDbArc") (setq #Len (+ #Len (vla-get-ArcLength x))) (setq PKT (cdr(assoc 10 (entget(vlax-vla-object-ename x))))) (command "text" PKT "0.375" "" #Len ) ) ((vl-position (vla-get-objectname x) ("AcDbLine" "AcDbPolyline")) (setq #Len (+ #Len (vla-get-Length x))) (setq PKT (cdr(assoc 10 (ent ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Absturz beim Öffnen von Blöcken
KBB_Ne am 23.09.2004 um 19:41 Uhr (0)
Hallo Forum, ich weiß, das Thema Absturz beim Öffnen von Blöcken wurde schon behandelt. Aber ich frege einfach noch einmal: Gibt es zu dem Bleckeditor von Autodesk keine Alternative? Bei mir (ACAD-Mech, PP6 mit XP) stürzt AutoCAD immer wieder ab. Ich hab mal aus dem Forum einen anderen Blockeditor benutzt, aber auch da war es nicht wirklich besser.... Meine Vorstellung ist eine Lisp, das einen Block anders öffnen kann als der ACAD-Blockeditor??? Geht so was? Gruß KBB ------------------ Gruß KBB
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Verschachtelte Blöcke einfügen
CADwiesel am 23.12.2004 um 08:09 Uhr (0)
ich kann zwar mit deiner Frage nicht allzuviel anfangen, da sie extrem unpräzise gestellt ist, aber trotzdem versuche ich mal etwas: Hol dir mal das Lisp Blockdef_for_load findest du bei mir unter Blöcke. Wenn du damit nicht weiterkommst, kannst du ja deine Frage etwas präziser formulieren. Ich tippe aber mal darauf das der Weg sein müsste: die Zeichnung, die die Blöcke enthält in die aktuelle Zeichnung einfügen und dann alle Blöcke ermitteln, die dann zum einfügen bereitgestellt werden können. ---------- ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Schnittpunkt ermitteln
CADmium am 04.05.2012 um 08:42 Uhr (0)
Zitat:Original erstellt von cadplayer:vlax-vla-object-ename erstellt doch ein vla-objekt nicht ein Lisp-objekt Bemühe bei sowas doch einfach mal die HILFE im VLIDE !---------Zu deinem Code (davon abgesehen, dass ich ihn gruselig finde .... )nimm doch einfach ne neue Variable .. also stattVLobj (vlax-ename-vla-object en)pt vlax-curve-getClosestPointTo VLobj pt)seg (fix (vlax-curve-getParamAtPoint VLobj pt)) ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des P ...
|
| In das Form Lisp wechseln |
|
AutoLisp : BD-Bezeichnungsvorlage editieren
CAD-Huebner am 11.09.2004 um 07:30 Uhr (0)
Ich hab ehrlich gesagt nicht ganz genau verstanden, was jetzt nach der Konvertierung geht bzw. nicht geht. Geht es hier um Annotations/Kommentare, oder um die Objektverknüpfung selbst. Schildere das Problem noch etwas ausführlicher, wenn du hier Hilfe erwartest. Der Name der Verknüpfungsvorlage wird als EED an die Objekte gehängt. Diese mit Lisp zu manipulieren ist kein Problem. Wesnn es nur darum geht #(#( Feldnamen )) gegen #(Feldnamen) zu ersetzen, schreib einfach eine DXF Datei und ersetze die gesuchte ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : GC10 mit nentsel in
Brischke am 10.07.2003 um 15:07 Uhr (0)
Hallo T. Bürger, so schlimm ist das auch nicht. Folgende Zeilen veranschaulichen das Prinzip. Code: (defun c:TTT (/ pick obj masterobj zpt wie) (arxload geomcal (princ geladen )) (setq pick (nentsel)) (if pick (setq obj (cdr(assoc 10 (entget(car pick)))) masterobj (cdr(assoc 10 (entget(car(last pick)))))) ) (setq zpt(mapcar + obj masterobj) wi (* (/ 180.0 pi)(cdr (assoc 50 (entget(car(last pick))))))) (setq zpt(cal rot(zpt,masterobj,wi) )) (command _.LINE z ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Tabelle RowType ändern
Dorfy am 01.07.2010 um 14:41 Uhr (0)
Zitat:Original erstellt von CADlsp:Jetzt habe ich eine Tabelle mit dem ganzen Excel Inhalt aber alle Reihensind vom Typ Daten, obwohl der "Standard" Tabellenstil dies anders vorsieht.GC280 und gc281 sind gesetzt?nimm die mal raus... dann sollte Zeile 1+2 (bzw 0 und 1) Titel und Kopf acTitleRow and acHeaderRow) enthaltenAber so richtig verstanden hab ich dein Anliegen noch nicht...Ne Beispielzeichnung und deine Systeminfo wäre ggf auch hilfreich------------------Mfg Heiko Elefantenjagd in Afrika "... LISP ...
|
| In das Form Lisp wechseln |
|
Lisp : Gewählte Dateien einfügen
Danillo am 06.06.2022 um 20:46 Uhr (1)
Hallo Leute,ich möchte mehrere dxf-Dateien als Block in eine Zeichnung einfügen, wobei aber der Benutzer die Dateien auf der Festplatte wählen können sollte. Die Anzahl der Dateien kann dabei unterschiedlich sein, d.h. einmal 4, ein anderes Mal z.B. 8.Wäre super, wenn mir jemand einen Tipp geben könnte. Meine Alternative wäre sonst, dass der Dateiname und der Pfad fix vorgeben sind, und ich mit LISP dort die Datein "abhole". Diese Vorgehensweise ist aber sehr eingeschränkt und anfällig auf Fehler/Ungenauig ...
|
| In das Form Lisp wechseln |
|
Lisp : Isopolar 3d
alf-1234 am 28.02.2007 um 11:01 Uhr (0)
Hallo zusammenIch habe bis Acad 2002 mit dem Programm Isopolar 3d von H. Dornbacher gearbeitet. Zwichenzeitlich aber haben wir unser Programm auf Acad 2004 LT bzw. Acad 2005 umgestellt. Leider brauche ich jetzt wieder dieses Programm Isopalar 3d. Da ich kein Lisp-Programmierer bin und dieses Programm mit Acad 2004/ 2005 nicht läuft frage ich mal: Wer kann mir dieses Programm für Acad2004/ 2005 anpassen? Es wäre schön wenn der Herr Dornmacher dieses auch liest und mir evtl. helfen kann.MfG.Alf-1234
|
| In das Form Lisp wechseln |
|
Lisp : Lastpoint
MARTINLE am 02.03.2011 um 10:37 Uhr (0)
Hallo!Dieses Lisp hab ich selbst geschrieben.Nur ich krieg einfach nicht hin dass nach dem Befehl versetzten der Punkt verwendet wird der schon bei der Umgrenzung angegeben wurde. Damit würde ich mir einen "Klick" sparen. mit "lastpoint" will es einfach nicht laufen!Bitte euch um Hilfe!lgMartin (Defun c:vers ( / ab )(command "-umgrenzung" "o" "i" "n" "" "" (getpoint "
Internen Punkt wählen: ")"")(setq ab (entlast))(command "versetz" 3 (entlast) (getpoint "
Internen Punkt wählen: ") "")(command "löschen" ab ...
|
| In das Form Lisp wechseln |
|
Lisp : TXT-Datei einlesen
Brischke am 02.10.2018 um 12:48 Uhr (1)
Zitat:Original erstellt von Schachinger:... Sobald wieder etwas Zeit bleibt möcht ichs dann umstellen dass wir auf dein Tool aufbauen.Bekommst du das AutoCAD Magazin? Ich habe das Tool so erweitert, dass es direkt als Lisp-Funktion genutzt werden kann. Das Tool wird in einem der nächsten Hefte veröffentlicht, dann kannst du auch solange warten, und hast es bei der Überarbeitung noch einfacher.Grüße!Holger------------------Holger BrischkeCAD on demand GmbHIndividuelle Lösungen von Heute auf Morgen.defun-too ...
|
| In das Form Lisp wechseln |
|
AutoLisp : 90 Grad rotieren
archstudent am 24.08.2005 um 22:35 Uhr (0)
Hallo Thomas!Es geht lediglich darum, durch ein Tastenkürzel selektierte Objekte um 90 Grad zu drehen, statt den nette Drehen-Button anzuklicken, das Objekt zu wählen, zu bestätigen, den Winkel von 90 Grad einzutippen und dann nochmal zu bestätigen..... Dat muß mit ner lächerlichen Zeile Lisp funktionieren!!!Funktioniert auch soweit, nachdem man ein BD-Button damit gefütter und ein Tastenkürzel vergeben hat.Autocad dürfte wohl eines der besten CAD-Programme sein,im Vergleich zu Vectorworks ist es aber im B ...
|
| In das Form AutoLisp wechseln |
