|
Lisp : Simulation beschleunigen / command Befehl ersetzen
THE_ONE am 09.06.2009 um 17:06 Uhr (0)
Hallo!Habe hier eine kleine Simulation mit Lisp geschrieben! Habe später vor etwas größeres (aufwendigeres) zu machen.Code:(defun C:Dreh(/ x) (setq x 30) ;(command "_.pline" "950,500" "1050,500" "1000,500" "1000,550" "1000,450" "") (command "_.rectang" "975,475" "1025,525") (command "_.pline" "950,500" "1050,500" "1050,550" "1000,550" "1000,450" "950,450" "950,550" "1050,550" "1050,450" "1000,450" "") (setq y 0) (while (= y 89) (command "_.rotate" (entlast) "" "1000,500" "1") (setq y (+ y 1)) ( ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp Autonummerierun Erweitern
runkelruebe am 14.06.2009 um 14:04 Uhr (0)
Moin,(40 . 2.5)------------------Gruß,runkelruebe Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...System-Info | Excel -Suche | RuA-Suche | FAQ-ACAD | CAD.de-Hilfe | Sei eine Antilope
|
| In das Form Lisp wechseln |
|
Lisp : Verschachtelte Elemente schieben
Geos am 15.06.2009 um 18:37 Uhr (0)
Hallo ThomasIch hatte gehofft, dass es was "V-Lisp-iges" gibt, das alle Objekte kann (sind auch Blocks in der Xref)- natürlich ohne großen Aufwand.Übrigens, die Transformation brauch ich nicht, beide Files haben das gleiche Koord.System bzw. den gleichen Ursprung.Danke für Deine Mühe.------------------Schöne GrüßeErnst www.geopaint.at[Diese Nachricht wurde von Geos am 15. Jun. 2009 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : Lisp Autonummerierun Erweitern
Jungspunt am 15.06.2009 um 21:58 Uhr (0)
Danke hat geklapt.Hier mein Code:Code:(defun c:nummer (/ nr th ipt ant) (setq nr (getint "
Startnummer:")) (if nr () (setq nr -1) ) (setq th (getreal "
Texthöhe:")) (if th () (setq th 10) ) (while (setq ipt (getpoint (strcat "
Einfügepunkt: " (itoa (setq nr (1+ nr))) ":"))) (entmake(list (0 . "TEXT") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcD ...
|
| In das Form Lisp wechseln |
|
Lisp : Linienauswahl
stk am 16.06.2009 um 13:25 Uhr (0)
Ich hab da mal eine Frage,ist es mit Lisp möglich,in einem Layout alle Linien mit einer bestimmten Gradzahl ( zb. 180 Grad oder 168 Grad )zu makieren um diese Linien dann einen anderen Layer zuzuweisen ? Linienauswahl durch anpicken.Besten dank im vorraus.
|
| In das Form Lisp wechseln |
|
Lisp : Lisp zum Ermitteln von einem Schnittpunkt
THE_ONE am 17.06.2009 um 13:22 Uhr (0)
Frage: Von wo hast du gewusst das es den Befehl ILP gibt und in welcher arx datei dieser ist?Gibt es eine Liste zu all diesen Befehlen.Lg THE_ONE
|
| In das Form Lisp wechseln |
|
Lisp : Lisp zum Ermitteln von einem Schnittpunkt
CADmium am 17.06.2009 um 13:29 Uhr (0)
Früher hat der Befehl CAL die arx automatisch geladen ..... war IMHO alles im Autocad 14 -Buch sehr gut erklärt.. in der ACAD-Hilfe : Befehle - K - KAL .....------------------ - 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 : Attributen Lesen
Nano am 18.06.2009 um 10:12 Uhr (0)
Hallo wahrscheindlich kann Jemad mir helfen.Als Beilage ist eine Datei (Block dwg) die umbennet werden muss auf (.dwg).Hier ein Lisp mit Block wählen und liest den Attribut heraus.Das funktioniert.(DEFUN C:Test1()(SETQ ta605ent (ENTSEL "
Tabelle wählen: "))(IF (AND (SETQ ent (car ta605ent))(= (CDR (assoc 66 (ENTGET ENT))) 1)) (WHILE (AND (SETQ ent (ENTNEXT ent))(/= (CDR (ASSOC 0 (ENTGET ent))) "SEQEND"))(IF (AND (= (CDR (ASSOC 0 (ENTGET ent))) "ATTRIB")(= (strcase (CDR (ASSOC 2 (ENTGET ent)))) "RAUM-NR:") ...
|
| In das Form Lisp wechseln |
|
Lisp : Pfad von Pixelbildern
CADmium am 19.06.2009 um 12:36 Uhr (0)
Warum sollte Autodesk bei der Com-Schnittstelle alles einbauen? Da fehlt so manches (Z.B: auch bei den Linientypen)Ich würde mir da auch so manche Verbesserung wünschen, wird aber wohl Wunsch sein, denn so eine richtige Weiterentwicklung gab es seit 2000 (mit dem Einkauf von Vital-Lisp) nicht mehr------------------ - 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 : Brauche Hilfe Für ein Schriftfeld Flächentool für AutoCAD 2010
Linus23 am 19.06.2009 um 17:27 Uhr (0)
Nein hab ich nicht! Wo muss ich das tun? Hab da leider keine Erfahrung mit sowas.Ich habe im Schriftfeld, nachdem ich die Lisp datei benutzt habe nachgeschaut. Das Schriftfeld war zwar mit "####" dargestellt, aber nur weil das letzte " (im Schriftfelt) nicht auf das Attribut übertragen wurde (wieso weiß ich leider auch nicht). aber die Id hat ansich gepasst. Hab mich auch gewundert.Gefunden habe ich es schon vor einiger Zeit im Internett, weiß aber leider nicht mehr wo genau.Ich hoffe ich habe es verständl ...
|
| In das Form Lisp wechseln |
|
Lisp : Ersthilfe - Höhenkote
CAD-Huebner am 21.06.2009 um 11:21 Uhr (0)
Als kleines Lisp könnte man es so machen: http://ww3.cad.de/foren/ubb/Forum54/HTML/004986.shtml#000008 Der eigentliche Befehl dabei ist das Einfügen des Blockes und das Belegen des vorhandenen Attributes (z.B. Höhe)(command "_-insert" "hkote" (setq p1 (getpoint "
Punkt wählen: ")) "" "" "" (rtos (caddr p1) 2 2))Eleganter weil ohne Lisp und dynamisch ist ein Dynamischer Block mit Attribut.Dieser Beitag beschäftigt sich ebenfalls ausführlich mit den verschiedenen Möglichkeiten (Lisp bzw. Dyn. Block) eine sic ...
|
| In das Form Lisp wechseln |
|
Lisp : Ersthilfe - Höhenkote
erdmännlein am 21.06.2009 um 15:36 Uhr (0)
Geschafft - Siehe Forum Autocad! Dank an alle Lisp - Spezis!
|
| In das Form Lisp wechseln |
|
Lisp : Unterschiede ACAD08 und 09 bei lisp?
joern bosse am 23.06.2009 um 12:49 Uhr (0)
Hei Woppi,wenn es da einen Unterschied gibt, dann kannst Du aber die Version abfragen:Code:(if (=(atof(getvar "ACADVER"))17.1);;;dann 2008 und kleiner (MACHWAS_MIT_2008) (MACHWAS_MIT_2009)) ------------------viele GrüßeJörnhttp://www.bosse-engineering.com
|
| In das Form Lisp wechseln |
