|
Lisp : Anonyme Blöcke per Lisp umbenennen
cadplayer am 17.11.2009 um 15:57 Uhr (0)
ja danke für die Antworten, ich habe nicht vor an den Namen von *U oder *D blöcken rumzuschrauben.Problem 1)bei der beigefügten Zeichnung habe ich den Block A1-1 über den Blockeditor in A1-2 kopiert und dabei den *U-namen erhalten. Mir völlig unerklärlig warum. Jedenfalls stört mich das, weil das blockcounter.lsp von cadwiesel da *U-block ausliestProblem 2)wie lassen sich die "visibility-parameter" übertragen auf eines anderes Blocksymbol ?das Prinzip ist einfachvis1: blocksymbol + text "BEF"vis2: blocksym ...
|
| In das Form Lisp wechseln |
 |
Rund um AutoCAD : Xref Pfad per Lisp Ändern
cadplayer am 24.11.2016 um 12:43 Uhr (15)
Stimmt genau Roman! Nebenbei ich hatte das Problem auch schon mal, nun kam es bei einem Kollegen.Bei etransmit wird wiegesagt ein dwg-packet geschnürt mit allen xrefs der exportDatei.Das Problem ist, wenn xref Dateinamen Umlaute haben, werden die umkonfiguriert ("komische zeichen"). Ich vermute die Textkodierung oder -formatierung wird ins amerikanische ANSI umgefuddelt und nicht in westeuropäischer iso-8859-1. Gibt es vielleicht dazu eine Variable, die das beeinflusst ?Sorry, dass ich hier ein wenig vom T ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Blockattribute drehen
cadplayer am 01.08.2011 um 13:35 Uhr (0)
Durch ein wenig rumstöbern bin ich dieses Lisp gestossen, womit ich Blöcke drehen kann. Allerdings würde ich es mir wünschen, dass auch die Blockattribute mitgedreht werden. Funktioniert das nur mit Hilfe von ssget und Bestimmung eines Auswahlsatzes oder kann ich in die Variable ele noch mit den Attribut füllen?(DEFUN c:rb ( /elewi) (SETQ ele (ENTGET (CAR (ENTSEL "Block wählen: ")))) (COMMAND "_ucs" "_object" (CDR(ASSOC -1 ele))) (SETQ wi (+ (CDR(ASSOC 50 ele)) (GETANGLE (TRANS (CDR (ASSOC 10 ele)) 0 1))) ...
|
| In das Form Lisp wechseln |
|
Lisp : Schnittpunkt ermitteln
cadplayer am 03.05.2012 um 15:18 Uhr (0)
@wolfgang: Nein hab ich nicht, mir löscht es bei der Funktion die Polylinien, die ich auswähle@Thomas: Klar wusste nicht mehr, das _break auch 2 Punkte zulässtBei der Funktion sollte es eigentlich das Segment rauslöschen. Ich hab nur ein Problem wie bekomme ich ein vla-objekt wieder in ein normales Lisp-objektCode:(defun C:www (/ ) (while (mapcar set (en pt) (entsel "Breakobjekt wählen! ")) (if en (progn ((= "*POLYLINE" (cdr (assoc 0 (entget obj)))) (setq vtx (vl-remove-if-not (lambda (x) (= ...
|
| In das Form Lisp wechseln |
|
Lisp : Protect your Lisp
cadplayer am 07.07.2013 um 20:20 Uhr (0)
Ganz so einfach ist es nicht zu kopieren, da einmal der Computername und der Registryeintrag übereinstimmen muss. Optimaler wäre es natürlich, wenn der code selbst einen Schlüssel erzeugt, der das Programm freischaltet.Ich stelle mir das folgendermassen vor. Man schreibt in die LicensFunktion eine Formel, die den Schlüssel einliest und wenn die Auwertung korrekt ist, dann läuft das Programm, dann geht´s auch nicht mehr frei zu kopieren (und wie gesagt, der Registryeintrag behindert ebenfalls eigennütziges ...
|
| In das Form Lisp wechseln |
|
Lisp : AccoreConsole nimmt kein Lisp Befehle
cadplayer am 03.10.2017 um 13:43 Uhr (1)
Hallo nochmal!Du hast völlig recht und ich war in der falschen Annahme, dass setq nicht funktioniert.Mein test in der AccoreConsole lief so ab, dass ich (setq i 0) eingab und dann mittels !i eine Abfrage der variable unternahm.Da kam nix zurück und ich war in der Annahme, das die variable i nicht gespeichert wurde.Es muss aber richtigerweise (princ i) heissen. Dann wird der Wert 0 in der Console zurückgegeben.Also um das Thema hier abzuschliessen, meine eingehende Vermutung war falsch und wurde hiermit wie ...
|
| In das Form Lisp wechseln |
|
Lisp : Protect your Lisp
cadplayer am 09.07.2013 um 14:36 Uhr (0)
Dann bis später einmalfoo funktion läuft so vielleicht genauer...Code:(defun c:foo ( / fname file) (if (= (if (setq fname (strcat "C:TempTestpassword" ".txt")) (if (not (setq file (open fname "r"))) (princ "kein Passwort vorhanden ") (read-line file) ) ) (if (not (vl-registry-read "HKEY_CURRENT_USERTest")) (princ "kein PIN vorhanden") (vl-registry-read "HKEY_CURRENT_USERTest") ) ) (alert " Programm wird ausgeführt ") (alert "keine Berechtigun ...
|
| In das Form Lisp wechseln |
 |
Lisp : INSERT(Block) contra GROUP
cadplayer am 29.05.2015 um 08:59 Uhr (1)
Einige Praxisanwendung:1)Mittels selection eines groupObjekts, kann man durch Wahl des "snapPoints" eine Gruppe [Base point/Copy/Undo/eXit] rotieren, wobei die Gruppe durch drehen auszurichten geht.- könnte man das mit LISP bewerkstellen, wie bekommt man da eine Gruppe selektiert ?2)Katalog erzeugen, welche Elemente eine Gruppe beinhaltet, Abfrage (ssget, entsel, nentsel) ?!3)identische Gruppen selektieren(Similar) ?------------------Gruss DirkBlog | Adolf Spende | Infra-Feed | ÅF AB[Diese Nachricht wurde ...
|
| In das Form Lisp wechseln |
|
Lisp : dynamische Anzeige am Fadenkreuz
cadplayer am 30.03.2012 um 08:02 Uhr (0)
Ja Mailüfterl, ich hatte vielleicht eine völlig andere Vorstellung von C# - interessant finde ich jedoch, dass es hier die Möglichkeit gibt extern auf die Zeichnungsdatenbank einzugreifen und Projektübergreifend verschiedene Applikationen anzusprechen. Das es wesentlich anspruchsvoller gegenüber Auto- und Visual Lisp ist, war mir klar. Ich gehe davon aus, mich längerfristig in die Materie einzuarbeiten und einige Foren gibt es auch, die Beispiele liefern. Was meinst du jedoch mit ADN-Seiten von Autodesk, m ...
|
| In das Form Lisp wechseln |
|
Lisp : schriftfelder via lisp (ac2005)
cadplayer am 26.08.2009 um 08:06 Uhr (0)
Mein Ansatz zum Ausrichten von Text an Linie:1) wie schaffe ich es, dass es den Winkelwert in riwi auf den aws-text überträgt?2) wie kann ich mtext auswählen? (defun c:rt () (SETQ wahl (ENTSEL "select line: ") element (ENTGET (CAR wahl)) anfp (CDR(ASSOC 10 element)) endp (CDR(ASSOC 11 element)) riwi (atof (angtos (ANGLE anfp endp) 2 10)) ) ; (if (setq obj (entsel "select text: ")) (progn (setq objname (car obj)) (command "_change" objname "" "" "" riwi) ; rotate text ) ) )Gruss Dirk
|
| In das Form Lisp wechseln |
|
Lisp : Anonyme Blöcke per Lisp umbenennen
cadplayer am 17.11.2009 um 20:41 Uhr (0)
Ja cadffm, das war durchaus hilfreich für mich, die Sache vielleicht auch mal von der anderen, etwas "kritischeren" Seite zu sehen. Genau das Beispiel zeigt vielleicht, wie anfällig dynamische Blöcke sein können bzw. wie verwertbar sind sie in der Datenbank.Für alle ebenfalls unwissenden habe ich jetzt geschnallt, dass ein dyn. Block, wenn er einmal verändert wird über die dyn. Parameter, zusätzlich die "*U"-info in der Datenbank erhält.Dennoch möchte ich die Sache nicht ganz in den Wind schlagen, also die ...
|
| In das Form Lisp wechseln |
|
Lisp : Texte in Block mit Attribute umwandeln
cadplayer am 30.05.2011 um 15:50 Uhr (0)
Hi!Ich habe ein Tool womit sich Texte in Attribute umwandeln lassen. Meine Frage ist, ob das auch in der Form geht, dass der Text durch ein Attribut in einen Block eingefügt werden kann?Hier das besagte Lisp.(defun c:txt2att ( / el i ss st ) (vl-load-com) (if (setq ss (ssget "_:L" ((0 . "TEXT")))) (repeat (setq i (sslength ss)) (setq el (entget (ssname ss (setq i (1- i)))) st (vl-string-translate " " "_" (cdr (assoc 1 el))) ) (if (entmakex (append ((0 . "ATTDEF")) (vl-remove-if (la ...
|
| In das Form Lisp wechseln |
|
Lisp : Hilfe bei lisp! Block Attrtibute rotation und position!
cadplayer am 15.02.2013 um 20:56 Uhr (0)
Mein Vorhaben ist, sobald ich die Position eines Attrib im Block verschiebe, das kommt häufiger vor, möchte ich die Verschiebung gleich auf andere Attrib übertragen. Da die Koord.unterschiede nicht gleich sind zw. BlockInsertpkt und AttribInsertPkt sobald die Blöcke gedreht sind muss ich eine Transform rechnen lassen bezüglich auf das OCS des Attrib zum BlockInsertPkt. Der GC 210 liefert dazu ein matrix mit der ich nicht umzugehen weiss. Also im Klartext was bedeutet (210 0.0 0.0 1.0). Bin in der Hilfe nic ...
|
| In das Form Lisp wechseln |
