|
Rund um AutoCAD : Objekte und Texte Drehen
Dig15 am 20.10.2010 um 10:37 Uhr (0)
Hallo Christian,habe das Lisp als internationale Version. Sicher mal hier aus dem Forum. Bei mir läuft es.Code:;******************************************************************************;DREHEN von Objekten die einen definierten Einfügepunkt haben.;(Texte, Blöcke, Kreise ect.);******************************************************************************(defun c:DREHEN-E (/ faktor aus n i nam ins)(terpri)(terpri)(setvar "cmdecho" 0)(princ "
Der DREHEN-BASIS-PUNKT ... ist der jeweilige Objekt-Einfügepun ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Layersteuerung
wuehlmaus am 13.09.2016 um 13:29 Uhr (1)
Hallo Lutz,auch wenn der Beitrag schon alt ist ... habe zu dem Script eine Frage.Ich nutze das Vorgehen mit dem Script auch schon länger, habe aber jetzt im Haus das Problem, dass der Admin sämtliche scr-Dateien geblockt hat, bzw. man kann keine neuen erstellen bzw. editieren.Deshalb zwei Fragen:Gibt es eine Möglichkeit den Inhalt des Scriptes in Lisp zu verwursteln?Frage zwei:Wenn kein Element auf dem Layer liegt kommt es zu einer Meldung, dass man ein Objekt auswählen soll und das Script bricht ab. Kann ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Attribute aus Blöcken enfernen
cadffm am 27.02.2007 um 09:15 Uhr (0)
EDIT: sehe eben erst CADmium´s Posting.. darum kleine NachtragIch kenne ein Programm das dir die Attributwerte (die sichtbaren, wenn ich mich recht erinnere)als Text "umwandelt" , also einen Text mit Postition,Inhalt etc. erstellt und dafürden Attributwert löscht.Die Blockreferenz hat natürlich weiterhin Attribute anhängen.Dies kann man auch lösen, am einfachsten wäre da wenn man sich einwenig mit SCRIPT und ScriptPro/SCC2 auskennt..Oder, wenn es nicht viele BLOCK´e sind einfach mit Refedit rau ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Kreise tangential verbinden (Lisp o.ä.)
CAD-Huebner am 17.03.2011 um 11:09 Uhr (0)
Es ist etwa ne halbe stunde Arbeit, dafür was Vernünftiges zu programmieren - hier mal nur die Mathematik aufgeschrieben und ein paar commands aufgerufen - kein Errorhandling kein Ofang-Unterdrückung!Code:(defun C:KTANV( / dm e1 e2 k1 k2 m1 m2 p1 p2 r1 r2 rd sk win winm wint) (prompt "Kreise tangential verbinden
") (setq k1 (car (entsel "Kreis 1 (groß) wählen:")) k2 (car (entsel "Kreis 2 (klein) wählen:")) e1 (entget k1) r1 (cdr (assoc 40 e1)) m1 (cdr (assoc 10 e1)) e2 (entget k2) r2 (cdr (assoc 40 e2)) ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Lisp s zum Laufen bringen - wie?
cadffm am 27.11.2015 um 09:49 Uhr (1)
Keine Lösung, aber vielleicht hilft es ja als Puzzlestück dahin.Poste am besten eine DWG, zusammen mit deiner Beschreibung oder/und Anmerkungen in der Datei wird dann deutlich was benötigt wird.(haben die Objekte Schnittpunkte oder sind es nur angenommene/projizierte Schnittpunkte usw.Bei der Aufgabe kommt mir zugleich aber eine Gegenfrage:Hast du wirklich nur reines Autocad? In MAP gibt es zB schon Befehle die das können!MAPCLEAN beinhaltet diese Brechenfunktion soweit ich durch mitlesen gelernt habe.Die ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : DXF INSERT
fuchsi am 13.08.2007 um 10:57 Uhr (0)
Zitat:Original erstellt von CADchup:Hi,wenn ich mich nicht täusche, können Handles überhaupt nicht vergeben oder geändert werden. AutoCAD hat da die Hand drauf.Eine Lisp-Möglichkeit, die Einfügungen zu identifizieren wäre, nach dem Einfügen das letzte Element abzufragen:(command "_.insert" ...)(setq LetztesHandle (cdr (assoc 5 (entget (entlast)))))Die Koordiantenfehler kommen vielleicht daher, dass du den Objektfang beim Einfügen eingeschaltet hast -OSMODEGrußCADchupnicht ganz richtig !!!falls das letzte ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Eigene Schraffur verwenden?
RL13 am 11.09.2015 um 13:49 Uhr (1)
Hallo Dirk,das Lisp "HATCHMAKER" funktioniert wenn du Dir als erstes einen quadratischen Bereich in einer Zeichnung mit der Kantenlänge 1 einzeichnest (metrischen Vorlage verwenden!)und in diesem Bereich mit den Befehlen _LINE oder _POINT Objekte (Muster Deiner späteren Schraffur) in dieses Quadrat einzeichnest. - SAVEHATCH und Deine *.Pat wird korrekt erzeugt.Zur Erläuterung des PAT-Formates (weil in der Hilfe nicht so gut beschrieben)die Zahlen in den Zeilen der folgenden Zeile :90, 0,0, 0,1, .5,-.5 bede ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Attribute mit gleicher Bezeichnung
mapcar am 06.09.2004 um 09:17 Uhr (0)
Tja, domi, du siehst schon, es gibt viele Möglichkeiten, wobei die von Otterloh in meinen Augen die praktischste ist. Du klammerst dich aber mit aller Gewalt an die Vorstellung von drei Attributen, die nicht nur den gleichen Inhalt, sondern auch noch den gleichen Namen haben. Ich sag dazu nix mehr, das habe ich schon. Hier ein paar Lisp-Zeilen, die das machen, was du möchtest: Sie setzen den Wert dieser drei Attribute. Es ist dabei egal, ob die Attribute TITEL1 , TITEL2 und TITEL3 heissen oder alle ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Button
Proxy am 17.12.2003 um 21:46 Uhr (0)
die BMPs sollten entweder 16x16 Pixel bzw 24x24 Pixel (glaube ich etwa) für Grosse Symbole (wer hat eigentlich den Platz auf dieser Welt) haben und intern nicht mehr als 8 Bit Farbtiefe. Die Schönheit liegt immer im Auge des Betrachters. Ansonsten empfehle ich ein 1x1 Rahmen der die gleiche Farbe wie andere Icons haben, kommt nicht so start wie eine Anfänger GUI daher. Wenn du viel Zeit ud Geduld hast kannst auch ein kleinen Screenshot (nicht also gross) von dem Objekt machen das die Funktion erstellt un ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Quick Leader
Dober Heinz am 08.03.2007 um 08:14 Uhr (0)
Hallo SeroHier das Lisp SSmod Code: ;; SSMOD und SSMODENT ;; zum Ändern von DXF-Gruppencodes an Elementen oder Auswahlsätzen ;; ;; Erlaubnis zum Kopieren und zur beliebigen freien Verwendung ;; gestattet, solange der Hinweis auf die Urheberschaft ;; angegeben wird ;; (c) Dr.-Ing. Thomas Berger, Kassel ;; ;; Verwendung: ;; (ssmod selectionset dxf-group-code newvalue ;; (ssmodent entityname dxf-group-code newvalue ;; (defun ssmod (ss dxf val) (mapent (lambda (ename) (ssmodent ename dxf v ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Bemassung zweizeilig
cad4fun am 31.07.2008 um 11:30 Uhr (0)
Hier noch eine kleine LISP-Routine(mit Unterstützung von User "Dorfy") zum bequemen Hinzufügen der Öffnungshöhe:; Überschreibung Masstext mit öffnungsbreite und Öffnungshöhe darunter; Öffnungshöhe zu Bemassung dazufügen (defun c:OFH2BEM ( / OEFFHOEHE BEMTXT mycmddia) (setq OEFFHOEHE (getstring "
gib die Öffnungshöhe und zeige die zu ändernden Bemassungen: "))(setq BEMTXT (strcat "P" OEFFHOEHE))(setq mycmddia (getvar "CMDDIA" ))(setvar "CMDDIA" 0)(setq ausw (ssget (list (0 . "DIMENSION"))))(command "_dimedi ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Lisp Flächenberechnung anpassen
tunnelbauer am 07.05.2004 um 16:01 Uhr (0)
Layerproblem ist gelöst; Nachkomma kriegt ich nicht hin ; m2ha.lsp ; ; (defun c:m2ha() ; ; (princ m2ha - m2 zu ha ) (print ) (initget 1) (setq anz_nachkomma 4) (command layer ma Flaeche_ha_RW ) (princ texte Auswählen ) (setq tl (ssget)) (setq anz (sslength tl)) (setq x 0) (while ( x anz) (setq ct (ssname tl x)) (setq ctl (entget ct)) (setq altwert_txt (cdr (assoc 1 ctl))) (setq altwert (atof altwert_txt)) (setq neuwert (/ altwert 10000)) (s ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Einfügewinkel Schraffur
Andreas Jessen am 06.03.2002 um 13:15 Uhr (0)
Hallo Stefan, ich habe gespannt auf eine Antwort auf Deine Frage gewartet, aber offensichtlich haben auch die LISP-Jongleure nicht für jedes Problem eine Lösung. Ich habe im "konventionellen" Bereich einiges ausprobiert (z.B. Schraffurmusterdefinition ändern), aber aber auch keine Lösung gefunden. Ist das etwa das Ende der unendlichen Änderungsmöglichkeiten in ACAD? Muß man sich doch irgendwann festlegen, wie es am Ende aussehen soll (ist ja eher ein Chef-Problem)? Die einzige Möglichkeit die ich gefunde ...
|
| In das Form Rund um Autocad wechseln |
