|
Rund um Autocad : unproportional skalieren - mit griffpunkten
Jonapap am 14.10.2006 um 00:00 Uhr (0)
Hallo Arno,meinem Wissen nach gibt es mit Acad-Bordmitteln nur die Möglichkeit Objekte per Blockfaktor ungleichmäßig zu skalieren.Per Lisp-Programm läßt sich das auch mit Mausauswahl realisieren.Hier mal ein Ansatz:Code:(defun C:ModX() (setq ed(entget(car(entsel)))) (setq xf(cdr(assoc 41 ed))) ;X-Faktor auslesen / Y=42 / Z=43 (setq bp(getpoint "
Basispunkt angeben:")) (setq bl(getdist bp "
Bezugslänge angeben")) (setq xfneu(/ (* xf (getdist bp "
Neue Länge angeben:")) bl)) (setq ed (subst (cons 41 xfneu) ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : lsp und Makros
charlieBV am 27.07.2010 um 09:40 Uhr (0)
und jetzt kommen wir in den Bereich glauben und nicht wissen:Ich habe in der Acaddoc.lsp (vl-vbaload "//Server/adt2005konfiguration/Lisp/Blockinfo4.1.dvb")stehen, denke aber, dass das nicht nötig sein sollte, wenn in deiner Palette im Werkzeug^C^C(if (not c:ZeigeBlockInfo) (vl-vbaload "//server/ADT2005Konfiguration/Lisp/Palettenwerkzeuge/Blockinfo4.1.dvb"));-vbarun ZeigeBlockInfo das steht. Wobei Blockinfo4.1.dvb deiner dvb Datei entspricht und ZeigeBlockInfo deinem Befehlsaufruf. Damit müsste das alles ab ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : mehrere Linien gleichzeitig brechen
Eve82 am 22.05.2014 um 18:43 Uhr (5)
Hallo,ich hoffe Ihr seid noch aktiv, da dieser Beitrag ja schon ziemlich alt ist.Die LISP ist fast schon perfekt für ein Problem welches ich derzeit habe.Ich habe Polylinien (Straßenachsen) welche an jedem Schnittpunkt gebrochen werden müssen (Knotenpunkte an Straßen)Es wäre deutlich zu viel Aufwand das ganze Stadtnetz abzuklappern um jede Linie einzelnd am Schnittpunkt zu brechen, oder wie in der LISP verwendet, eine Linie mit zwei Punkten zu ziehen.Gibt es die Möglichkeit mehrere Linien gleichzeit an aut ...
|
| In das Form Rund um AutoCAD wechseln |
DIMARC-RM.zip |
Rund um AutoCAD : Bogen bemassen über 3 Punkte
schachtelmacher am 16.01.2004 um 11:25 Uhr (0)
Also,Mitglied thmschwind hat mir ein Lisp "Bembl" vorgeschlagen,das finde ich gut, da der ausgewählte vorhandene Bogen mit Lände oder mit Länge und Winkel vermasst wird. Hier kann ich aber kein Segment des Bogens oder Kreises angeben.Von Dir cadffm habe ich eine Link (http://ww3.cad.de/foren/ubb/Forum54/HTML/005611.shtml )für eine Suche erhalten, bei dem ich beim Stöbern ein Lisp Dimarc gefunden habe.Das habe ich mir noch etwas geändert, sodass die Bemassung auf den aktuellen Bemassungslayer liegt und den ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Gesamtfläche Regionen
tom.berger am 22.07.2004 um 14:54 Uhr (0)
Zitat: Original erstellt von Cadzia: Warum ist das besser? beide Tools ermitteln exakt das gleiche Ergebnis. Das andere Tool hat zudem den Vorteil, dass man die Summe gleich als Text bekommt. Es ist für den Normalanwender besser, weil der dann keine störenden Rückmeldungen des Befehls _AREA erhältst, der reagiert nämlich nicht auf CMDECHO usw.. Und dann ist das Ganze natürlich auch aus LISP-Sicht besser, weil sowohl der Endbenutzer-Befehl zur Verfügung steht als auch eine LISP-Funktion, die man ü ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Koordinaten ermitteln und/oder Text aus Block löschen
Werner-Maahs.de am 11.07.2012 um 13:59 Uhr (0)
Wenn da wirklich so viele Zeichnungen sind, die zudem noch unterschiedliche Kriterien haben, ist da mit einem vollautomatischem Skript/Lisp wohl kaum etwas zu machen. Halbautomatisch ja aber Durchlaufzeiten liegen je nach Aufwand wohl eher bei 30 Sekunden und mehr.Ein Skript/Lisp will gefüttert werden. Womit denn, wenn dort so viele Unterschiede sind.Ich habe es mit 2500 Zeichnungen mal gemacht. Das Lisp selbst geschrieben und nach und nach verbessert. Das Skript, es waren insgesamt 5 Makros die mit werkze ...
|
| In das Form Rund um AutoCAD wechseln |
 |
Rund um AutoCAD : Text bearbeiten: ab 6ten Buchstaben löschen
marekj am 04.07.2020 um 09:57 Uhr (15)
hallo Proxy, vielen Dank für die schnelle Antwort. Ich bin leider sehr unerfahren im Umgang mit LISP Routinen, kann also eine fertige Lisp laden, aber wie ich mit dem Befehl jetzt verfahre ist mir nicht klar. Außerdem wäre für mich die Frage, ob ich da immer den Text des zu ändernden Textes angeben muss, oder gibt es eine Variante wo man unabhängig vom Inhalt der ersten 6 Zeichen einfach selektieren kann und das Löschen aller Zeichen nach dem 6ten befehlen kann...LAN_07: Landsberg - Niemberg, Kita / Sch -- ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Macro
Brischke am 17.01.2014 um 09:01 Uhr (1)
Hallo,Vorschlag: du versuchst dich ein wenig in den Ansätzen der Programmierung.Öffne die Lisp-Dateien im VL-Editor, setze einen Haltepunkt und lass dass Programm Schritt für Schritt ablaufen (debuggen nennt man das).So wie der Code aufgebaut ist, solltest du an der Zeile, in der das Programm abbricht, erkennen können, was da anders ist als in den AutoCAD-Vorgängerversionen.In den VL-Editor kommst du mit dem AutoCAD-Befehl VLIDEEine gute Anleitung und Erklärung der VLIDE hat Jörn Bosse geschrieben/ geposte ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : drehung objekte
CADchup am 18.06.2004 um 08:45 Uhr (0)
Hi, heiße nicht Balduin, antworte aber trotzdem mal. Auch wenn das als Buttonmakro gehen könnte, es würde sehr lang (vielleicht zu lang?) und unübersichtlich werden. Und da es sich so oder so um Lisp-Code handelt: Code: (defun c:Rot90 (/ ss c ent) (if (setq ss (cadr (ssgetfirst))) (progn (RotSelSet ss 90 ) (sssetfirst nil ss) ) (RotSelSet (ssget) 90 ) ) ) (defun RotSelSet (ss ang / ent c) (repeat (sslength ss) (setq ent (entget (ssname ss (setq c (if c ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Z-Koordinaten über txt-Dateien einfügen?
cad-intensiv am 05.08.2005 um 14:10 Uhr (0)
Zitat:Original erstellt von Bernhard GSD:Hab ich in meiner Lisp-Sammung gefunden.Simple alte Lösung, die ich mir vor Jahren geschnitzt habe.Ein wenig aufgemotzt:Code:(DEFUN c:LIST2POINT (/ fang file) (SETQ fang (GETVAR "OSMODE")) (SETVAR "OSMODE" 0) (SETQ file (OPEN "koord.txt" "r")) (WHILE (SETQ text (READ-LINE file)) (COMMAND "_POINT" (read (strcat "(" text ")"))) ) (CLOSE file) (SETVAR "OSMODE" fang) (PRINC))Robert------------------Lisp-Seminare in Wien am 25. und 26. Sep 2005 und später in München, F ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Excel-Informationen in DWG automatisch einfügen
Andreas Kraus am 27.08.2015 um 11:18 Uhr (1)
Hallo Stefan,ich hätte eine Lösung, ist allerdings LISP und nicht VBA.Vorgehensweise:- Excel Tabelle auslesen (dann hab ich die Daten griffbereit in einer Liste)- Nummer eingeben- Daten werden aus der Liste gesucht- Ein Block mit Attribut (für die Nummer) wird eingezeichnet- Die Nummer wird ins Attribut geschrieben- Farbe wird angepasstDu müßtest dir zwei Blöcke erstellen (ein Kreis mit Attribut und ein Kästchen mit Attribut) die das Programm verwenden kann.Die Blockobjekte mit Farbe vonblock.Mann könnte z ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : schraffur ursprung
Dorfy am 29.01.2010 um 19:17 Uhr (0)
Zitat:Original erstellt von Steff179: ...aber vom "commandaufruf Errorcatchen" habe ich keinen plan..habe jetzt einige zeit gesucht wie ich das anstellen könnte, bin aber auf nichts gestossen was mir weiterhilft...muss ich das mit vla-sendcommand und vl-catch.... machen?oder sehe ich den wald vor lauter bäumen mal wider nicht?Hi,versuch mal(vl-catch-all-apply (lambda (command ".... )))und schau dir die Hilfe dazu an, ausreichend Beispiele findest du im Lisp-Brett.Und den Rest bekommst du sicher auch noch ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Objekte und Texte Drehen
Christian21P am 20.10.2010 um 11:33 Uhr (0)
Mein Lisp ist exakt das selbe wie das von Dig15.Ich habe im ersten Beitrag ein DWG mit Blöcken die die entlang einer Polylinie im Abtand von 15 m ausgerichtet sind (Befehl: messen). Diese sollen um 200 Gon oder 180 Grad gedreht werden mit diesem Lispausdruck. Allerdings ändert sich damit die Lage des Basispunktes(dieser ist bei den Blöcken Zentral definiert). Probiert es mal aus in meiner Zeichnung - ihr werdet sofort erkennen was ich meine. Wenn ich die Drehung händisch ändere passiert dies nicht!Ich habe ...
|
| In das Form Rund um AutoCAD wechseln |
