|
Rund um AutoCAD : Werkzeugkastenbefehl aufrufen
joeycool am 19.07.2012 um 11:39 Uhr (0)
Moin,wenn ich Befehlsfolgen, die ich auf einigen Buttons liegen habe, nacheinander abspielen will, könnte ich mir natürlich einen neuen Button bauen, in dem alles hintereinander dranhängt (wird aber sehr unübersichtlich und unstrukturiert).Ich könnte auch alles in eigene Lipssss hineinpacken, und eine von der anderen aufrufen lassen.Geht es aber auch, daß ich in einem Makro, ersatzweise auch in einem Lisp, einen weiteren Werkzeugkastenbefehl direkt aufrufe? Dachte erst, das geht mit execute, aber nach mein ...
|
| In das Form Rund um AutoCAD 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 |
|
OneSpace Modeling : Geändert-Status
Walter Geppert am 03.03.2004 um 14:01 Uhr (0)
Ich wachs hier noch aus! Hab OSD komplett neu gestartet, mach aus T1 einen Quader, den in Baugruppe B1. Dann Makro gestartet und beide Modified-Flags von T1 TRUE. Alles klar soweit. Dann T1 und B1 in WM gespeichert, Disketten sind weg (auch das änd in der erweiterten Strukturliste), aber bei T1 sind noch immer beide Modified-Flags TRUE , sogar nach Reservierung aufheben Die ReadOnly-Flags funktionieren allerdings. Mal sehen was ClausB und Klaus Lörincz dazu sagen. ------------------ meine LISP-Makros ...
|
| In das Form OneSpace Modeling wechseln |
|
Rund um Autocad : Pfadangabe im Zeichnungsrahmen
Castell am 12.09.2003 um 17:56 Uhr (0)
Ola zusammen ! Nach langen forschen bin ich dahinter gekommen. Es ist schon fast peinlich. Es war eine Lisp-Datei mit folgendem Inhalt: (defun cadna () (setq pref (getvar "DWGPREFIX") name (getvar "DWGNAME") ) (if (= (substr pref 1 3) (substr name 1 3)) (setq fname (strcat name ".dwg")) (setq fname (strcat pref name ".dwg")) ):if );cadna Und diese wurde früher automatisch über die acad.lsp geladen. Die hat sich aber bei und geändert und der Aufruf war nicht mehr da. (load "pfadstempel") ...
|
| In das Form Rund um Autocad wechseln |
|
AutoCAD VBA : Kreisbogen mit 3 Punkten
CAD-Huebner am 12.01.2009 um 22:30 Uhr (0)
in Lisp würde das (mit Command) so aussehen:Code:(defun c:3dbogen( / pa pn pe) (command "_ucs" "_world") (setq pa (getpoint "P1 (Startpunkt):")) (setq pn (getpoint "P2 (Punkt auf Bogen):")) (setq pe (getpoint "P3 (Endpunkt):")) (command "_ucs" "_3p" pa pn pe) ; Bogen über 2 Punkte (command "_arc" (trans pa 0 1)(trans pn 0 1)(trans pe 0 1)) (command "_ucs" "_world")) Die commands lassen sich mit Sendcommand in ähnlicher Form einsetzen, für trans kann man die AutoCAD.Application.ActiveDocument.Util ...
|
| In das Form AutoCAD VBA wechseln |
|
BricsCad : Externer Lisp-Editor in Bricscad
Theodor Schoenwald am 11.12.2011 um 11:03 Uhr (0)
Hallo Thomas,ich habe den Editor damals gekauft, danach habe ich eine Version von Amerika bestellt und kostenslos bekommen. Dass hat mich geärgert, nicht nur, dass der Kauf unnötig gewesen wäre, sondern hauptsächlich weil man für etwas, das in Amerika kostenlos ist, bei Autodesk die Germanen abzockt.Wie es rechtlich verhält, ob ich eine Kopie weitertgeben darf, kenne ich mich nicht aus. Man könnte bei Autodesk nachfragen, ob sie den Germanen erlauben, den Editor weiter zu geben. Wenn die Antwort mit "Ja" a ...
|
| In das Form BricsCad wechseln |
|
Rund um Autocad : Voreinstellung für Texthöhe
Bernd P am 03.05.2005 um 15:20 Uhr (0)
Servus Kenn fast jeder verschiedene Massstäbe verschiedene Textgrössen verschiedene Zeichnungseinheiten welche Textgrösse muss ich nehmen. Hab mit für diesen Fall ein Lisp gebastelt. Aufruf (Dialogfeld erscheint zum auswählen) Texthöhe auswählen Zeichnungseinheiten auswählen Massstab auswählen Fertig Wer sich ein bisschen auskennt kann natürlich Zeichnungseinheiten, Texthöhen und Massstäbe hinzufügen bzw. entfernen. nochmals danke an spider_dd ------------------ Warum Einfach es geht auch komplizi ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Reelle Zahl in String
Brischke am 21.07.2003 um 08:05 Uhr (0)
Hallo Waldemar, irgendwelche Regeln müssen die Anwender einhalten. Ein Programm, welches die Gedanken des davor sitzenden lesen kann, ist mir im Moment mal noch nicht bekannt. Wenn du aber unbedingt eine 3-stellige Ganzzahl möchtest, dann multipliziere doch die Eingabe so lange mit 10, bis diese kleiner 1000 aber größer 100 ist. Code: (setq zahl (getreal "
Reelle Zahl eingeben: ")) (while (not ( = 100.0 zahl 1000.0)) (setq zahl (if ( zahl 1000) (/ zahl 10) (* zahl 10))) ) (itoa(fix zahl)) Bei F ...
|
| In das Form Rund um Autocad wechseln |
|
AutoCAD LT : Linien versetzen
stk am 27.07.2011 um 09:23 Uhr (0)
Hallo Ich möchte eine Funktion über Macros lösen.Ich arbeite mit Bricscad V11.Eine Linie soll nach beiden Seiten mit dem selben fest eingestellten Wert ( 5mm ) und dem aktuellem Layer und mit dem aktuellen Linientyp versetzt werden.Aber,die Funktion soll auf nur einem Button liegenund den jeweils aktuellen Layer und Linientyp der voreingestellt ist hernehmen,ausserdem sollte manLinien ohne Ende anklicken können die sich dann versetzen.Mein Ansatz = _offset;5;;Aber wie kann man den aktuellen Layer und Lini ...
|
| In das Form AutoCAD LT wechseln |
|
Inventor : Gewindetabelle 2011
Peter Tropf am 04.06.2010 um 13:41 Uhr (1)
Hallo Kollegen,ich hatte vor einiger Zeit schon mal angeregt, zu diesem Thema beim AutoCAD-Magazin-Verlag (= Inventor-Magazin) anzufragen, weil die seit vielen Jahren ihren Abonnenten regelmäßig LISP-Programme liefern, die DIN-Normteile erzeugen (für AutoCAD in 2D). Herr Maurer nennt diese Makros sicher nicht zufällig "ähnlich DIN xxx" und vermeidet so vermutlich Ärger mit dem Beuth-Verlag.(Der AutoCAD-Magazin-Verlag sitzt wie CAD.de im Großraum München) ------------------Gruß Peter(Fachbuchautor und Trai ...
|
| In das Form Inventor wechseln |
|
OneSpace Modeling : Forum unterteilen? OSDM/Annotation
Walter Geppert am 17.07.2003 um 10:20 Uhr (0)
Ich glaube auch nicht, daß eine weitere Aufsplitterung was bringen würde, meistens geht aus dem Titel ja doch die Problemstellung gut hervor. Im ME10-Forum hat Annotation jedenfalls nix verloren. Wenn auch das erzeugte Dateiformat das selbe ist, sind die User doch ein ganz anderer Personenkreis, und wir wollen doch den armen Teufeln aus der 2D-Welt nicht den Mund wässrig machen . Da wäre eine Aufteilung im Makroforum auf ME10 und LISP noch eher denkbar, aber das ist ja nun auch nicht wirklich überlaufen ...
|
| In das Form OneSpace Modeling wechseln |
|
Lisp : Bestimmtes Attribut beim Blockeinfügen via Lisp per Textstring ausfüllen
cadffm am 24.03.2021 um 19:37 Uhr (1)
Wenn die vielen Beispiele dich noch nicht zum Ziel führten,warum dann nicht einfach die Attribute beim einfügen abfragen lassen und ausfüllen?Du benutzt ja ohnehin schon der nativen EINFÜGE-Befehl,also kannst du einfach ATTDIA aus, aber ATTREQ einschalten und die Attributwerte werden abgeffragt.Einfach zu verstehen, einfach umzusehen und das ganz ohne Programmierung (abgesehen vom Command).Also Attreq und Attdia setzen (fehlt übrigens auch in der aktuellen Fassung),und dann nach der Angabe der Drehung einf ...
|
| In das Form Lisp wechseln |
|
AutoCAD Mechanical : Konfiguration der Vorgabenormen über Script
lutzc am 29.08.2008 um 10:47 Uhr (0)
danke!Blöde Frage, ich hab fast keine Ahnung von LISP,würde das ganze so funktionieren:;;;*-*TXT acad.lsp is loaded once, acaddoc.lsp is loaded for each;;; document, s::startup in any case is called after acaddoc.lsp;;; has been loaded;;;(if (= nil acad_helpdlg);; (progn;; (load "acadr15.lsp");; (load (strcat (getvar "menuname") ".mnl"));; ); (if (= nil genlade) (progn (princ (load "gen/acadm.lsp" "
Error: acadm.lsp not loaded!")) (if acadmappend (setq s::startup (acadmappend s::startup))) ));;;M ...
|
| In das Form AutoCAD Mechanical wechseln |
