|
AutoLisp : Abfrage Pos eines Symbols
Dober Heinz am 02.12.2005 um 06:18 Uhr (0)
Morgen LiplerFrage mit der folgenden Zeile kann ich eine Pos. eines Symbols abfragen, (setq pos (vl-string-position (ascii "/") txt))Wie kann man das ändern das ich mehrere Symbole abfragen kann(setq pos (vl-string-position (ascii "/-_.") txt)) so geht es nicht.danke im voraus.mfg------------------ Heinz
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Kopieren und Drehen
Dober Heinz am 24.11.2005 um 12:55 Uhr (0)
Hallo Ich will ein Objekt kopieren und um 90 Grad Drehen.mit entsel wähle ich das objekt. (command "_.copy" (entsel)"" (cdr(assoc 10 (entget (entlast))))pause "_rotate" (entlast)"" (cdr(assoc 10 (entget (entlast)))) 90.0)aber der Basispunkt der Kopie ist immer der des letzten Objektes,nicht der desen Objekt ich gewählt habe.Woll liegt das der Fehler.Danke ------------------ Heinz
|
| In das Form AutoLisp wechseln |
|
Lisp : Änder der Schraffurfarbe im Block
Dober Heinz am 16.07.2011 um 09:49 Uhr (0)
@ CADmiumEine Frage noch.Wenn ich einen Block wähle den ich vor langer Zeit erstellt habe, dann wird mir die Schraffur nicht geändert. Macht einfach gar nichts, auch keine Fehlermeldung.Wenn ich eine Block wähle wo ich die Schraffur neu erstelle, dann ist alles ok.Die Schraffur ist immer Solid.Woran kann das liegen?Hab da noch ein Lisp gefunden, wo ich die Schraffur ändern kann, weiss aber leider nie, ob ich die Schraff erwische.Danke Code:(defun c:bof (/ oObj strLayer) (setq oObj (vlax-ename-vla-object ( ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp in 2010 und 2011
Dober Heinz am 30.07.2010 um 10:54 Uhr (0)
HalloWas kann das sein wenn ich das Lisp in 2010 ohne Probleme starten kann, und in 2011 leider nicht.Befehl: (LOAD "D:/AutoCad-Magazin/2010-1/molch/att2txt.lsp") C:ATT2TXTBefehl: att2txtnilDiese Meldung kommt.PS. Kann das Lisp leider nicht reinstellen, da es von Autocadmagazin ist, den Verfasser erreiche ich leider nicht.------------------ Heinz
|
| In das Form Lisp wechseln |
|
Lisp : Reaktoren
Dober Heinz am 18.01.2008 um 09:55 Uhr (0)
Hallo TunnelbauerDas hat was mit unserer Struktur der Firma zu tun.Wir Arbeiten sehr viel mit Fremdplänen.Mal brauch ich meinen Symbole auf Aktuellen Layer, mal mit Vordefinierten Layer und einmal mit Hilfsmaßstab.Das sind dann 3 Werkzeugpalletten mit den gleichen Symbolen aber, verschieden Einstellungen. Und die Werkzeugpalltten sind dann nochmal Unterteilt in SST, Bel, SWS usw., also sehr viel zum Pflegen wen mal ein Symbol dazukommt.Wollte das mit den Reaktoren vereinfachen.Aber ich kann so auch Leben d ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Text beim kopieren sichbar
Dober Heinz am 11.11.2005 um 07:51 Uhr (0)
@ Helmut Fso sieht mein Code aus (defun textzahler (een) (setq copytext (entget een)) (setq txt (cdr (assoc 1 copytext))) (setq text-zer (str-list txt)) (setq text-dr (reverse text-zer)) (setq text-um1 (car text-dr)) (setq text-u (atoi text-um1)) (setq text-u (1+ text-u)) (setq text-neu (itoa text-u)) (setq neu (cons text-neu (cdr text-dr))) (setq btext (reverse neu)) (setq fertig (apply strcat btext)) (setq neuedxf (subst (cons 1 fertig) (assoc 1 copytext) copytext)) (entmod neuedxf) )(defun str-list (st ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Text aendern
giovanni64 am 23.08.2011 um 08:13 Uhr (0)
Zitat:Original erstellt von Dober Heinz:Hallo giovanni64Ich verweise mal auf diese Seite http://www.cadtutor.net/forum/showthread.php?61827-Text-hight-only -change&s=c217176a7a33b85cd6e53d5715e5ed75 Und verwende das Lisp von Lee das funktioniert.Hallo Heinz,vielen Dank und das ist gut gemeint und ich weiss davon. Dennoch moechte ich anmerken, dass ich nun immer noch nicht weiss,wo mein Fehler in meinem Programm liegt, denn dadurch kann ich auch hinzu lernen.Also bitte nichts fuer ungut!Gruss,Giovanni
|
| In das Form Lisp wechseln |
|
Lisp : Bemassung ausfiltern
Dober Heinz am 07.02.2009 um 08:42 Uhr (0)
@ TomIst meine letzte AntwortHast wohl Recht.@Tunnelbauer"Und ich sehe hier niemanden Werbung machen... Oder siehst du hier irgendwo: Kaufe Produkt "X" bei Herrn "Y" - ich nicht... Wenn du es siehst tut es mir leid..."zum umdefinieren ohne Blockauflösen ist sowas vielleicht was .... aber an deiner Stelle würde ich trotzdem über eine andere Arbeitsweise nachdenken ...Ist es halt eine versteckte Werbung.Mehr schreibe ich nicht mehr dazu.schönen Tag noch------------------ Heinz
|
| In das Form Lisp wechseln |
|
Lisp : Reaktor wieder laden
Dober Heinz am 25.03.2008 um 13:00 Uhr (0)
Hallo ThomasMit denem Beispiel ist er geladen, aber der Reaktor funktioniert nicht mehr.Wenn ich die Zeichnung öffne, und den Reaktor laden funktioniert er.Wen ich Reaktor mit (vlr-remove-all) lösche, und ich ihn dann wieder laden will, (in der gleichen Zeichnung) ist er geladen aber er funktioniert nicht mehr.Das ist mein Problem.------------------ Heinz
|
| In das Form Lisp wechseln |
|
AutoLisp : Zahl Hochzählen
Brischke am 17.02.2003 um 13:44 Uhr (0)
Hallo Heinz, Anmerkungen sind im Text ... Zitat: Original erstellt von Dober Heinz: Hallo Lispler Kann mir das Programm jemand so ändern das ich textstil und höhe selber vorher festlegen kann, ohne das ich den stil Standard änder muss, und Layer auf den Aktuellen. danke heinz (defun c:number (/ nr ipt ant th tlay prefix ) (setq prefix (getstring "
Textprefix: ") nr (if (setq ant(getint "
Startnummer 0 ")) (1- ant) 0 ) ) ;;neu (setq th (getreal "
Texthöhe:") tlay (getstring "
Ziellayer:") ;; (while ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Nummern forlaufend
Dober Heinz am 20.04.2005 um 12:44 Uhr (0)
Hallo Lispler Habe eine Bitte kann mir jemand das Lisp so ändern, das ich dem Text am Fadenkreuz schon seh, damit ich ihn besser Platzieren kann. Danke Heinz (defun c:num (/ nr ipt ant th prefix) (setq LAY_OLD (getvar CLAYER )) (setq prefix (getstring
Textprefix: ) nr (if (setq ant (getint
Startnummer 0 )) (1- ant) 0 ) ;_ end of if th (getreal
Texthöhe: ) ) (princ
Wählen sie ein Element für die Layerschaltung : ) (setq A ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Reaktor wieder laden
Dober Heinz am 25.03.2008 um 12:46 Uhr (0)
Hallo Thomasvor dem Laden Command: (vlr-reactors)nilnach dem Laden Command: (vlr-reactors)((:VLR-Command-Reactor #VLR-Command-Reactor #VLR-Command-Reactor ))und was macht(if (=(load "splinecurve.LSP" "FEHLER")"FEHLER") (prompt "Fehler beim Laden von bem_reaktor") (prompt "bem_reaktor erfolgreich geladen"))Command: VLIDE Fehler beim Laden von bem_reaktorCommand:------------------ Heinz
|
| In das Form Lisp wechseln |
|
Lisp : Bemassung ausfiltern
archtools am 06.02.2009 um 19:52 Uhr (0)
Zitat:Original erstellt von Dober Heinz:Bitte keine Antworten, ich weiss eh was kommt.Ist nur mal was als Denkanstoss für was das Forum da ist, sicher nicht als Werbeträger für manche selbständige Programmierer.Hallo Heinz, ich antworte trotzdem mal.Wenn Du ein freies Forum suchst, dann bleibt Dir nur das Usenet (z.B. comp.cad.autocad).Dieses Forum aber gehört Privatleuten, die es als gewerbliches Unternehmen betreiben, und die wollen damit Geld verdienen. Und das geht nur mit Werbung. Du bist da vielleic ...
|
| In das Form Lisp wechseln |
