|
Lisp : Basispunkt Schraffur
alfred neswadba am 24.02.2009 um 09:47 Uhr (0)
Hi Andreas,ich mische mich nicht gern bei Lisp ein, möchte aber nur eine Erfahrung mit AutoCAD zu folgendem abgeben: Zitat:;;; von jedem ermitteltem Punkt einen Strahl zur Mitte Bounding Box erzeugen und Anzahl der Schnittpunkte mit Polylinie ermitteln;;; Strahl wieder löschen;;; wenn Anzahl ungerade, dann ist der Punkt innerhalb (wenn gerade dann außerhalb);;; mit diesem Ergebniss Punktliste erzeugen;;; die Punkte in dieser Liste liegen innerhalb der PolylinieMit der Strahlenmethode hast Du (mit AutoCAD) ...
|
| In das Form Lisp wechseln |
|
Lisp : Elementnamen herausfinden
MagACAD am 09.11.2012 um 10:43 Uhr (0)
Hallo!Ich möchte in einem Lisp das Volumen von verschiedenen Objekten vergleichen.Das Volumen kitzel ich jetzt so aus z.B. einer Kugel:-------------------------------------------------(defun c:vol (/ ms ps r obj obj1 obj2) (command "_erase" "_all" "") (command "_sphere" "0,0,5" 1.0) (setq obj (ssget "_l")) (setq objnamsphere (entlast)) (vl-load-com) (setq vvv (vlax-get-property (vlax-ename-vla-object objnamsphere) volume ) )-----------------------------------------------------Das funktioniert supe ...
|
| In das Form Lisp wechseln |
 |
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 |
|
AutoLisp : Erzeugung von Hoehenkoten nach Definition eines Nullpunktes
Proxy am 04.05.2004 um 20:49 Uhr (0)
Ich habe die Beiträge hier mindestens 3x durchgelesen, habe eigentlich aber immer noch nicht so direkt verstanden was Kleiner_pally will. Vermutung: 1. Eine assiziative Bemassung die den Wert, welche auch immer als Attribut in einem freidefinierbaren Block vorliegen soll. Die Attributsgrösse soll je nach eingestellten Ansichtsfensterskalierungsfaktor sich ändern. Eigentlich wäre es womöglich sinnvoll direkt mehrere Attribute Layerbezogen einzufügen und diese dann je nach Faktor sichtbar bzw. unsichtb ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Informationen aus einer TTF-Schrift auslesen
cadffm am 12.12.2018 um 13:45 Uhr (1)
"Beim Erstellen des Textstils kann ich bei Schriftstil nur Normal auswählen.""In der Zwischenzeit habe ich noch die TTF-Datei mit dem Programm TTFEdit geöffnet. Dabei sehe ich keinen Hinweis auf bold oder fett."" um eine bold-Schrift handelt. Das ist aber nicht der Fall. Unser Lieferant der Schrift hat diese kontrolliert und keinen Fehler gefunden."Die drei Punkte passen super zusammen, das ist gut.Du solltest einfach noch mal "ganz frisch" testen.Rechnerneustart, falls nach Schriftart-Installatioon noch n ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Suche nach: Funktionen zur Listenbearbeitung...
marc.scherer am 15.08.2005 um 14:06 Uhr (0)
So...hier erstmal ein Lisp-File mit den Listen der Methods und Properties von R2000i bis R2006 inklusive der hier angefragten Listenfunktionen... Weil das so lang ist, packe ich das mal als Anhang dran und poste nur den erklärenden Text:Code:;|Listen der ActiveX Properties und Methodsin AutoCAD 2000i bis AutoCAD 2006 als globaleVariablen:2000IPROPS, 2000IMETH2002PROPS, 2002METH2004PROPS, 2004METH2005PROPS, 2005METH2006PROPS, 2006METHDie Listen sind der Online Hilfe entnommen.Bis 2005 war dort vor allem ein ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Selektion MPolygon mit nentselp
cadffm am 25.08.2022 um 11:21 Uhr (1)
Hätte ich mal keine Pause gemacht beim tippen, aber egal - war ja schon getippt:@TomEin MPolygon ist ein MPolygon(AcDbMPolygon) und ist mehr mit einer Schraffur vergleichbar,siehe auch DXF Referenz des HATCH Objektes!Definiert in der acmpolygonobj23.dbx (23 steht hier für Adeskprodukte ..2023) undeigentlich aus der Civil3D/MAP, kann aber so auch in AutoCAD erzeugt werden.Siehe auch DXF Referenz zu Objekt HATCH@NameWasterDu würdest dir selbst einen Gefallen tun bei derartigen Anfrage gleich ein Beispiel be ...
|
| In das Form Lisp wechseln |
|
Lisp : Layerstatus
caddonner am 13.11.2006 um 10:55 Uhr (0)
Hi !Wenn ich folgenden Code ausführe:(defun c:LAYSTLUEFTSP() (if (=(getvar "USERS1") "LAYERSTAND WIEDERHERSTELLEN") (progn (command "-layer" "STATUS" "Wiederherstellen" "LÜFTUNG" "" "" "") (setvar "USERS1" "LAYERSTAND WIEDERHERSTELLEN") ) (progn (command "-layer" "Status" "Löschen" "Lüftung" "" "" "") (command "-layer" "STATUS" "SPEICHERN" "LÜFTUNG" "" "" "") (setvar "USERS1" "LAYERSTAND SPEICHERN") ) ) (graphscr) )wird der Layerstatus "Lüftung" auf meinem Computer so gespeichert:Neu ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Eingabe eines Punktes per Lisp
Arpi am 22.03.2005 um 09:41 Uhr (0)
Guten Tag, erst einmal Danke für deine Beispieldatei. Ich habe da jetzt noch andere Änderungen dran vorgenommen und zwar ermittle ich die vorhandenen Rahmen und Schriftfelder automatisch und weise diese den Variablen BORDER und TITLE zu; das funktioniert auch alles soweit bis auf Zeichnungen, wo mehr als ein (1) Layout vorhanden sind (AutoCAD Mechanikal 2002). Nachfolgend die Programmzusätze; wo könnte der Fehler liegen, dass die Funktion nil bei mehreren Layouts zurückgibt? Code: (defun testblo1 () ;T ...
|
| In das Form AutoLisp wechseln |
|
Lisp : MapCars Lisp-Tutorials
Kelpie am 07.03.2007 um 10:37 Uhr (0)
Hallo CAD.deler, Chatter et aliter,mal wieder ein Beitrag ohne einen tiefen sachlichen Hintergrund, aber ich muss einfach nochmal was loswerden: Noch immer, immer wieder und weiterhin berührt es mich unsagbar, was ich hier mit euch, durch euch und dank euch erlebt habe - und noch erleben werde. Die Art, wie ihr Axel und mich begleitet, gestärkt (...) habt, wie viele von euch sich für das Buch einsetzen, Zeit und Energie, Einfallsreichtum (...) investieren ... ich weiß gar nicht was ich dazu sagen soll. Ich ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Probleme mit Lambda ?
Brischke am 30.03.2003 um 20:24 Uhr (0)
Hallo Andi, so ganz weiß ich nicht, was die Funktion eigentlich machen soll. Das num ist vollkommen unnötig, wird ja auch im Lambda nicht benötigt. Wahrscheinlich hast du aber zum Posten hier einiges rausgelöscht. So, nun zu Deinem Problem. Innerhalb eines Lambda- ausdruck s existiert ein eigener Namensbereich. Diesen kannst du genau wie beim Defun auch deklarieren. (lambda (INPUTvar / LOKALvar)...) Deine Variablen sind lokal deklariert, sollten also bei Beendigung wieder auf nil gesetzt werden. Das X bere ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Polylinien abhängig vom Startpunkt versetzen
cadffm am 28.08.2015 um 14:59 Uhr (1)
Ui,dann lassen wir mal Koordinatensysteme weg und gehen auf deine Vorstellung ein:Das Linienobjekt wird nicht benötigt, mit der Lispfunktion POLAR kommt man auch zu dem Punkt und erspart sich erstellen und löschen des unnötigen Objektes.(alerdings wirst du schnell sehen das in Acad die Winkel nicht in Dezimalgrad hinterlegt und verarbeitet werden)Immer um 1Grad drehen, dann ist es immer LINKS in Polylinienrichtung, aber nicht unbdingt, denn es kommt ja darauf an wo sich die anderen Punkte befinden, dein so ...
|
| In das Form Lisp wechseln |
|
Lisp : vla-TranslateCoordinates
andi2050 am 06.09.2006 um 23:49 Uhr (0)
Hallo vlide !Ich denke Du verwechselt OCS (Objektkoordinaten) mit MCS (Modellkoordinaten).Die Koordinaten in der Blockdefinition werden als MCS bezeichnet (kannst Du Dir als eine Art Weltkoordinaten innerhalb der Blockdef. vorstellen, jede Blockdef. hat ihr eigenes WCS).Du musst also die Koordinaten der Pline vom MCS der Blockdef. in WCS umrechnen.Ganz exakt: OCS-Pline - MCS-Blockdefinition - WCS (abhängig von der Lage des INSERTS (BlockREFERENZ)OCS-MCS ist kein Problem, geht einfach mit: (trans Punkt (cdr ...
|
| In das Form Lisp wechseln |
