|
Rund um Autocad : Benannte Blöcke einfacher umbennen
tom.berger am 06.01.2004 um 15:23 Uhr (0)
Zitat: Original erstellt von Alpschorsch: Hallo, noch eine kurze Frage zu Blöcken! Gibt es irgendwo eine kleine .lsp um schon benannte Blöcke z.B. durch anklicken umzubennen? Danke! Da es den komfortablen UMBENENN Befehl gibt, vermute ich mal, dass Du Dich nur unkorrekt ausgedrückt hast und gar keine Blöcke umbenennen willst, sondern Blockreferenzen auf andere Blockdefinitionen verweisen lassen willst. Das geht relativ einfach mit ein wenig LISP, denn da muß nur der Hinweis auf die referenzierte De ...
|
| In das Form Rund um Autocad wechseln |
|
Lisp : Flächenberechnung
holgerlab am 23.02.2005 um 15:08 Uhr (0)
Ich weis nicht ob das hilft. Wir zeichnen im mm und Fläschenangaben machen wir aber in m². So habe ich mir das Lisp eine Berechung für Fläche und Umfang eingafügt. (defun c:uf ( / obj flae umfa) (setq filename flae.dat ) (setq trenn ; ) (setq nachkomma 1) (Setq BLIALT (getvar blipmode )) (Setq CMDALT (getvar cmdecho )) (Setq OSMALT (getvar osmode )) (setvar blipmode 0) (setvar cmdecho 0) (setvar OSMODE 0) (terpri) (SETQ obj (getpoint Punkt in der Fläche )) (command _.boundary o ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : DXF Programmierung
cadffm am 12.06.2008 um 11:36 Uhr (0)
Also kann super simpel sein, zunächst sollte aber noch erwähnt sein dassich auch vorher schon ein paar Leute hier mit dem gleichen Anliegengemeldet haben (und zum Teil auch Antworten erhalten haben).Von NULL an wird dir hier aber wohl niemand etwas erklären, dafür ist einForum nunmal nicht da - ich mache mal den Einstieg, mal sehen wie sichder Thread entwickelt:Suche dir jemanden mit AutoCAD(hast du selbst ?) und erstelle einenagelneue Datei (nicht von einer Vorlagendatei, sondern richtig jungfräulich)Die ...
|
| In das Form Rund um AutoCAD wechseln |
|
CoCreate Programmierung : Problem mit mutual-exclusion
Patrick Weber am 24.10.2008 um 08:23 Uhr (0)
Hallöchen alle miteinander!Ich schreibe gerade an einem kleinen Lisp, mit dem ich mir für kleinere technische Dokumentationen den Viewport reproduzierbar in Position drehen kann.Doch leider geht da irgendetwas schief. Sobald ich eine Ansicht über einen Button "X1" usw. aktiviere, werden die RadioButtons nicht aktualisiert, obwohl alle mit mutual-exclusion verknüpft worden sind.Ich dachte eigentlich, dass, wenn eine Variable, die in der mutual-exclusion-liste steht, auf "true" gesetzt wird, die anderen V ...
|
| In das Form CoCreate Programmierung wechseln |
|
Programmierung : werkstoff ts-werkstoff-abfragen techsoft SD Power
Stork am 17.09.2008 um 12:46 Uhr (0)
Hallo Alle,Ich bin keine Lisper...wie komme ich an der werkstoff attribute was durch techsoft SD Power zugeorden war?Meine Lisp program muss der teilebaum mit werkstoff attributen schrieben:(in-package :my-special-bom-attr);define my own package (use-package li);include the package oli in my new package(defun cvs-print-tree (node name) (declare (ignore name)) (let* (; ---------------------------------VARIABLE DECLARATION---------------------------------------- (objname (BrowserNode-objPname node));assig ...
|
| In das Form Programmierung wechseln |
|
Rund um AutoCAD : Wer kann mir sagen, warum der Lisp-Befehl nicht funktioniert?
..... am 19.02.2013 um 08:18 Uhr (0)
ich war auf der Suche nach einem Macro, mit dem man an einem vorhandenem Layoutnamen ein weiteren Wert anhängen kann.Zum Beispiel: Layoutname plus Revisionsnummer.Das nachfolgende Macro sollte dies tun. Ich hatte keinen Erfolg. Es ließ sich nicht starten.Leider verstehe ich nichts von Macroprogrammierung. Fangen wir mal vorne an:Du hast es gesucht und offensichtlich auch gefunden. Warum gibst Du hier nicht die Quelle an? So mussten wir jetzt ebenfalls suchen. Ich behaupte mal, es ist von hier Das Makro h ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Blöcke skalieren
CADmium am 29.07.2004 um 21:52 Uhr (0)
.. Prima ,wenns mit den Archtools geklappt hat!Und für alle, die Interesse an Open-Source haben, oder sich vielleicht doch mal etwas intensiver mit LISP beschäftigen wollen :(defun INSERT-SCALE (AUSWAHL X Y Z / NAME OBJEKT OBJEKTDATEN BLOCKDEF INDEX) (setq NAME(cdr(assoc 2 (entget (ssname AUSWAHL 0))))) ; und jetzt alle Blockreferenzen auf Blattebene updaten .. (setq INDEX -1) (if(setq AUSWAHL (ssget "_X" ((0 . "INSERT")))) ;(ssget "_X" (list (0 . "INSERT")(cons 2 NAME) ))) funzt nicht bei unbenannt ...
|
| In das Form Rund um Autocad wechseln |
|
Autocad VBA : Suchen/Ersetzen via RegExp
bst am 19.09.2004 um 18:39 Uhr (0)
Abend Axel, die Idee zu dem RegEx-Teil hat Startrek wohl von mir. Ich benutze dieses in Excel. Und dort muß man im VBA nun wirklich nichts anderes tun, als einen Verweis zu setzen. Via Menu Extras-Verweise halt. Eine weitere Deklaration oder sowas ähnliches ist nicht notwendig. Ich habe mir vor einiger Zeit mal die Mühe gemacht, die PCRE ... Nun, mich würde das sehr wohl interessierern. Aber nicht für LISP sondern für Office VBA. Ich habe schon ein paar Mal in verschiedenen Foren danach gefragt, aber bi ...
|
| In das Form Autocad VBA wechseln |
|
Lisp : Invertieren einer Matix
gmk am 15.06.2007 um 15:12 Uhr (0)
Servus!Wie versprochen hier der Lisp-Code.;******Matrizeninversion ohne Pivotierung**********;Quellen;Rothe, Steinbach. BASIC-Programmbausteine.;VEB Verlag Technik Berlin 1989, S.59;http://ww3.cad.de/foren/ubb/Forum145/HTML/002135.shtml;http://ww3.cad.de/foren/ubb/Forum145/HTML/001379.shtml;Beispiel;(minv ((2.067754319 -0.522264875 0.725318064) (-0.522264875 1.932245681 -0.777974436) (0.725318064 -0.777974436 4)));((0.539188 0.115409 -0.0753244) (0.115409 0.586205 0.0930861) (-0.0753244 0.0930861 0.281763) ...
|
| In das Form Lisp wechseln |
|
AutoCAD Mechanical : Ansichtfenster (Viewport) mit Lisp auf anderen Layer legen?
MMauch am 05.08.2021 um 10:56 Uhr (1)
Hallo cadffm,erstmal Danke für die schnelle und fundierte Antwort auch wenn es nicht das ist, was ich mir gewünscht hätte [QUOTE]Original erstellt von cadffm:Das war schon immer so (default), wenn man es nicht geändert hatte.."grundsätzlich auf dem Layer AM_VIEWS erstellt"Weil es so eingestellt ist, zumidnest ist dies die Standardeinstlelung.Auf der einen Seite hast Du recht. Es war wirklich in ACAD 2015 Mechanical schon so. Auf der anderen Seite erzeugt das verwendete Script mit dem Befehl mansfen mit AC ...
|
| In das Form AutoCAD Mechanical wechseln |
|
Rund um Autocad : Access-Daten ins Autocad Importieren
CAD-Huebner am 11.01.2005 um 21:18 Uhr (0)
@Erik Schreibe dir ein kleines AutoCAD Script (Textdatei mit der Endung SCR). Zuerst exportiere deine ACCESS-Daten in eine Textdatei, diese dann mit NOTEPAD, WINWORD oder einem geigneten Texteditor bearbeiten, so das nach einigen Suchen und Ersetzen Durchläufen die Datei so aussieht: Beginnt nach dieser Zeile ----- _-INSERT MESSPUNKT 1234.56,23456.78,123.45 1 1 0 _-INSERT MESSPUNKT 2234.56,23456.78,123.45 1 1 0 _-INSERT MESSPUNKT 3234.56,23456.78,123.45 1 1 0 ----- Endet vor dieser Zeile In AutoCAD ei ...
|
| In das Form Rund um Autocad wechseln |
|
Lisp : 2 Plotfiles mit einem Lisp erstellen
Obi-Wahn am 10.09.2008 um 11:23 Uhr (0)
Also:Ich hab jetzt vorerst mal die Routinen "BLATTRAHMEN" und "DBLPRNT" zum laufen gebracht.Woran es bei "BLATTRAHMEN" lag, kann ich nicht sagen, aber es funktioniert vorerst mal. Selbiges bei "DBLPRNT". Aber ich vermute, da hat es an (progn gelegen, denn ich habs umstrukturiert, und es funktioniert.Was noch hackt sind die "schraffurgeneratoren". Das ist nur ein (glaub ich) kleines Problem, da brauch ich eh keinen eigenen Thread aufmachen, oder?Jedenfalls dürfte das mit dem strcat zusammenhängen.Ich bekomm ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp beenden!
CAD-Huebner am 04.06.2015 um 10:30 Uhr (1)
Ich denke ein Mouse Reaktor ist hier Overkill.Als Kompromiss kann man eine Option zur Beendigung des Befehls einbauen (hier Beenden).Code:(defun Init () (setq Err *error* *error* Fehler Osx (getvar "OSMODE") ))(defun ReInit () (setvar "OSMODE" Osx) (setq *error* Err) (redraw t_2 4) (princ))(defun Fehler (s) (print (strcat "Fehler: " s)) (ReInit))(defun c:LINE_BRUCH (/ t_0 t_1 t_2 Err Osx) (Init) (vl-load-com) (setq t_0 T) (While t_0 (setq t_0 nil) (While (not t_0) ; Diese Zeile auskommentieren, ...
|
| In das Form Lisp wechseln |
