|
Autodesk GIS Produkte : Zeichnungszuordnung speichern
marc.scherer am 01.02.2005 um 15:29 Uhr (0)
Hi Goofy, hmm, da es da nix zu geben scheint und ich das auch gerade benötige hab ich mal was geproggt: (Für Infos über die Verwendung von LISP-Proggies usw. guckst Du hier: http://ww3.cad.de/foren/ubb/Forum54/HTML/007058.shtml#000000 Anweisungen zur Verwendung dieser speziellen Funktionen findest Du jeweils im Kommentar vor den Funktionen: MAP:DWG-ALIAS- LST (zum Sichern Deiner DWG Zuordnung...) und MAP:DWGLST- ATTACH (zum Wiederherstellen Deiner DWG Zuordnung ) Edit: ******-Smilie-Kacke :motz Edi ...
|
| In das Form Autodesk GIS Produkte wechseln |
|
Rund um AutoCAD : Layout-Registerkarten
marc.scherer am 12.10.2006 um 18:03 Uhr (0)
Zitat:Original erstellt von megge:Hab mal was in Lisp probiert (siehe Anhang) , vielleicht kann es jemand gebrauchenKlasse Megge,ich hab mir Deinen Code mal angeschaut und ihn ein wenig für Dich gestrafft, falls es Dich interessiert (zu Lernzwecken ;-))Code:(defun C:GOLAY (/ CD IV LLIST NEW_LAY) (setq CD (getvar "cmdecho") LLIST (vl-sort (cons "Model" (layoutlist)) ) ) (setvar "cmdecho" 0) (if ( (setq IV (load_dialog "golay")) 0) (progn (if (new_dialog "golay" IV) (progn (start_list "dcl_l ...
|
| In das Form Rund um AutoCAD wechseln |
|
AutoLisp : Prüfen ob Zahl
marc.scherer am 21.12.2005 um 18:33 Uhr (0)
Hallo Heinz,könnte es sein, dass Du die nützlichen Debug-Funktionen der VLisp-IDE gar nicht benutzt?Solltest Du aber. Hier kannst Du nämlich ne ganze Menge über die Funktionsweise des Lisp-Interpreters lernen indem Du bestimmte Ausdrück überwachen läßt und Deine Proggies Schrittweise arbeiten läßt. Dann ist es auch überhaupt kein Problem für Dich herauszufinden was genau Deinen Fehler verursacht:(read ".1")Was genau soll denn Deine Funktion machen?Soll da am Ende n Integer oder Real rauskommen?Guck Dir mal ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : drehen und kopieren
marc.scherer am 03.02.2005 um 19:27 Uhr (0)
Hi, Dein Wunsch kann erfüllt werden, auch wenn das Lisp strenggenommen Schrott ist, denn es werden nicht die kopierten Objekte gedreht sondern die Originale... Einfach-Aufruf: CR Endlos-Aufruf: MCR Außerdem wird Dir jetzt nicht mehr dauerhaft die Sysvar cmdecho verstellt. IMHO eine weitverbreitete Unart. Code: (VL-LOAD-COM) (defun C:CR (/ ALT-CMDECHO ALT-OSMODE AUSWAHL P) (setq ALT-CMDECHO (getvar "CMDECHO") ALT-OSMODE (getvar "osmode") ) (setvar "cmdecho" 0) (setvar "osmode" 0) (prin ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Zusammenfassen diverser Scripte
marc.scherer am 13.04.2005 um 16:59 Uhr (0)
Hi, eine Textdatei z.B.: caddefunctions.lsp erstellen und in den AutoCAD Suchpfad legen, oder das entsprechende Verzeichnis in den Suchpfad aufnehmen... Dann folgendes dort hinein kopieren: ;; - Beginn Copy: ;; Nachfolgende Lisp-Funktion definiert den neuen AutoCAD Befehl: ;; CAD:DE:PURGE (defun C:CAD:DE:PURGE (/ ELEMLI) (while (setq ELEMLI (ssget _X ((0 . INSERT )))) (repeat (sslength ELEMLI) (command _.explode (ssname ELEMLI 0)) (setq ELEMLI (ssdel (ssname EL ...
|
| In das Form Rund um Autocad 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 |
|
Rund um Autocad : text
marc.scherer am 25.02.2005 um 09:54 Uhr (0)
Hi, versuch mal das folgende Lisp: Code: (setq cad:de:txtsubst "W0.72;") (defun C:CAD:DE:MTEXTCLEAN (/ ELEM INDEX SGET) (princ "
Zu modifizierende Mtexte wählen: ") (if (setq SGET (ssget (list (cons 0 "MTEXT")))) (progn (setq INDEX 0) (repeat (sslength SGET) (setq ELEM (vlax-ename- vla-object (ssname SGET INDEX))) (vlax-put-property ELEM TEXTSTRING (vl-string-subst "" CAD:DE:TXTSUBST (vlax-get-property ...
|
| In das Form Rund um Autocad wechseln |
selectSimliar.LSP.txt |
Rund um AutoCAD : Ähnliche wählen für alle!
marc.scherer am 22.11.2006 um 12:05 Uhr (0)
Hallo CAD.DE User,ich date gerade auf Map2007 up (Denglisch at its best ).Und nun fehlt mir die Funktion "Ähnliche auswählen" aus dem Map2005/6 Kontextmenü ganz doll .Da die hier angebotene Lösung nicht annähernd das leistet was das Original kann, habe ich das Lisp mal überarbeitet. Wichtig dabei ist die Liste der rauszufilternden DXF-Codes (bitte Kommentare am Anfang der Lisp-Datei lesen). Ich hab mal ein paar da reingetan, aber sicherlich nicht alle relevanten. Ich rufe alle Interessi ...
|
| In das Form Rund um AutoCAD wechseln |
|
Autodesk GIS Produkte : Objekt daten übertragen
marc.scherer am 01.10.2008 um 11:19 Uhr (0)
Zitat:Original erstellt von Jourjik:Hallo an alle Spezialisten,Wie kann ich in ACADMAP 3D 2009 Objektdaten-Inhalte zu anderen Objekten übertragen ? Kennt jemand ein entsprechendes LISP-Skript?Hallo Jourjik,ich habe zu Map 2007er Zeiten recht viel in der Richtung Objektdatenmanipulation mittels Lisp gemacht.Dabei bin ich natürlich auch auf die hervorragende Lisp Api von Map gestoßen. Generelle Sachen gehen damit schon recht gut... Aber wie immer steckt der Teufel im Detail. Darum habe ich mir also eine gan ...
|
| In das Form Autodesk GIS Produkte wechseln |
|
AutoLisp : Objektdaten / Kreis zu Poly
marc.scherer am 09.05.2006 um 18:18 Uhr (0)
Hi Gerd,na ja "Textfelder" ist schon ein wenig untertrieben.Nicht nur das "Textfelder" sprachlich eher schon anders belegt sind (die "Felder" in Textobjekten von AutoCAD, manchmal leider als "Schriftfelder" bezeichnet) handelt es sich hier doch eher um Strukturen die in Richtung von Datenbankfunktionen gehen, also Datenfelder und Records.Zu Deinem Cleaning-Resultat kann ich nur sagen das das Ergebnis der Polylinienbereinigung ganz stark von den Einstellungen der Bereinigungsfunktion abhängt.Das geht von Zw ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : drehen und kopieren
marc.scherer am 04.02.2005 um 15:53 Uhr (0)
... und weil ich mich gerade sowieso mit der CopyObjects Method beschäftigen mußte, reiche ich noch mal ne IMHO saubere Lösung nach. Bei dieser Lösung werden immer die zuerst gewählten Objekte kopiert und dann die KOPIEN gedreht. Die Funktion wiederholt sich solange, bis der User keinen Drehpunkt mehr eingibt. Aufruf mit "CR". Code: (VL-LOAD-COM) (defun C:CR (/ SGET) (princ "
Objekte zum Kopieren und Rotieren wählen: ") (if (setq SGET (ssget)) (CR SGET) ) (princ) ) (defun CR (AUSWA ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : befehl ursprung in skript-Datei
marc.scherer am 02.02.2004 um 10:26 Uhr (0)
Hi Sandra, na ja mit dem Sperren biste ja selbst drauf gekommen. Ich hab das mal im Lisp eingebaut... Code: (defun C:EXPLODE_ALL (/ INDEX AUSWAHLSATZ OBJFILTER ASLENGTH) (command _.-layer _thaw * _unlock * _on * ) (setq OBJFILTER (cons 0 DIM*,INSERT,*POLYLINE,HATCH )) (if (not (setq AUSWAHLSATZ (ssget _I (list OBJFILTER (cons 410 (getvar ctab ))) ) ;_ end of ssget ) ;_ end of setq ) ;_ wenn kein pick ...
|
| In das Form Rund um Autocad wechseln |
|
Lisp : schriftfelder via lisp (ac2005)
marc.scherer am 25.08.2009 um 11:31 Uhr (0)
Hi cadplayer,zum Thema "Textposition für automatische Beschriftung von Linien (Polylinien, Bögen usw.)" solltest Du Dir mal unbedingt die Funktionen die mit "vlax-curve" beginnen anschauen. Da kann man ne Menge Sachen bezogen auf das "Kurven Objekt" (Linien, Polylinien, Bögen usw.) ermitteln.Beispiel:Code:(defun MITTEL-PKT? (ENAME /) (setq ENAME (-VLA-OBJECT ENAME)) (vlax-curve-getpointatdist ENAME (/ (vlax-curve-getdistatparam ENAME (vlax-curve-getendparam ENAME) ) 2.0 ) ))(defun -VLA-OBJ ...
|
| In das Form Lisp wechseln |
