|
Lisp : Explorer starten, Pfadname nur teilweise bekannt
Orchard am 14.07.2017 um 12:12 Uhr (1)
Hallo,dass ich mit DWGPrefix den Speicherort der geöffneten DWG auslesen kann ist mir bekannt, nützt mir aber nichts.Unsere Zeichnungen werden mit dem Programm Autodesk VAULT geöffnet. Die DWG´s liegen auf einem Server, auf den Dateiortkann man gar nicht zugreifen.Aber wir haben einen Projektordner im Explorer in dem wir Datenblätter, Empfangene Dateien, Protokolle usw. ablegen. Woder Projektordner liegent ist klar: S:Datenaustausch.... usw.Der Unterordner für das Projekt fängt nun definitiv mit der Projek ...
|
| In das Form Lisp wechseln |
|
Lisp : Text aus Block filtern
m.schuster am 31.01.2008 um 10:46 Uhr (0)
Zitat:lass einfach das (entmod el) weg, so werden die Attribute unverändert gelassen.Danke! Und schon bin ich einen Schritt weiter Zitat:Texte aus Blockdefinitionen den Referenzen zuordnen (besonders bei mehrfach verschachtelten , transformierten)ist aber noch was komplizierter und ist auch nicht mit nem 10-Zeiler getan. Verschachtelte Blöcke müssten nicht berücksichtigt werden. Was meinst du mit Referenzen zuordnen? der statische Text müsste doch einfacher gehen zu vervielfältigen. Zitat:Wie darf ich " ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp - Neigung 2D
CADmium am 08.01.2019 um 07:51 Uhr (1)
zum Zeilenweise Nachvollziehen:(defun C:NEIGUNG2D(/ ATT1 ATT2 ATT3 P1 P2 DIFF DIST VALUE) (if(and(setq ATT1(car(nentsel "
Attribut 1 : "))) (setq ATT1(entget ATT1)) (=(cdr(assoc 0 ATT1))"ATTRIB") (setq ATT1 (cdr(assoc 1 ATT1))) (setq ATT1 (atof ATT1)) (setq ATT2(car(nentsel "
Attribut 2 : "))) (setq ATT2(entget ATT2)) (=(cdr(assoc 0 ATT2))"ATTRIB") (setq ATT2 (cdr(assoc 1 ATT2))) (setq ATT2 (atof ATT2)) (setq DIFF (*(- ATT1 ATT2)100.0)) (setq P1(getpoint "
Punkt1 ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Funktonierendes dbview erstellen
marc.scherer am 16.09.2004 um 09:50 Uhr (0)
Hi, ja die Idee ist gut. Für alle die dbview nicht kennen. Es handelt sich hierbei um den AutoCAD Geometrie Datenbank Viewer des Express-Tools Teams. War mal kurzfristig Bestandteil der EToolsV1-9, wurde aber wegen akuter Datenbank-Zerstörungsgefahr wieder rausgenommen. Später konnte man das Ding dann wieder über PointA separat downloaden. Geiles Ding das, und so sieht es denn aus: .. Interessant dabei finde ich, dass das Tool die Extension Dictionaries und Named Objects Dictionaries problemlos a ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Wie Befehl ändern, um Attribute in vorhandenen Blöcken zu ändern?
die wölfin am 18.10.2017 um 14:13 Uhr (1)
Hallöle an Alle!zunächst noch mal ein dickes Dankeschön an alle für die tolle Hilfe und diversen Lektüre-Empfehlungen!!!Ich bin echt begeistert! Ich könnte jedoch noch eine kurze Hilfe zu dem Script von Jörn gebrauchen, weil meine eigenen Änderungsversuche leider kläglich gescheitert sind. Mir ist gerade aufgefallen, dass die Fläche leider Brutto eingefügt wird und nicht wie in meinem Lisp nur 98% der Fläche. Ich habe schon versuch es selbst zu ändern, aber irgendwie krieg ich doofe Kuh es partout nicht ...
|
| In das Form Lisp wechseln |
|
Lisp : Rotieren und Skalieren einer Polylinie mithilfe von 3 Punkten
MalteJ am 06.03.2007 um 12:43 Uhr (0)
Hi Lispler,ich hab da eine ziemlich lästige Aufgabe in AutoCAD:Es muss eine 2D-Polylinie um ihren Anfangspunkt gedreht werden.Undzwar so, dass der Endpunkt der Polylinie auf einer Linie mit dem Anfangspunkt und einem beliebigen anderen Punkt (Referenzpunkt) liegt.Anschließend soll die Polylinie so skaliert werden, dass der Endpunkt auf dem Referenzpunkt liegt. Der Anfangspunkt dient hier als Skalierpunkt und behält dementsprechend seine Koordinaten bei.Zur Bedienung:Zu erst soll der Befehl aufgerufen werde ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Zeichnungseigenschaften
double_m am 12.08.2005 um 12:09 Uhr (0)
Hi!Ich habe bei euch im Forum diesen Code zum Bearbeiten der Zeichnungseigenschaften per Lisp gefunden:(defun SET_DWG_PROPS_STRING ( STRING NUMMER / PROPS ) (if (and(=(type STRING) STR)(= (type NUMMER) INT)) (if (setq PROPS (entget(cdr(assoc -1 (dictsearch (namedobjdict) "DWGPROPS"))))) (progn (if (assoc NUMMER PROPS) (setq PROPS (subst(cons NUMMER STRING)(assoc NUMMER PROPS)PROPS)) (setq PROPS (append PROPS (list(cons NUMMER STRING)))) ) (entmod PROPS) ) ) ) )Ich ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Einsatz
Petra_Sp am 10.08.2004 um 14:44 Uhr (0)
Hallo Leute vor einer ganzen Weile hab ich mal gefragt um Teile eines Strings und von sehr sehr super Tipps bekommen!! Nun wollte ich etwas Fragen bezüglich einer Antwort von CADmium - Thomas: Folgendes: Diese Funktion schneidet bei einer Anzahl die Verzeichnissen ab. Wie kann ich so eine Funktion einsetzen-benutzen??? Mittels Lisp, Button, Text, oder etwas anderem damit ich mein Ergebnis bekomme???? Der Tag ist schon sehr sehr lange, bitte helft mir! (defun Zchnstr ( VERZEICHNISSE / RETURN) (if (=(type ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : DCL-Felder positionieren
ManfredMann am 29.09.2003 um 16:26 Uhr (0)
Hallo Experten! Ich habe seit einiger Zeit DCL-Fenster in meine Lisp eingebunden, aber es ist mir nicht gelungen die Positionierung der Felder richtig zu gestalten. Links- bzw. Rechtsbündigkeit kann ich kaum erreichen, sowie Zentrierung dieser Ferder, oder Texte. Gibt es einen Trick wie man die alignment Befehle anwendet, oder gibt es andere Steuerbefehle? Wer hat Erfahrung & könnte mir helfen? : column { : edit_box { key = dd_spos_ug ; allow_accept = true; alignment=centere ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Punkte einer Polylinie in Datei schreiben
hep am 23.08.2005 um 07:51 Uhr (0)
Hallo Holger,zuerst einmal möchte ich mich bedanken für die freundliche Hilfe.Ich möchte aber auch auf Deine einleitenden Worte antworten.Für mich steht das außer Frage das man in einem Forum nicht auftreten kann mit der Forderung mach mal eben. Das war ganz betimmt nicht meine Intension. Wie ich geschrieben habe, habe ich (noch) wenig Kenntnisse in Lisp. Ich hoffe das ich meine Kenntnisse erweitern kann und das tut man am besten mit learning by doing. Am Anfang über Probleme diskutieren ist doch aber rech ...
|
| In das Form Lisp wechseln |
|
Lisp : AutoLisp-Funktion in DWG-Datei integrieren
aRakun am 26.03.2010 um 09:43 Uhr (0)
Hallo AutoLisp-Profis,ich bin neu im Forum und AutoLisp-Anfänger:Ich habe eine Funktion in Lisp geschrieben und möchte diese jetzt zusammen mit der DWG-Datei weitergeben. Nun scheint es nicht so einfach, diese Funktion in eine DWG-Datei einzubinden. Klar könnte ich die Funktion als separate Datei mit der DWG-Datei verschicken. Aber aus Erfahrung weiss ich, dass damit viele AutoCAD-Anwender nicht zurecht kommen werden.Jetzt gibt es meiner Meinung nach 3 Möglichkeiten:1. Das ist gar nicht möglich bzw. vorges ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Tachymeterdaten in Autocad 2005 einfügen??
Gerd_Ecke am 10.05.2006 um 09:20 Uhr (0)
Hallo Thomasneu!Folgenden Weg würde auch ich empfehlen :- in Excel die Rechtwinkligen Koordinaten errechnen ( Gauß Krüger )- diese Punkte ins ACAD rein - gibt es sehr viele Lösungen (besonders in den Foren auf CAD.de- Karte erstellen --- färtsch (mit erstem Teil)2. Teil:- Die Textdatei mit den XYZ-Werten in ein MAP 2005 mit Civil einlesen und DGM erstellen daraus Höhenschichtlinien erzeugen.- Wenn kein Civil zur Hand mußt Du eine Vermessungssoftware nutzen um DGM zu erstellen.Die GK-Koordinaten aus den Po ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Layer eines Layer-Eigenschaftsfilters schnell frieren/tauen
cadffm am 09.10.2018 um 12:17 Uhr (1)
Zitat:Original erstellt von archi.archi:Funktioniert für einstufige Eigenschaftsfilter.Das kommt ganz auf den Filter an (auf die Filterkriterien)Gibt es vielleicht noch Verbesserungsvorschläge?siehe untenZitat:Original erstellt von cadffm:Da an der Stelle (Verweis auf den Link) nur einige Layerfilter zu finden sind,würde ich hier mit starten:(and(setq dicts (vla-GetExtensionDictionary (vla-Get-Layers (vla-get-ActiveDocument (vlax-get-acad-object)))))(setq LayerFilters (vla-item dicts "ACLYDICT ...
|
| In das Form Lisp wechseln |
