|
Lisp : Warum funkt dieses lisp nicht in Briscad?
CADwiesel am 05.09.2011 um 15:31 Uhr (0)
Ersetz mal die ZeileCode:(command "Schraff" Stil Skal "0" As "")durch diese:Code:(command "Schraff" "e" Stil Skal "0" "w" As "" "")Dann gehts auch in Brics 11------------------Gruß CADwieselBesucht uns im CHAT
|
| In das Form Lisp wechseln |
|
Lisp : Bemaßung in Richtung x
MARTINLE am 07.09.2011 um 10:49 Uhr (0)
Hallo!Hab das Lisp bei mir wieder gefunden: Es ist von Thomas aus dem Jahr 2007.Habe mir auch einen Button mit ^C^Cdimx;;@800;belegt.Funktioniert soweit gut.Nur wenn ich das gleich Maß erneut anklicke sollte es wiederum um 80 Einheiten verschoben werden. Dies tut es leider nicht.Kann mir da vieleicht jemand helfen?Danke!lg. Martin(defun c IMX( / AWS) (if(and(Setq AWS(ssget ((0 . "DIMENSION")))) (setq P(getpoint "
X-Koordinate: ")) ) (progn (setq INDEX -1) (repeat(sslength AWS) (setq OBJ ...
|
| In das Form Lisp wechseln |
|
Lisp : Wie kann ich in Lisp ein Dialogfenster verhindern?
MARTINLE am 08.09.2011 um 15:53 Uhr (0)
Hallo cadffm!...aus meiner persönlichen..... fehlerhaften.. Hilfe!Hmmmmmmmmmmmmmmm lg. Martin
|
| In das Form Lisp wechseln |
|
Lisp : Wie kann ich in Lisp ein Dialogfenster verhindern?
CADmium am 08.09.2011 um 15:30 Uhr (0)
amlgmove ist als Dialog-Routine programmiert .. dafür gibt es keine Kommandozeilenversion. Wenn du es ohne Dialog haben willst, mußt du die Funktionalität nachprogrammieren.------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : Wie kann ich in Lisp ein Dialogfenster verhindern?
jofae am 08.09.2011 um 14:54 Uhr (0)
Hallo,Ich möchte über ein Lisp verschiedene Blöcke auf einen anderen Layer legen.Das funktioniert mit AMLGMOVE auch wie gewünscht:AutoCAD Mechanical 2008; 1 Block heisst Blockname_1; Alles auf AM_* Layer(defun C:Tblock(/ A) (if(and(setq A (ssget "_x" ((0 . "INSERT")(2 . "Blockname_1")))) ((sslength A)0) ) (progn (sssetfirst nil nil) (command "AMLGMOVE" A "" "test") ) ) )Das Problem ist nur dass das Lisp immer wieder durch ein Dialogfenster unterbrochen wird:Blockreferenz Blockname_1 in der Aus ...
|
| In das Form Lisp wechseln |
|
Lisp : Wie kann ich in Lisp ein Dialogfenster verhindern?
cadffm am 08.09.2011 um 15:48 Uhr (0)
wo diese schönen Zeilen her sind.. aber sicher nichtum ein Dialogfeld zu bedienen,denn wenn ein Dialogfeld offen ist hat man keinen Zugriff auf die Befehlszeile..------------------CAD.de System-Angaben - CAD on demand - User:FAQ(Acad)
|
| In das Form Lisp wechseln |
|
Lisp : Wie kann ich in Lisp ein Dialogfenster verhindern?
MARTINLE am 08.09.2011 um 15:51 Uhr (0)
Hallo Thomas!Wieder was gelernt!lg Martin
|
| In das Form Lisp wechseln |
|
Lisp : Wie kann ich in Lisp ein Dialogfenster verhindern?
jofae am 08.09.2011 um 17:27 Uhr (0)
Zitat:Original erstellt von CADmium:amlgmove ist als Dialog-Routine programmiert .. dafür gibt es keine Kommandozeilenversion. Wenn du es ohne Dialog haben willst, mußt du die Funktionalität nachprogrammieren.Schade!Dann bringt mich vermutlich auch das VBA nicht weiter.Es würde mich schon interessieren wie ich die Funktionalität nachprogrammieren könnte. Leider habe ich keinen blassen Schimmer wie ich die Funktionen zusammenkriege.Gruss Josef
|
| In das Form Lisp wechseln |
|
Lisp : Block verschieben in Unterfunktion
archtools am 11.09.2011 um 18:00 Uhr (0)
Zitat:Original erstellt von pebre:Block hereinholen und verschieben funtioniert als standalone-Funktioneinwandfrei, im Gesamtprogramm aber nicht, weil die Funktion abgearbeitetwird bevor ich den Block verschoben habe.Das ist ja auch logisch. Deine "Standalone" Funktionen läßt das AutoCAD ja auch mit dem noch immer weiter laufenden und auf Input wartenden Verschieben-Befehl zurück. Du musst innerhalb eines richtigen Lisp-Programms Deine offenen Befehle aber ordentlich abschließen.Es gibt dazu eine Systemva ...
|
| In das Form Lisp wechseln |
|
Lisp : Positionsnummern
Dorfy am 14.09.2011 um 09:59 Uhr (0)
Zitat:Original erstellt von besele:Hallo habe hier eine LISP Datei gefunden,die aber nicht richtig funktioniert.werden immer nur Nullen geschrieben??nullen? bei mir geht esPos. oder 1. als Prefix --hinter der promt-Zeile(Setq pre (Getstring "
Prefix: ")) rein...und die command-Zeile mit (Command "Text" "z" P1 "" I (strcat pre F)) austauschen...------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."
|
| In das Form Lisp wechseln |
|
Lisp : Positionsnummern
besele am 13.09.2011 um 19:26 Uhr (0)
Hallo habe hier eine LISP Datei gefunden,die aber nicht richtig funktioniert.werden immer nur Nullen geschrieben??(Defun C:ZAHLEN () (START) (prompt "Die aktuelle Texthöhe wird übernommen...") (Setq A (Getint "
Startnummer: ")) (Setq E 1) (Setq I 0) (Initget 1 "A") (Setq P1T (Setq P1 (Getpoint"
Einfuegepunkt oder Abbruch"))) (While(/= P1T "A") (Setq F (Itoa A)) (Command "Text" "z" P1 "" I F) (Setq A (+ A E)) (Initget 1 "A") (Setq P1T (Setq P1 (Getpoint "
Einfuegepunkt oder A für Abbruch"))) ) ...
|
| In das Form Lisp wechseln |
|
Lisp : Positionsnummern
CAD-Huebner am 13.09.2011 um 20:06 Uhr (0)
Hier ist mal einige Lisp mit dem Stichwort "balloon = Positionsnummer), welche auch noch z.T. eine Elippsen zeichnen (ungetestet) http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/Simple-Balloon-Lisp-and-Ellipse/td-p/1234542 oder http://forums.augi.com/showthread.php?t=129254 ------------------Mit freundlichem GrußUdo Hübnerwww.CAD-Huebner.de
|
| In das Form Lisp wechseln |
|
Lisp : ExcelTabellenblatt kopieren
joern bosse am 15.09.2011 um 10:53 Uhr (0)
Hallo,ich möchte innerhalb einer Exceltabelle ein Tabellenblatt kopieren, nachdem ich das ExcelWorkbook, die Sheets und letztendlich das betreffende Sheet einer Variablen zugewiesen haben hat folgendes nicht so ganz funktioniert:(vlax-invoke-method sheet Copy)Als Ergebnis habe ich eine neue Exceldatei mit dem kopierten Tabellenblatt.Aus der VBA-Hilfe habe ich folgendes zu der Copy-Methode:WorkSheets(1).Copy After:=Worksheets(Worksheets.Count)Da wird dann das Tabellenblatt(1) nach dem letzten Tabellenblatt ...
|
| In das Form Lisp wechseln |
