|
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 : Zahl Hochzählen
Brischke am 17.02.2003 um 14:29 Uhr (0)
...Klammer gefehlt... Das kommt davon, wenn man das direkt in die Antwort schreibt, und keinen Editor nutzt. CADwiesel hat natürlich recht, was den Layer angeht. Da kann man dann noch ein Listenfenster mit der Auflistung aller Layer aufgehen lassen. Da wählt man den Layer aus, dann ist s eindeutig. Ich schau mal, dass ich das heute Abend mit hinbekomme. Bis dahin ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Wieder 2 neue Tool s im FreeDownload Wissen wie es gemacht ...
|
| 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
gmk am 28.11.2002 um 08:43 Uhr (0)
Hi Cadwiesel! Genau so was hab ich gesucht! Ciao Georg
|
| In das Form AutoLisp wechseln |
|
AutoLisp : lisp-editor
MC am 22.01.2003 um 10:14 Uhr (0)
Hallo CADwiesel, ich bin auch auf der Suche nach so einem Editor, benutze allerdings nicht Autocad sondern SolidDesigner. Zur Zeit verwende ich zum Editieren Ultraedit32 mit einem Lisp-Plugin, aber Klammern kann man damit soweit ich das durchschaut habe nicht überprüfen und einen Debug-modus gibt s auch nicht. Gibt es denn noch andere brauchbare (freeware-)Editoren für Windows? Den von GNU habe ich mal versucht runterzuladen, aber das klappte irgendwie garnicht. Vielen Dank im Voraus, Michael
|
| 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 : lisp-editor
MC am 23.01.2003 um 10:06 Uhr (0)
Hallo CADwiesel, vielen Dank für Deine Mühe! Werde gleich mal alle ausprobieren. Michael
|
| 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!?
cad-lisp am 13.02.2003 um 13:00 Uhr (0)
Hallo CADwiesel, hab es gerade einmal ausprobiert, bei mir klapp es mit equal. Kann es sein, das mit der Punktliste etwas nicht stimmt? (setq li ((-41.1235 -34.1954) (-41.1235 -34.1954) (-41.1235 -34.1954))) (= (car LI) (cadr LI)) ;= ergibt nil (eq (car LI) (cadr LI)) ;= ergibt nil (equal (car LI) (cadr LI)) ;= ergibt T Gruß cad-lisp
|
| 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!?
Brischke am 13.02.2003 um 16:16 Uhr (0)
Hi CADwiesel, das ist ein Problem der 16 internen Stellen. Irgendwo scheint da eine noch so kleine Abweichung zu sein. Entweder bei equal eine Abweichung zulassen oder (was zwar funktioniert aber mit Vorsicht zu handhaben ist) mit (rtos..) einen String und mit (atof...) wieder eine Zahl draus machen. Bin darüber auch schon oft gestolpert, gerade wenn man z.B. errechnete Schnittpunkte von Linien mit z.B Einfügepunkten von Blöcken vergleicht. Da nützt es nichts, dass man genau weiß dass man den Block auf dem ...
|
| 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 |
