|
Lisp : script zur Bereinigung von Export DXF/DWG
cadffm am 18.10.2011 um 11:43 Uhr (0)
Zu deiner Anleitung im Anhang:"Export in ACAD 2007" = Vorarbeit"Zeichnung in ACAD 2012 öffnen" = Das macht man 1x und lässt dann ein Batchprogramm laufenwelches nacheinander die ausgewählten Dateien durchläuft: öffnen, abarbeitet, schließen. *SCRIPTPRO von AutoDesk (ist super, nur leider durch ungewöhnliche Arbeitsweise sehr langsam) *SCC2 von CADwiesel.de, einfaches Lispprogramm welches im SDI-Modus ein Script pro Datei ausführt.und ab hier kann man ein Lisp/Script einsetzen:vorab zB. Befehl _.MODEL (um i ...
|
| In das Form Lisp wechseln |
|
Lisp : script zur Bereinigung von Export DXF/DWG
Kodat am 18.10.2011 um 12:15 Uhr (0)
Hallo. Erstmal Danke.Da ist ja noch einiges zu klären.Dieses Lisp oder script soll einfach ausführbar sein da mehrere nicht so versierte User das erledigen sollen.Eigentlich sollte Die exportierte Datei von Revit als DWG korrekt sein.Es kommt noch das Problem hinzu das in Revit die Bemassung als Architekturbemassung erstellt wird , wo AC selbst ja ein Problem hat.Wir lösen also die komplette DWG auf um die gleich Optik wie im PDF zu erhalten. Die Externen lege auch unsere Daten zu Grunde um Konstruktionspl ...
|
| In das Form Lisp wechseln |
|
Lisp : script zur Bereinigung von Export DXF/DWG
cadffm am 18.10.2011 um 14:59 Uhr (0)
Die Hilfe und Antwort ist einfach: Das geht nichtKeine Dialogsteuerung in Makro und Script möglich - und da die SAUSWAHL keine Befehlszeilenversion hat: Ende,AusEs gibt auch sonst keinen Befehl in Acad den du dafür nutzen kannst, außer du nutzt Programmiersprachen,oben ein Beispiel in Lisp - die Kernfunktion was das "Auswählen" angeht ist SSGET .------------------CAD.de System-Angaben - CAD on demand - User:FAQ(Acad)[Diese Nachricht wurde von cadffm am 18. Okt. 2011 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : script zur Bereinigung von Export DXF/DWG
CADchup am 18.10.2011 um 15:13 Uhr (0)
Vielleicht ist der notwendige Umfang auch nicht klar.Wie cadffms Codeschnippsel zeigen, wird die Lösung nicht aus einem Buttonmakro oder einem simplen Lisp-Dreizeiler bestehen.------------------CADmaro.de
|
| In das Form Lisp wechseln |
|
Lisp : script zur Bereinigung von Export DXF/DWG
cadffm am 18.10.2011 um 15:40 Uhr (0)
Zitat:Dafür bekomme ich/wir auch kein Geld. Das wird einfach von vorrausgesetztdas wir es liefern. Und glaub mir, wir bekommen dafür nichts.IHR ärmsten könnt einem echt Leid tun PS: Du kannst meine Lispzeilen mit den "Scriptzeilen" zusammen in einem Script einsetzen, kein Problem !Script ist nichts anderen wie alles nacheinander in die Befehlszeile schreiben und Lisp kann man direkt in dieBefehlszeile eingeben und es wird ausgewertet - daher ist es so einfach in einem Script zu verwenden.------------- ...
|
| In das Form Lisp wechseln |
|
Lisp : MText Hintergrundfarbe in Lisp einbauen
cadffm am 20.10.2011 um 12:48 Uhr (0)
Erstelle in Acad doch mal einen MText und kopiere den, dann gebe einem von beiden die gewüschte Einstellung und vergleiche beide.Da ich das soweit möglich mit AutoLisp mache gehen mir die VisualLisp Begriffe nicht so leichtvon der Hand, aber da auch hier die Doku sowie die Möglichkeit von vlax-dump-object recht gut ist wirstdu es schon alleine schaffen, die Antwort ist: JaBeispielLink: Klick------------------CAD.de System-Angaben - CAD on demand - User:FAQ(Acad)
|
| In das Form Lisp wechseln |
|
Lisp : sssetfirst und Attribute
cadffm am 20.10.2011 um 11:17 Uhr (0)
Doch doch, das ist Soooo neu, denn Adesk schafft hinkt immer ca. 25 Jahre hinterherin ihrer "kompletten" Umsetzung von Tools.EDIT: Das Vorhaben macht ja im Dunstkreis der Programmierung keinen Sinn,das wäre maximal etwas für den User und da wurde Lisp einfach nicht mitentwickelt was diese Möglichkeit angeht.------------------CAD.de System-Angaben - CAD on demand - User:FAQ(Acad)[Diese Nachricht wurde von cadffm am 20. Okt. 2011 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : sssetfirst und Attribute
cadffm am 20.10.2011 um 11:50 Uhr (0)
Also OK, dann wollen wir mal sagen das es sich in Lisp 100% genau so verhalt wie auf ganz normalerAnwenderebene.Hat man die Attribute gewählt und gibt sie zB. der _Copy-Funktion zum Fraß, so wird Acad einemauc hdie Inserts kopieren und nicht die Attribute.. Und genau so verhalt sich der Auswahlsatz auch -im Auswahlsatz sind ebenfalls die übergeordneten Objekte (die Insert) enthalten !Das Besondere ist eben das sich AutoCADbei jedem Auswahlsatz auch genau merkt wie dieser erstellt wurde,Und in deinem Fall h ...
|
| In das Form Lisp wechseln |
|
Lisp : MText Hintergrundfarbe in Lisp einbauen
neurosis am 20.10.2011 um 15:51 Uhr (0)
nicht zu vergessen der gruppencode 63 und am ende Code:(vla-put-backgroundfill (vlax-ename-vla-object en) :vlax-true)wobei en der elementname des text-objekts istgrussmarco------------------Marco Heuer www.arc-aachen.de Airport Office
|
| In das Form Lisp wechseln |
|
Lisp : MText Hintergrundfarbe in Lisp einbauen
CAD-Huebner am 20.10.2011 um 12:54 Uhr (0)
Zitat:Original erstellt von Kirjava:...Wäre es möglich, dem Text auch gleich eine Hintergrundfarbe (am Besten "Background") zu geben mit einem bestimmten Randversatz z.Bsp. 1.2?Beste GrüsseKirjavaKlar, Gruppencode 45 und 90 des MTEXT Objektes anpassen.------------------Mit freundlichem GrußUdo Hübnerwww.CAD-Huebner.de
|
| In das Form Lisp wechseln |
|
Lisp : MText Hintergrundfarbe in Lisp einbauen
Kirjava am 20.10.2011 um 12:43 Uhr (0)
Hallo zusammenich habe hier eine Lisp, die die Fläche eines Polygons ausliest und die dann als Text per Klick einfügt.___(defun Get-ObjectIDx64 (obj / util) (setq util (vla-get-Utility (vla-get-activedocument (vlax-get-acad-object)))) (if (= (type obj) ENAME)(setq obj (vlax-ename-vla-object obj))) (if (= (type obj) VLA-OBJECT) (if ( (vl-string-search "x64" (getvar "platform")) 0) (vlax-invoke-method util "GetObjectIdString" obj :vlax-False) (rtos (vla-get-objectid obj) 2 0) ) ))(defun c:AT (/ entObje ...
|
| In das Form Lisp wechseln |
|
Lisp : Getstring mit Vorgabe
Bernd P am 11.05.2006 um 11:47 Uhr (0)
HiHab mir das Lisp gebastelt. siehe untenDarin soll der Block "Kanal_Schacht" eingefügt und die Eingabe der Attribute erfolgen.Das Problem ist das ich den Vorherwert der vorherigen Eingabe bei Strang bzw Schacht gerne hätte.Code:(defun c:Kanal_Schacht (/ punkt Strang Schacht) (prompt "Schachtmitte: ") (setq punkt (getpoint)) (if (= Strang_vorher nil) (setq Strang (getstring T "Strang: " )) (setq Strang (getstring T "Strang vorher: " Vorherwert) ) (setq Strang_vorher Strang) (if (= Schacht_vorher nil) ...
|
| In das Form Lisp wechseln |
|
Lisp : Getstring mit Vorgabe
marc.scherer am 11.05.2006 um 12:20 Uhr (0)
Toll,hab wieder zu lange rumgemacht :-(Hier mein Senf:Code:(defun C:KANAL_SCHACHT (/ PUNKT SCHACHT STRANG) ;; (prompt "Schachtmitte: ") ;; Die Aufforderung kann man direkt in die GETXX Funktion bringen ;; Angaben in "" sind traditionell für "Vorgabe wenn Enter" gedacht. ;; Was ist, wenn der User keinen Punkt klickt? Dies muß abgefangen werden. (if (not (setq PUNKT (getpoint "
Schachtmitte: "))) (princ "
Ey, Du sollst n Punkt klicken... Funktionsende.") (progn ;_ fasst nachfolgendes zu einem Ausdruck zusa ...
|
| In das Form Lisp wechseln |
