|
Lisp : Text einfügen
Burschii am 07.01.2007 um 17:57 Uhr (0)
Tja, so fit bin ich in ACAD schon.Sollte schon über Lisp laufen um die Arbeitsgänge für Eigenschaften zu sparen!!
|
| In das Form Lisp wechseln |
|
Lisp : Lisp-Fehler bei Umstellung von 2004 auf 2006
Burschii am 08.01.2007 um 09:54 Uhr (0)
Hallo,habe ein LSP-Tool das nach der Umstellung auf ACAD2006 nicht mehr läuft. Es wird ein Wert mal einem Faktor genommen und diesen dann mit Offset zu versetzen. Läuft aber nicht mehr :-(Könnte mir da jemand weiter helfen, wäre echt dankbar.(defun c:ekvKolmo ( / pom_ekvKolmo ekvvzdlenost)(init)(if (= #_BRZ nil) (setq #_BRZ (getreal "
BRZ: ")))(setq #_Ff (sqrt (+ (expt (/ #_BRZ 2000) 2) 1)))(terpri)(princ "Brz: ")(princ #_BRZ)(princ " Ff: ")(princ #_Ff)(princ " Systemabstand eingeben ")(princ #_ekvKolmo ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp-Fehler bei Umstellung von 2004 auf 2006
Burschii am 08.01.2007 um 10:45 Uhr (0)
(defun init ( )old_error *error* ; save current error function(chyba) ; osetreni chyb (setvar "cmdecho" 0) ; nezobrazuje vypis;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Inicializace promenych(setq textmodsiz (getvar "textsize")) ; ulozeni velikosti textu (text, dtext)(setq uchopmod (getvar "osmode")) ; ulozeni hodnoty syst. promene (uchop)(setq nast_hladiny (getvar "clayer")) ; ulozeni aktualni hladiny(setq nast_barvy (getvar "cecolor")) ; ul. akt. barvy(setq nast_cary (getvar "celtype")) ; ul. akt. typu cary ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp-Fehler bei Umstellung von 2004 auf 2006
Burschii am 08.01.2007 um 11:20 Uhr (0)
(defun cistiskup ( / ) (setq skupiny (dictsearch (namedobjdict) "ACAD_GROUP")) (setq pocitadlo 0) (while (setq skupina (nth pocitadlo skupiny)) (if (= (car skupina) 350) (progn (setq prvkyskup (entget (cdr skupina))) (setq pocitadloa 0) (setq jetam nil) (while (and (setq prvky (nth pocitadloa prvkyskup)) (not jetam)) (if (= (car prvky) 340)(setq jetam 1)) (setq pocitadloa (+ pocitadloa 1)) );while (if (not jetam) (dictremove (cdar (dictsearch (namedobjdict) "ACAD_GROUP")) ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp-Fehler bei Umstellung von 2004 auf 2006
Burschii am 08.01.2007 um 11:51 Uhr (0)
Habe die OUT-Funktion heraus genommen und schon läuft es wieder.Danke!!!Gruß, Burschii
|
| In das Form Lisp wechseln |
|
Lisp : VLR-Command-Reactor unter AutoCad 2009
Burschii am 14.10.2008 um 07:53 Uhr (0)
Hallo zusammen,habe vor mal die Lisp aus dem Forum heraus auf meine Bedürfnisse abgewandelt. Lief auch unter 2006 einwandfrei, nur unter 2009 bekomme ich die Fehlermeldung "no funktion definition: VLR-Command-Reaktor"Die Lisp soll bei für Schraffur bzw. Bemaßung zum entsprechenden Layer und dann wieder zum vorherigen zurück wechseln.Vielleicht könnt Ihr mir da weiter helfen, wäre echt dankbar!!!Gruß, Burschii(defun pre_lay (reatyp befname / ) (cond ((or(wcmatch (car befname) "DIM*")(wcmatch (car befname) ...
|
| In das Form Lisp wechseln |
