|
Lisp : Mechanical Partlist mit Lisp auslesen
bu am 28.05.2008 um 11:55 Uhr (0)
Hallo Herr Hübner,jetzt möchte ich doch mal einen relativ alten Beitrag wieder aktivieren. Ihren Quellcode habe ich wie untenstehend verändert. Das Problem ist jedoch, dass ich je nach InfoPunkt unterschiedliche Ergebnisse erhalte. Im Moment schiebe ich das auf den Unterschied ob der InfoPunkt aus dem "Bauch" von Mechanical kommt oder extern erzeugt wurde. Bin mir aber nicht sicher. In meinem Ergebnis stimmt die erste Zeile des 2ten InfoPunktes nicht. Hat jemand damit Erfahrung wie sich das Problem in Lisp ...
|
| In das Form Lisp wechseln |
|
Rund um Autocad : lisp, mittelpunkt, winkel
Schachinger am 06.02.2003 um 11:16 Uhr (0)
Winkel in Radiant: (angle pt1 pt2) Beispiel: (angle (1.0 1.0) (1.0 4.0)) Mittelpunkt geht meines Wissens nicht ohne ein paar Codezeilen... (setq deltax (/ (- (car pt1) (car pt2)) 2)) (setq deltay (/ (- (cadr pt1) (cadr pt2)) 2)) (setq deltaz (/ (- (caddr pt1) (caddr pt2)) 2)) (setq pt3 (list (+ (car pt1) deltax) (+ (cadr pt1) deltay) (+ (caddr pt1) deltaz))) pt1 = erster Punkt pt2 = zweiter Punkt pt3 = Mittelpunkt hab den Code aber noch nicht getestet - nur ma so dahingeschrieben... ups.. war eh klar das ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Dateiname in Attribut eingügen
tunnelbauer am 26.09.2006 um 11:21 Uhr (0)
Grundlage basiert auf: http://new.cadalyst.com/code/tips/CodeSearch_Detail.cfm?ID=1474 Code:;Tip1474: ANT.LSP Attribute New Text (C)1998, Greg Silva (DEFUN C:ANT (/ ENT NAT PT PTLIST PTT ST) (WHILE (SETQ ST (cadr (entsel "
Pick attributes to change: "))) (SETQ PTLIST (APPEND PTLIST (LIST ST))) ) (setq nat (getvar "dwgname")) (foreach ptt ptlist (SETQ PT (SSGET PTT)) (IF PT (PROGN (SETQ PT (SSNAME PT 0) ENT (ENTGET PT)) (IF (= (CDR (ASSOC 0 ENT)) "INSERT") (COMMAND "ATTEDIT" ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : scrollen / pan über Tastatur Tasten
wronzky am 03.05.2011 um 11:33 Uhr (0)
Wenn Du direkt eine Tastenfolge eingeben kannst, brauchst Du keine Lisp-Dateien laden und einzelne Befehle definieren. Schreib das "makro" einfach in die Tastenfolge.Hiermit gehts z.b. immer um 1/5 der Bildschirmhöhe nach unten, und das geht dann auch "transarent":_-pan[LEERZEICHEN](list 0 (/ (getvar "viewsize") 5) 0)[LEERZEICHEN][LEERZEICHEN]Grüsse, Henning[EDIT] [LEERZEICHEN] natürlich entsprechend ersetzen... [/EDIT]------------------Henning JesseVoxelManufakturComputer-Dienstleistungen für Architekten ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : WBLOCK mit VBA
wklemens am 05.03.2003 um 09:53 Uhr (0)
@Roland: Vielen Dank! Das Filtern der Blöcke ist kein Problem. Ich möchte eigentlich nur bereits in der Blocktabelle abgelegte, in der Zeichnung aber nicht eingefügte Blöcke als WBLOCK über VBA speichern. Der Umweg über den eingefügten Block mit Ursprung ist zwar eine Lösung, die Gut funktioniert, aber einen Auswahlsatz direkt aus der Blocktabelle wäre super. Vielleicht geht das auch nicht und ich habe einfach einen Denkfehler. Aber in Lisp geht es ja auch mit (command "._wblock" filename Blockname). Grüße ...
|
| In das Form Rund um Autocad wechseln |
|
Lisp : Befehl Massprop bzw. Masseig
flieger99 am 19.12.2012 um 14:48 Uhr (0)
Hallo CADchup,herzlichen Dank, ich kann nun die Daten für die 3D-Volumenkörper abfragen! Hast Du eventuell noch eine Idee, wie eine Schleife mit variablem Dateinamen aussehen könnte? Ich würde gern die 3D-Volumenkörper wie folgt abfragen:Code:DATEINAME=1for i = 1 to n (if (setq ss (ssget ((0 . "3DSOLID")))) (command "_massprop" ss "" "_y" DATEINAME)) DATEINAME=DATEINAME+1 DATEINAME=DATEINAME & ".MPR"next iIch hoffe, es ist verständlich, was ich beabsichtige. Leider kann ich wie gesagt noch nicht in ...
|
| In das Form Lisp wechseln |
|
Rund um Autocad : Bin in Dialogfeld gefangen
CADwiesel am 18.04.2001 um 15:36 Uhr (0)
Hi Marco Im Lisp-Teil mußt Du eine While-Schleife einbauen. Kleines Beispiel aus einer meiner: (setq what_next 7) (while ( 1 WHAT_NEXT) (new_dialog "md_druck" DCL_ID) (action_tile "Knöpfe" "(setq Knöpfe $value)(done_dialog 3)") (action_tile "popup" "(setq md_auswahl (atoi $value))(done_dialog 5)") (action_tile "md_drucker" "(setq md_drucker $value)(done_dialog 6)") (action_tile "accept" "(done_dialog 1)") (action_tile "cancel" "(done_dialog 0)") (setq WHAT_NEXT (start_dialog)) (cond ((= WHAT_NEXT 6) (set ...
|
| In das Form Rund um Autocad wechseln |
|
BricsCad : ACAD-BricsCAD
alf-1234 am 23.11.2011 um 11:57 Uhr (0)
Hallo mklWarum kannst du aus Win 64 Bit nicht drucken?? Ich habe hier sogar den alten HP 750 C+ unter 64 Bit am Drucken.Man kann sehr wohl beide Cad Systeme nebeneinander fahren. Ich habe hier auch Acad und Briscad 12 als Testversion laufen. Die Lisp Programme laufen ohne Probleme auf beiden Programmen. Arx Programme werden nur unter Acad erkannt und BRX Programme nur unter Briscad.Warum wollt ihr eigentlich die MNU Dateien laufend ändern?? Einmal eingestellt und abgespeichert und es ist gut oder nicht?? ...
|
| In das Form BricsCad wechseln |
|
AutoLisp : Eigene Zeichnungseigenschaften definieren
Erwin Fortelny am 27.08.2004 um 09:36 Uhr (0)
Hallo, Zitat: Original erstellt von berndhock: ich möchte mir in einer Zeichnung eigene Werte abspeichern. Z.B. Kundenname, Projektname, Ersteller, usw. diese Werte sollten in irgend einer Form mit der Zeichnung gespeichert werden. Wer kann mir sagen wie ich diese Werte speichere, auslese und aktualisieren kann. Hmm, bei welcher Acad-Version?! Seit - AFAIK - Acad2000 gibt ja die Zeichnungseigenschaften (Befehl: dwgeigen)!!! Die kann/könnte man auch sicher via LISP oder VB manipulieren ... Anso ...
|
| In das Form AutoLisp wechseln |
|
CoCreate Drafting : ME10-Macro in Annotation ausführen
RSausGE am 25.07.2008 um 09:38 Uhr (0)
Hallo Jörg, bist du sicher, dass die Makros geladen wurden? Wenn nicht, dann (oder besser immer) baue in deine Input- Datei einen TRACE ein. Dann bist du sicher, dass die Makros geladen werden (wenn die Datei ankommt).Was du beachten musst, ist: Du kannst alles machen wie im Drafting, ABER alles was mit dem UI zu tun hat, wird geschluckt. Es gibt also kein DISPLAY "Hier bin ich".Alle UI- Sachen musst du in Lisp neu programmieren. Es gibt demnach auch kein wartten auf eine Eingabe in der Befehlszeile etc..G ...
|
| In das Form CoCreate Drafting wechseln |
|
Rund um Autocad : Textfenster
Proxy am 14.04.2004 um 22:37 Uhr (0)
Sorry aber es geht auch mit der Suchfunktion ! http://ww3.cad.de/foren/ubb/Forum54/HTML/005652.shtml http://ww3.cad.de/foren/ubb/Forum54/HTML/006471.shtml http://ww3.cad.de/foren/ubb/Forum54/HTML/005652.shtml http://ww3.cad.de/foren/ubb/Forum54/HTML/005615.shtml http://ww3.cad.de/foren/ubb/Forum54/HTML/003260.shtml http://ww3.cad.de/foren/ubb/Forum54/HTML/003204.shtml http://ww3.cad.de/foren/ubb/Forum54/HTML/002451.shtml ------------------ Lisp?!?! Why the Hel ...
|
| In das Form Rund um Autocad wechseln |
|
CoCreate Programmierung : LISP mit Kommandos von nicht aktiven Modulen laden
der_Wolfgang am 02.04.2010 um 14:37 Uhr (0)
(when (fboundp (find-symbol "EXTRUDE_EDGES"......)))):-)))Oder auchSurfacing::EXTRUDE_EDGES in deinen Code schreiben.. aber das ist schon schmutzig.Der einzig richtige Weg ist es DANN Zeug zu laden wenn es gebraucht wird, und nicht vorher. Du packt docu auch nicht das Schlauchboot in den Kofferraum, wenn du yzum skifahren fährst... und du vielleicht im Sommer an die See.. ODER? Du koennest dein Tool auch folgendermassen (aufnem button) startenCode:(unless (fboundp meintool) (load "j:/a/da/isses/meintool ...
|
| In das Form CoCreate Programmierung wechseln |
|
Lisp : Beschriftungsmaßstab Ansichtsfenster ändern
Andreas Kraus am 04.03.2022 um 08:08 Uhr (1)
Hallo Heiko,der GC 340 vom XRECORD verweist ja auf einen Dictionaryeintrag und wenn ich über die Eigenschaften den Beschriftungsmaßstab ändere wird auf einen anderen verwiesen (den entsprechenden Beschriftungsmaßstab eben).Nur wenn ich genau diesen GC 340 per Lisp ändere, also eigentlich das selbe Ergebnis erzeuge, dann ändert sich das im Ansichtsfenster nicht .Deshalb denke ich dass ich an anderer Stelle da noch was anschubsen muss. Aber was ? Mit -scalelistedit dürfte das, denke ich, nichts zu tun habe ...
|
| In das Form Lisp wechseln |
