|
AutoLisp : Highlight zurücknehmen
CADwiesel am 13.02.2003 um 11:55 Uhr (0)
Was hältst du davon??? (setq zumleuchten (ssget)) (setq c 0) (repeat (sslength zumleuchten) (redraw (ssname zumleuchten c) 3) (setq c (1+ c)) ) (while (setq as (car (entsel))) (setq c 0) (repeat (sslength zumleuchten) (if(eq as (ssname zumleuchten c)) (progn (redraw as 4) (setq zumleuchten (ssdel as zumleuchten)) ) ) (setq c (1+ c)) ) ) ------------------ Gruß CADwiesel [Diese Nachricht wurde von CADwiesel am 13. Februar 2003 editiert.]
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Zahl Hochzählen
CADwiesel am 17.02.2003 um 14:19 Uhr (0)
Hat ne Klammer gefehlt. Ausserdem würde ich auf alle Fälle die Layernamensgeschichte Wasserdicht machen. Du musst sichergehen, dass der Layer auch existiert. (defun c:num (/ nr ipt ant th tlay prefix) (setq prefix (getstring "
Textprefix: ") nr (if (setq ant (getint "
Startnummer 0 ")) (1- ant) 0 ) ;_ end of if th (getreal "
Texthöhe:") tlay (getstring "
Ziellayer:") ) ;_ end of setq (while (setq ipt ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : lisp-editor
CADwiesel am 26.11.2002 um 17:31 Uhr (0)
Ja ist in acad ab 2000 integriert (_vlide) für R14 schick mir ne Mail ------------------ Gruß CADwiesel
|
| In das Form AutoLisp wechseln |
|
AutoLisp : lisp-editor
CADwiesel am 22.01.2003 um 21:12 Uhr (0)
Ich hab dir mal was rausgesucht: Punkte 3, 4 und 6 http://xarch.tu-graz.ac.at/autocad/news/faq/autolisp.html.de#2_2 hier: http://rzhome.rrze.uni-erlangen.de/~gsrs01/schulen/codegenie/codegenie.htm hier: http://www.caelink.com/lisplink.htm Vielleicht ist ja was für dich dabei ------------------ Gruß CADwiesel
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Gleiche Punkte oder doch nicht!?
CADwiesel am 13.02.2003 um 11:32 Uhr (0)
Hai Ich hab ne Frage zu einer Gleicheitsprüfung. Diese Liste LI = ((-41.1235 -34.1954) (-41.1235 -34.1954) (-41.1235 -34.1954)) Alle Prüfungen mit =, eq, equal geben mir aber nil zurück: (= (car LI) (cadr LI)) (eq (car LI) (cadr LI)) (equal (car LI) (cadr LI)) wiso????? wie kann ich als Ergebniss T bekommen???? HÜLFE ------------------ Gruß CADwiesel
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Gleiche Punkte oder doch nicht!?
CADwiesel am 13.02.2003 um 13:34 Uhr (0)
Îch hab s jetzt schon so versucht: (equal (list (nth 0(car LI))(nth 1(car LI)))(list (nth 0(cadr LI))(nth 1(cadr LI))) ) aber das Ergebniss ist immernoch nil! Ich werde jetzt noch mal einen Versuch machen die Geschichte pro Zahlenwert zu überprüfen. Aber das kann s doch nicht sein!!! ------------------ Gruß CADwiesel
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Gleiche Punkte oder doch nicht!?
CADwiesel am 13.02.2003 um 16:35 Uhr (0)
Gibt s eine VL- vergleich die eine Liste mit der anderen- Funktion, Die genauer oder Zuverlässige als equal ist? Die Punkte sind deffinitiv deckungsgleich auch in der 120 Stelle nach m Komma. ------------------ Gruß CADwiesel
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Gleiche Punkte oder doch nicht!?
CADwiesel am 17.02.2003 um 08:41 Uhr (0)
Ich kann deffinitiv sagen, dass die Punkte deckungsgleich sind. Was ich auch nicht verstehe ist, dass die Punkte, die als Werte in der Liste stehen ja doch eigentlich bezugslose Zahlenkolonnen sind und somit doch auch nur den dargestellten Wert haben. Ich habe mir jetzt tatsächlich so beholfen, wie Holger beschrieben hat (rtos/atof) und so klappt s. Eigentlich blöd. ------------------ Gruß CADwiesel
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Text in datei schreiben
CADwiesel am 13.03.2003 um 09:34 Uhr (0)
Bin unwissend, wer kann mir bitte helfen???? Dieser Text soll aus Lisp in eine txt-Datei geschrieben werden: (strcat "(if (zerop (getvar "DBMOD"))(command "._OPEN"" item ")(command "._OPEN" "_Y"" item "))" ) Wobei allein item eine Variable ist. Ist da draußen jemand mit nem Sack voll hilfe??? ------------------ Gruß CADwiesel
|
| In das Form AutoLisp wechseln |
|
AutoLisp : element drehen
CADwiesel am 12.03.2003 um 13:30 Uhr (0)
Der code ist ok. Vielleicht ist der Layer gesperrt? Versuch mal _align ------------------ Gruß CADwiesel
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Formatgröße übergeben
CADwiesel am 01.04.2003 um 09:35 Uhr (0)
ach, und wenn Du die Lösung raushast, dann melde dich doch bitte mal, weil ich an einem ähnlich gelagerten Problem arbeite ------------------ Gruß CADwiesel
|
| In das Form AutoLisp wechseln |
|
AutoLisp : dcl in vlx aufrufen
CADwiesel am 14.04.2003 um 16:06 Uhr (0)
Hai entweder bin ich zu blöd, oder es gibt da einen Trick. Wie wird eine Dcl, die in einer *.vlx enthalten ist, aufgerufen? irgendwie bekomme ich immer den Rückgabewert -1 (exit) wenn ich die Dialogbox mit (load_dialog name.dcl) laden will. ------------------ Gruß CADwiesel
|
| In das Form AutoLisp wechseln |
|
AutoLisp : DXF Export
CADwiesel am 25.04.2003 um 12:57 Uhr (0)
Also, das dürfte eigentlich noch nie richtig funktioniert haben. Ich werd mal sehen, wie s sein müsste. Versuch s mal (defun C:XF_NETZ (/ block laenge bloz datei) (setq datei (substr (getvar "dwgname") " ") bloz (strcat datei "Z") blozs (strcat datei "ZS") block (cond ((tblsearch "block" blozs) blozs) ((tblsearch "block" bloz) bloz) ) ;_ end of cond ) ;_ end of setq (if block (progn (command "_-ins ...
|
| In das Form AutoLisp wechseln |
