|
Autodesk GIS Produkte : Flächen- und Längenermittlung
joern bosse am 16.08.2006 um 15:02 Uhr (0)
Nochmal Hallo,mein Problem hat sich erstmal erledigt, Udo Hübner hat mich auf den Weg gebracht. Über ein kleines LISP kann ich die Objektdaten in die Attribute übertragen:Code:; Erstellt von Udo Hübner am 16.08.06(vl-load-com)(DEFUN C DinATTR () (IF (SETQ aw (SSGET "X" (LIST (CONS 0 "INSERT")(CONS 2 "FLBLOCK")))) (PROGN (SETQ anz (SSLENGTH aw)) (PROMPT (STRCAT "
" (ITOA anz) " Texte werden zugeordnet...")) (WHILE (= (SETQ anz (1- anz)) 0) (SETQ ename (SSNAME aw anz) ;(ade_odgetfield ename table fiel ...
|
| In das Form Autodesk GIS Produkte wechseln |
|
Lisp : Protect your Lisp
joern bosse am 06.02.2013 um 08:00 Uhr (0)
Hallo Dirk,die Frage taucht hier ja mal öfters auf, habe in 2007 schon einmal was dazu geschrieben:http://ww3.cad.de/foren/ubb/Forum145/HTML/002192.shtml#000002Als Ergänzung noch dazu:Folgende Variante ist nur zu empfehlen, wenn es sich um einen sehr kleinen Nutzerkreis handelt, weil dabei jeder Kunde eine eigens kompilierte VLX/DES-Datei bekommt, in dem seine Firmendaten hinterlegt sind. Das wird dem Kunden dann auch mitgeteilt, und sobald er das Programm dann weitergibt gehen auch seine Daten weiter.Fazi ...
|
| In das Form Lisp wechseln |
|
Autodesk GIS Produkte : DMUI_GISCREATENEWFEATURECMD auch als Scipt?
joern bosse am 14.06.2019 um 13:39 Uhr (1)
Hallo,ich habe im Aufagabenfenster eine SDF-Datei. Über das Kontextmenü kann ich "Neues Objekt aus Geometrie" verwenden, ich wähle eine geschlossene Polylinie. In der Befehlszeile kann ich sehen, dass der Befehl DMUI_GISCREATENEWFEATURECMD heißt.Jetzt möchte ich aber nicht eine Polylinie nach der anderen der SDF-Datei zuweisen, sondern dass in einem Arbeitsgang machen.Ich hatte an eine Schleife in LISP gedacht, allerdings kann ich den Befehl DMUI_GISCREATENEWFEATURECMD nicht mit COMMAND verwenden?!?Hat irg ...
|
| In das Form Autodesk GIS Produkte wechseln |
|
Lisp : Problem mit is_cancel = true
joern bosse am 23.05.2008 um 16:39 Uhr (0)
Hallo Niggemann,eigentlich hatte ich gedacht, Du hast ein kleines DCL-Fenster, 2 Listen und eine LISP-Funktion die das DCL-Fenster und die Werte einer der beiden Listen läd. Also wenn Du das nicht absplitten kannst sind 2000 Zeilen für das Forum und für eben mal schauen doch ein bißchen zu viel.Aber noch eine andere Idee: Was ist, wenn Du bei Deiner Action-tile Anweisung für den Exit-Button folgendes mit reinschreibst: (setq OK(done_dialog 0)))Dann kannst du ,nachdem das DCL geschlossen über (if (= OK 0)(i ...
|
| In das Form Lisp wechseln |
|
Lisp : alles klar mit AutoCAD 2011?
joern bosse am 26.07.2010 um 17:35 Uhr (0)
In folgendem Beitrag habe ich die Lösung für die fortlaufende Anzeige des Fortschritts in der Befehlseingabe gefunden: http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/r-doesn-t-work-in-AutoCAD-2011/m-p/2661179/highlight/true#M288243 Ich denke, ich hätte mir CADmiums Antwort mal genauer zu Gemüte führen sollen, ich habe aber die (Princ)-Anweisungen leider an die falsche Stelle gesetzt, und deswegen hat es bei mir nicht funktioniert.Also wie folgt geht es:Code:(defun c rinttest ()(princ "
")(s ...
|
| In das Form Lisp wechseln |
|
Lisp : VLIDE: Dcl-Voransicht unter Windows 8
joern bosse am 28.05.2014 um 13:55 Uhr (1)
Hallo,habe einen neuen Windows 8 - Rechner und alles ist gut, bis auf:Wenn ich im Visual-LISP-Editor die DCL-Voransicht erzeugen möchte, dann erhalte ich folgende Meldung:; Warnung:Kann TMP-Datei für DCL nicht erstellen: "C:/Program Files/Autodesk/AutoCAD 2012 - Deutsch/$vld$.dcl" Schönen Dank an MS, ich starte also jetzt AutoCAD immer als Administrator und dann darf ich auf meinem eigenen Rechner auch eigene Dateien erzeugen.Ich erwarte eigentlich keine Antworten, aber jetzt, wo ich es niedergeschrieben ...
|
| In das Form Lisp wechseln |
|
Lisp : zahlen.lsp
joern bosse am 04.10.2006 um 16:02 Uhr (0)
Hallo wokijed,ich habe mal ein bißchen geändert, und wegen ACAD-Lt uns LISP, suche mal nach dem "Extender"Code:(Defun C:ZAHLEN ( / temp) (if (or (not (setq wunschlayer (getstring (strcat "Wunschlayer:" (if (and wunschlayer (/= wunschlayer "")) wunschlayer "0") "")))) (= wunschlayer "")) (setq wunschlayer "0")) (if (not (setq wunschhoehe (getreal (strcat "Wunschhöhe:" (if wunschhoehe (rtos wunschhoehe 2 1) "2.5") "")))) (setq wunschhoehe 2.5))(START)(pr ...
|
| In das Form Lisp wechseln |
|
Autodesk GIS Produkte : MAPTHEMTOPO per LISP?
joern bosse am 04.03.2010 um 11:05 Uhr (0)
Hallo Alfred,1000 Dank erstmal, ich hoffe, ich kann mich eines Tages mal revanchieren.Ich habe also mal die FDO-Variante anhand Deiner PDF-Beschreibung durchgeführt, hat alles super funktioniert. Jetzt bin ich am überlegen, ob es mich auch wirklich weiterbringt???Ich habe jetzt also eine DWG-Datei, in der in MAP die SDF-Daten entprechend der aktuellen Stileinstellungen dargestellt werden (MAPBULKFEATURE). Wenn ich die Datei jetzt speicher und das im reinen AutoCAD weiterbearbeiten möchte habe ich keine Dat ...
|
| In das Form Autodesk GIS Produkte wechseln |
|
Lisp : XDATA-Wert in Attribut übernehmen
joern bosse am 13.05.2009 um 07:28 Uhr (0)
Hallo Attilio,na das wär doch ein Grund Dich mit LISP ein wenig mehr zu beschäftigen. Also, hier der Code auf die Schnelle:Code:(defun c:XD2Att (/ A ATT_LISTE LISTE OBJ) (if(and(setq obj (car (entsel))) (setq att_liste (mapcar (lambda(A) (list(cdr(assoc 2 A))A))(XD2Att:att_liste obj)))) (progn (entmod (subst (cons 1 (nth (+ (- (length (setq liste (mapcar cdr (cdr (cadr (assoc -3 (entget obj ("pit-cup")) ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Drehen Dynamischer Block -> Error
joern bosse am 09.05.2008 um 07:57 Uhr (0)
Hallo nochmal,hier noch mal meine neuesten Erkenntnisse:Das Phänomen ist bei Hennings Block mit "polarer Streckung" im Test zwar nicht aufgetreten, aber im Ernstfall waren die Griffe wieder weg. D.h., auch hier ist der Zufall der scheinbar letzten Skalierungsnachkommastellen im Spiel.Über (entmod) konnte ich die Skalierung entgegen meiner ersten Aussage doch rüberbügeln, so daß die dynamischen Griffe wieder erschienen sind:Code:(defun c:test1 ( / ) (if(setq obj(car(entsel))) (progn (setq liste (entget ob ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Lisp warten lassen
joern bosse am 15.12.2008 um 07:36 Uhr (0)
Hallo CADchup,ich habe das mal so ähnlich wie Andy vorgeschlagen gelöst, solange, wie vl-file-rename nil zurück gibt ist die Datei am "Arbeiten" (in diesem Fall ein RAR-Archiv).Code:(if (and (vl-file-rename (strcat pfad A) (strcat (substr (strcat pfad A) 1 (vl-string-search "." (strcat pfad A))) ".exe") ) (findfile (strcat (substr (strcat pfad A) 1 (vl-string-search "." (strcat pfad A))) ".exe")) ) (progn (startapp (strcat (substr (strcat pfad A) 1 (vl-string-search "." (strcat pfad A))) ".exe" ...
|
| In das Form Lisp wechseln |
|
Lisp : Wieso 3D-Punkt?
joern bosse am 23.02.2011 um 17:15 Uhr (0)
Hallo Holzfäller,mit folgendem LISP sollte es gehen. Der Unterschied zu CADmiums ist, daß nur der erste Punkt eine 3D-Koordinate enthält, der 2. und 3. enthalten lediglich eine 2D-Koordinate.Code:(defun C:C3P2D ( / PKT1 PKT2 PKT3) (if (and (setq pkt1 (getpoint "
Ersten Punkt eingeben:")) (setq pkt2 (getpoint "
Zweiten Punkt eingeben:")) (setq pkt3 (getpoint "
Dritten Punkt eingeben:")) ) (command "_Circle" "_3p" pkt1 (list (car pkt2) (cadr pkt2)) (list (car pkt3) (ca ...
|
| In das Form Lisp wechseln |
|
Rund um Autocad : Neigung bemaßen 1:n
joern bosse am 27.06.2005 um 16:45 Uhr (0)
Hallo Holger, jetzt bin ich ein bißchen verwirrt, ich schätze also einfach mal: Du möchstest die Steigung angeschrieben haben an eine Linie im Schnitt, also, beispielsweise 1m Höhe auf 10m Länge = 1: 0.1 Wenn es das ist habe ich bei CADmiums Beispiel 2 Zeilen geändert, das mußt Du noch mal testen. Und wenn Du nicht weißt, wie Du das LISP starten sollst: Codes als *.lsp Datei speichern, dann über APPLOAD laden, und dann in der Befehlseigabe mit der Eingabe Neigung starten. Du wirst aufgefordert Objekte zu ...
|
| In das Form Rund um Autocad wechseln |
