 |
Lisp : Stiegenlauf programmieren
MONKMUTU am 08.01.2013 um 13:54 Uhr (0)
Hallo,habe folgenden Lisp-Code jedoch benötige ich jetzt eine kleine Erweiterung.- siehe ZeichungWer kann mir helfen?(defun C:st (/ p1 p2 os flag anz x y ap epy epx) (command "_.LINE" pause pause "") (setq p1 (trans (cdr (assoc 10 (entget (entlast)))) 0 1) p2 (trans (cdr (assoc 11 (entget (entlast)))) 0 1) os (getvar "osmode") ) (entdel (entlast)) (setvar "osmode" 0) (setq flag T) (while flag (setq anz (getint "Anzahl der Steigungen eingeben: ")) (if ( anz 0) (setq flag nil) ) ) (setq x (/ (- (car p ...
|
| In das Form Lisp wechseln |
|
Lisp : Subentitäten aus Blöcken auslesen
S.Langhammer am 22.01.2013 um 15:14 Uhr (0)
Grüße!Ich bin blutiger Lisp-Anfänger und muss nun einzelne Subentitäten (Linien, Polylinien, Kreise usw.) aus einem Block auslesen und in eine Datei schreiben.Die Werte für jeweils einzelne Entitäten herauszufinden hat sich als nicht so~ schwierig herausgestellt (zumindest nachdem ich die einzelnen Codeblöcke aus Jeffery P. Sanders Cad2File herausgeschnibbelt hatte).Einen groben Gedankenansatz habe ich schon nur der ist arg dürftig:Variablen:cntr (Zähler)aSubEnt (alte Subentität)nSubEnt (neue Subentität)su ...
|
| In das Form Lisp wechseln |
|
Lisp : alle Mtext -höhen ändern
jupa am 23.01.2013 um 06:13 Uhr (0)
Muß es denn unbedingt eine LISP-Zeile sein? Du kannst doch mit #sauswahl die MTexte (oder Bemaßungen, bin mir nicht ganz sicher was Du willst) auswählen und dann mit #Eigenschaften die Texthöhe ändern. (Ich hoffe ACAD 2005 kennt #sauswahl schon, habe keins mehr da).Jürgen(#... = Befehl: ...)[Diese Nachricht wurde von jupa am 23. Jan. 2013 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : schriftfelder via lisp (ac2005)
CADmium am 26.08.2009 um 11:23 Uhr (0)
Zitat:Original erstellt von Dorfy:(vla-get-angle (vlax-ename-vla-object (car (entsel)))));liefert dir den winkel einer linie (Bögen PL sind komplizierter)deshalb ist vielleicht die Funktion vlax-curve-getFirstDeriv interessanter ..------------------ - 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 : schriftfelder via lisp (ac2005)
snp am 23.01.2013 um 09:42 Uhr (0)
Hallo,tut mir leid das ich so einen alten Beitrag aufrolle.Kann mir jemand sagen wo ich die Schriftgröße und die Ausrichtung ändern kann. Habe mir die LSP was den Text angeht an meine Bedürfnisse angepasst, leider weiß ich nicht wo ich die Größe und Ausrichtung (Mitte zentriert) ändern kann.hier die LSP:(vl-load-com)(defun C:LNKFLD (/ INDEX SELSET) (setq INDEX 0) ;_ Zähler für Repeat initialisieren (princ "
Zu beschriftende Linienobjekte wählen:") (if (setq SELSET (ssget ((0 . "*POLYLINE,LINE,ARC")))) ;_ A ...
|
| In das Form Lisp wechseln |
|
Lisp : schriftfelder via lisp (ac2005)
Brischke am 23.01.2013 um 13:23 Uhr (0)
... du musst das erzeugte MText-Objekt merken und kannst diesem dann mit (vla-put-... ) weitere Eigenschaften setzen.Grüße!Holger------------------Holger BrischkeFREIE SCHULUNGSPLÄTZE -- C#.NET-Schulung im Mai 2013 Bei Interesse bitte melden!CAD on demand GmbHIndividuelle Lösungen von Heute auf Morgen.defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!
|
| In das Form Lisp wechseln |
|
Lisp : schriftfelder via lisp (ac2005)
snp am 23.01.2013 um 14:29 Uhr (0)
Hallo,danke für die Antwort, habe aber keine Ahnung von LSP-programmieren.Ist hier jemand der mir diese LSP um die Funktion Schriftgröße, Ausrichtung erweitern kann, Bitte.Danke, Gruß
|
| In das Form Lisp wechseln |
|
Lisp : schriftfelder via lisp (ac2005)
marc.scherer am 21.12.2004 um 13:15 Uhr (0)
Hi Jan,ja. Ist doch kein Problem. Schreibst einfach den Steuercode als Text rein...------------------Ciao,Marc
|
| In das Form Lisp wechseln |
|
Lisp : schriftfelder via lisp (ac2005)
marc.scherer am 21.12.2004 um 13:52 Uhr (0)
Hi Jan,nein, nein. Ich glaube ich hab Dich schon verstanden.Aber Du mich?Welcher Objekttyp kommt denn raus, wenn Du mit dem Command "_Field" ein Feld erzeugst?Na?------------------Ciao,Marc
|
| In das Form Lisp wechseln |
|
Lisp : schriftfelder via lisp (ac2005)
marc.scherer am 22.12.2004 um 09:13 Uhr (0)
Hi Jan,würde mich freuen auch mal IRGENDEIN Feedback von Dir auf meine Antworten zu bekommen.Leider neigst Du dazu Dir hier Tips abzugreifen und die helfenden KOMPLETT darüber im UNKLAREN zu lassen, ob Dein Problem gelöst wurde.Ich denke Du bist lange genug dabei um zu wissen, das dies kein guter Stil ist.------------------Ciao,Marc
|
| In das Form Lisp wechseln |
|
Lisp : schriftfelder via lisp (ac2005)
tunnelbauer am 25.08.2009 um 10:18 Uhr (0)
http://ww3.cad.de/foren/ubb/Forum145/HTML/002059.shtml ------------------GrüsseThomasKorrekturen zum Kochbuch AutoLISP
|
| In das Form Lisp wechseln |
|
Lisp : schriftfelder via lisp (ac2005)
Dorfy am 25.08.2009 um 10:21 Uhr (0)
Hi,was suchst du denn bzw was willst du denn genau machen?die Länge einer Linie(vla-Get-Length(vlax-ename-vla-object(car (entsel "
Objekt wählen: "))))??als field?mehrfach ausführen -- also viele Linien und somit viele Felder?diese automatisch einfügen?------------------Mfg HeikoElefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..." (www.uni-leipzig.de/~rotheh/elefant.htm)
|
| In das Form Lisp wechseln |
|
Lisp : schriftfelder via lisp (ac2005)
cadplayer am 25.08.2009 um 10:57 Uhr (0)
ich versuch mir quasi in den Beschriftungsmöglichkeiten mit _field etwas zusammenzustricken, womit ich einfach eine Linie wähle und deren Eigenschaften beschrifte. Bsp Länge ausgeben funktioniert. Indem ich .length mit .layer ersetze kann ich auch den Layer assoziativ beschriften.@dorfy: super wäre, wenn das mit mehreren Linien geht. Allerdings müsste es den Text dann automatisch an die Linie setzen lassen (bsp Anfangspunkt). Ist das mit (getpoint "Select Point: ") denn möglich?(defun c:lnkfld () (setq a ...
|
| In das Form Lisp wechseln |
