|
CoCreate Modeling : Normteile im 3D Raum ausblenden
Walter Geppert am 30.09.2011 um 12:00 Uhr (0)
Zitat:Original erstellt von Harald H:.. gibt es eine Möglichkeit Normteile von anderen Teilen zu Unterscheiden (Attribut) und davon abhängig diese aus- bzw. wieder einzublenden?Wenn jemand für sowas schon ein Lisp oder Codefetzen bzw. anhaltspunkte zum programmieren hat...Code:(defun get-class-info (teil) (let (attributliste attribut inf) (setf attributliste (sd-inq-item-attributes teil :attachment :contents)) (dolist (attribut attributliste) (progn (when (string= attribut "DB-DREF") (progn (setq i ...
|
| In das Form CoCreate Modeling wechseln |
|
AutoCAD LT : Skalieren einer Auswahl
Dig15 am 28.04.2010 um 10:40 Uhr (0)
Nur mit LT? Schwierig. Such Dir jemand mit einer Vollversion und löse es mit dem Lisp:Code:;******************************************************************************;VARIA von Objekten die einen definierten Einfügepunkt haben.;(Texte, Blöcke, Kreise ect.);******************************************************************************(defun c:VARIA-E (/ faktor aus n i nam ins)(terpri)(terpri)(setvar "cmdecho" 0)(princ "
Der VARIA-BASIS-PUNKT ... ist der jeweilige Objekt-Einfügepunkt.")(setq faktor (getr ...
|
| In das Form AutoCAD LT wechseln |
|
Lisp : Koordinaten auslesen mit Text
CadWerner am 15.02.2006 um 09:42 Uhr (0)
Hallo Leute,ich habe hier im Forum eine Lisp bekommen, die einwandfrei funktioniert. Jetzt bräuchte ich dazu allerdings eine kleine Erweiterung, die hoffentlich nicht so schwer ist. Momentan liest mir die Lisp, die x,y und z Koordinaten von einem Text aus und den Text selber, allerdings nur Zahlen scheinbar. Jetzt habe ich Punkt 1 und Punkt 1a bis 200 oder so... das a liest mir die Lisp aber nicht aus. Meine Frage an Euch, kann mir jemand die Lisp so erweitern, das es auch möglich ist, den kompletten Text ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Blöcke um Einfügepunkt spiegeln (Lisp oder Makro)
3jalex am 02.07.2010 um 17:31 Uhr (0)
Hallo LeuteIch möchte gerne einzelne Blöcke zurückpiegeln.Hier ist ein tolles Lisp welches ALLE Blöcke am Einfügepunkt speigelt:(defun c:blkmirror ( / ALISTE tfac) (setq ALISTE (ssget "_X" ( (0 . "INSERT") ) ) ) (if ALISTE (progn (mapcar (lambda (el) (command "_.mirror" el "" (setq tfac(cdr(assoc 10(entget el)))) (polar tfac pi 10.0) "_Y") ) (bau_elemli ALISTE) ) ) ) (princ) )(defun bau_elemli (asatz / n elemli) (setq n 0) (repeat ...
|
| In das Form Rund um AutoCAD wechseln |
|
AutoLisp : Nichts für Logiker!? Oder doch?
snoopyonline am 13.06.2004 um 17:30 Uhr (0)
Wahrscheinlich liegt genau darin mein Problem.... Ich habe mir das Tutorial von Axel bereits angesehen, allerdings nicht die Zeit gefunden dieses tatsächlich von Anfang an durchzuarbeiten. Dies hat einfach den Grund, dass in meiner derzeitigen Lage (Diplomendwurf-Endphase) schnelle Lösungen her müssen... Und (ohne jetzt Axel oder das Tutorial anzuzweifeln) für Quereinsteiger auf der Suche nach einer Lösung für ein konkretes Problem bietet das Tutorium keine große Hilfe, da es halt mehr auf den schönen, op ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Text kopieren und ändern
Dober Heinz am 19.10.2005 um 06:44 Uhr (0)
@FuchsiHabe mir das Lisp nochmal umgebaut um diese Zahlen zu erhöhen 1/2 wird 2/3 das funkt mal.Aber mit Text M1/2 geht das Lisp nicht. Sollte M2/3 werden(setq aus (car(entsel)))(setq umw (entget aus))(setq txt (cdr (assoc 1 umw)))(setq a2 (fSplit txt "/"))(setq fertig(strcat (itoa (1+ (car a2 ))) "/" (itoa (1+ (cadr a2)))))(defun fSplit (String Separator /) (setq String (replace String Separator " ")) (setq String(strcat "(list " String ")")) (eval (read String)) )(defun Replace (String SearchString Repla ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Befehl Massprop bzw. Masseig
flieger99 am 19.12.2012 um 14:20 Uhr (0)
Hallo CADchup,zunächst vielen Dank für Deine Hilfe. Ich habe Deinen Code soeben ausprobiert. Leider gibt mir Autocad die folgende Fehlermeldung aus:Code:Objekt wählen: ; Fehler: no function definition: VLAX-ENAME-VLA-OBJECTIch muss allerdings dazu sagen, dass ich ein absoluter Anfänger in Lisp bin und mich erst einarbeiten muss. Ich wäre Dir daher sehr dankbar, wenn Du mir einen Tipp geben könntest, was ich falsch gemacht habe. Ich möchte mit Lisp eine Schleife programmieren, in der ich über alle vorhanden ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : chbh.lsp-Hochzahl immer in gelb dargestellt-
Gargarot am 06.03.2009 um 16:38 Uhr (0)
Hallo!Ohne das jetzt getestet zu haben, gibt es in der mitte des Lisp-Codes einige recht gut auskommentierte Zeilen mit folgendem inhalt: C2 = Hochzahl in gelbDarunter siehst du den eigentlichen Code. Ein ";" zuforderst in einer Zeile macht, das die Zeile nicht verwendet wird. Du hast also diese zwei mal 3 Zeilen wo du je eine Variante auslesen kannst, die eben ohne ; vorne dran. Einfach die ; anders setzten und es sollte klappen.Hier findest du das ursprüngliche Lisp übrigens ohne gelbe Hochzahl.Gruss Chr ...
|
| In das Form Rund um AutoCAD wechseln |
|
DraftSight 2D : DIESEL VARIABLE zu DEFINIEREN
jörg.jwd am 17.07.2017 um 14:59 Uhr (1)
Zitat:Original erstellt von cadffm:(da ich praktisch keine Erfahrung mit DS&Lisp habe: Die Befehlszeile wertet doch hoffentlich die Lispeingaben wie in Acad direkt aus / laufen über den Lispinterpreter?)!var oder auch (getvar "var") würden also im Makro funktionieren?Ich nehme es bisher stark an, korrigiert mich wenn ich es falsch im Kopf habe.Hallo cadffmdie Lispschnittstelle im DraftSight ist nahezu identisch mit AutoCAD. Wie du ja weißt heißen die meisten Sysvars anders wie auch der eine oder andere Bef ...
|
| In das Form DraftSight 2D wechseln |
|
Rund um Autocad : Layouts automatisch anlegen
flaschenpost am 16.01.2005 um 21:29 Uhr (0)
Hallo Dominik, mein Gefühl sagt mir ja, dass die 500 Seiten nicht die glücklichste Lösung sind. Aber Du hast Dir das so ausgedacht und da würde ich dann eine einheitliche Matrix vorschlagen : 1 2 3 4 5 6 7 8 9 10 1 2 3 4 5 Das wären 50 Blätter A4, dazu 10 Registerkarten A,B,C,D,E,F,G,H,I,J,K Dann hast Du schon mal eine Übersicht, die Du auch auf das Blatt schreiben kannst z.B. : Blatt F-1-3 Vielleicht ist auch noch jemand so nett, der Dir eine Lisp-Schleife macht, die 50 Benannte Ansichten erstell ...
|
| In das Form Rund um Autocad wechseln |
|
PTC Creo Elements/Direct Modeling : Importdaten leichter in Baugruppen einsortieren LISP?
Seele am 14.01.2016 um 08:09 Uhr (14)
Besser geht nicht, ich bin zu 100% zufrieden, ....Das mit den Namen für die 200% ist glaube ich nicht machbar. Die Daten die ich einlese, musst Du dir folgender Maßen vorstellen.Vom Fremdsystem, mehrere 100 Teile, alle unter Root und die Namen lauten meist @1 - @1000 oder so ähnlich.Automatisch jetzt Namen zu generieren, wäre ungefähr so klompliziert wie Spracherkennung oder Texterkennungssoftware. Es wäre aber schon Cool, wenn er automatisch erkennen würde, das @55 eigentlich eine DIN912/M12x60 Schraube i ...
|
| In das Form PTC Creo Elements/Direct Modeling wechseln |
|
Lisp : Änfängerfrage zu mapcar, lambda
molo am 29.10.2008 um 12:47 Uhr (0)
Moin Moin,ich habe mit viel Mühe eine kleine Lisp hinbekommen die mir einen Text mit einer Zeichenkette auf eine bestimmte Farbe setzt.----------------------------------------------------------;; Morten Lorenz;; Test einen Text mit einer Zeichenkette eine Farbe zuzuweisen(defun mltest (string / as)(setq as (ssget "x" (list (cons 0 "TEXT") (cons 1 string))))(if as (command "._change" as "" "Eigenschaften" "_color" "2" ""))(setq as nil)(princ))-------------------------------------------------------------Wenn ...
|
| In das Form Lisp wechseln |
|
Lisp : BKS ausrichten und anschließend Kreis zeichnen
Hawk82 am 16.04.2008 um 11:08 Uhr (0)
Hallo zusammen,habe folgendes Anfängerproblem:Ich möchte 3 Punkte auswählen an welchen sich das BKS ausrichtet und anschließend möchte ich über die selben 3 Punkte einen Kreis (3P) zeichen.Mir schmeißt es aber den Kreis immer irgendwo im Raum rum. Hab versucht mit Trans was zu machen, kenne mich aber leider noch nicht gut mit LISP aus.Mein LISP:(defun c:k3p ( / P1 P2 P3 ); by Stefan Schwankner - 2008-04-15(arxload "GEOMCAL") ;;;Rechner muss geladen werden (setq P1 (trans (getpoint "
Erster Punkt:")1 0)) ...
|
| In das Form Lisp wechseln |
