|
Lisp : Bemassungstex nach X oder Y Achse verschieben
metallch am 07.09.2007 um 20:55 Uhr (0)
Hallo CAD-HuebnerErstmals danke für die Nachfrage.Also eigentlich will ich den folgendes erreichen:1. Mehrere Bemassungen welche untereinander oder nebeneinander sind anwählen.2. Eine Position per Mausclick definieren.3. Den Wert der Position in die Eigenschaft von den Bemassungen "Textposition X" oder "Textposition Y" durch eine Variable zurückgeben. (Ich kenne aber die Variable für Textposition X/Y nicht). Am Schluss sollten bei der Horizontalen Bemassungen die Texte alle untereinander in einer Senkrech ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Fortlaufende Nummern
CADmium am 07.05.2004 um 08:53 Uhr (0)
Zitat: Original erstellt von Bernhard GSD: Ich würde mit (entmake ... )einen Block mit dem entsprechenden Text erstellen und dann geursprungt einfügen. Wäre optisch eleganter als einen Text zu erstellen und zu verschieben. (PROGN (command _insert blockname pause )(command _Explode _L )) Und warum nicht gleich : (command _insert (strcat * blockname) pause ) ? Zitat Hilfe : Einfügen von aufgelösten Blöcken: Wenn Sie ein Sternchen (*) zu Beginn des Blocknamens eingeben, wi ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : verschieben von block/text mitte von zwei punkten
michelangelo am 21.10.2004 um 16:50 Uhr (0)
ETWA SO STELLE ICH MIR DAS VOR NUR HABE ICH NICHT SO VIEL AHNUNG VON LISP DAS ICH WEISS WIE ICH DAS RICHTIG SCHREIBEN MUSS. (defun C:SBM ( / AUSWAHL p1 p2 p3) (setq AUSWAHL (ssget C ) (setq OSC_old (getvar osnapcoord )) (setvar osnapcoord 1) (setq p1 (getpoint
Ersten Punkt wählen )) (setq p2 (getpoint
zweiten Punkt wählen )) (setq p3 (strcat (rtos (+ (car p1) (* (- (car p2) (car p1)) 0.5)) 2 8) , (rtos (+ (cadr p1) (* 0.5 (- (cadr p2) (cadr p1)))) 2 8) ,0.0 )) (setvar osnapcoord (pri ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : copy, rotate ,move
RoyCAD am 03.02.2005 um 12:25 Uhr (0)
Weiterentwicklung das Problem liegt daran, das 4 Objekte habe und will ich kopieren drehen und so weiter aber wenn meht als ein Objekt auf der liste steht kann ich nicht mit ENTGET rein und ich will das er mir alle sich kopieren drehen und verschieben . (command kreis numpower 9.0 ) (setq obj-lst (cons (entlast) obj-lst)) (command _text einf_t1 8.0 -30.0 1) (setq obj-lst (cons (entlast) obj-lst)) (command _arc cncbog2 e cncbog1 r 48.30) (setq obj-lst (cons (entlast) obj-lst)) (com ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Bemassungstex nach X oder Y Achse verschieben
metallch am 11.09.2007 um 19:59 Uhr (0)
Hallo CAD-HuebnerIch habe es versucht, versucht, versucht und versucht.... leider ohne ERFOLG. Fehlt echt da noch was? AutoCAD Meldungen:Befehl: _appload dimx.lsp erfolgreich geladen.Befehl: _dimlinearAnfangspunkt der ersten Hilfslinie angeben oder objekt Wählen:Anfangspunkt der zweiten Hilfslinie angeben:Nicht-assoziative Bemaßung erstellt.Position der Bemaßungslinie angeben oder[Mtext/Text/Winkel/Horizontal/Vertikal/Drehen]:Maßtext = 81.62Befehl: dimxUnbekannter Befehl "DIMX". Drücken Sie F1- ...
|
| In das Form Lisp wechseln |
|
Lisp : Anzeige - ruckeln - etc.
Dorfy am 09.02.2010 um 14:54 Uhr (0)
Zitat:Original erstellt von Geos:Attribut anklicken - Daten auslesen - daraus Text entmaken - Text verschieben (= neue Position abfragen) - Einfügepkt. lesen - damit Attribut entmoden.Zum Abfragen der neuen Position hängt der Text am Cursor. Bisher ging das sehr flüssig, aber seit ACAD2010 Hi,wie/womit schiebst du denn?command move oder expresstools acet-ss-drag-move oder ... ?Mal einen anderen Rechner genutzt? (Graka-Treiber usw.)Mal QTEXTMODE 1 probiert?------------------Mfg HeikoElefantenjagd in Afrika ...
|
| In das Form Lisp wechseln |
|
Lisp : PEdit
127.0.0.0 am 16.01.2014 um 09:05 Uhr (1)
@Melding & Brischke:Ok, ich spiele mal ein wenig damit rum. Nebenbei: In dem PDF Dokument "AutoLISP Reference Guide 2013" steht zu entdel: "The entdel function operates only on main entities. Attributes and polylinevertices cannot be deleted independently of their parent entities. You can usethe command function to operate the ATTEDIT or PEDIT command in theCommand Reference to modify subentities."Und da ich auch Punkte löschen möchte, finde ich dies gerade ein wenig amüsant, auch wenn ich dabei heulen kön ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Vertikal-schieben mittels lisp
h_b_o am 05.12.2003 um 14:41 Uhr (0)
Zitat: Original erstellt von brandstaetter: Suche eine Lisp-Programm, mit dem man ohne Umweg über den .xy-Filter oder drehen des BKS,per Dialogbox vertikal Elemente verschieben (ev. auch kopieren) kann. Herzlichsten Dank im Voraus, em. von Hand, würde man das so machen, nach der Objektauswahl, wenn auf der Kommandozeile gefragt wird: Basispunkt oder Verschiebung: 0,0,125 [RETURN] (125 als Beispiel!) Zweiten Punkt der Verschiebung angeben oder ersten Punkt der Verschiebung verwenden : [RETU ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Zeichnung vom Modellbereich in den Layoutbereich verschieben
CADmium am 25.05.2009 um 08:49 Uhr (0)
nunja .... ich zitier malRetVal = object.CopyObjects(Objects[, Owner][, IDPairs]) Object : Database, Document The object or objects this method applies to. Objects: Variant (array of objects); input-onlyThe array of primary objects to be copied. All the objects must have the same owner, and the owner must belong to the database or document that is calling this method. ich staune , dass das mit Übergabe einer Lisp-Liste auch geht, konform ist das nicht!nochwas :wenn (setq asatz (ssget "X")) nix findet , ...
|
| In das Form Lisp wechseln |
|
AutoLisp : verschieben von block/text mitte von zwei punkten
StephanJP am 22.10.2004 um 09:56 Uhr (0)
nur am Rande: für cal=(end+end)/2 hat ADesk schon die Kurzform cal=mee eingebaut . Habe für unsere Fa. folgenden Werkzeugkasten Geomcal : **GEOMCAL ID_GeomCal_0 [_Toolbar( GeomCal , _Floating, _Hide, 295, 356, 1)] ID_Mee [_Button( MEE , JPCAL001.bmp , ICON_16_BLANK )] cal;MEE; ID_Mxx [_Button( MIntInt , JPCAL002.bmp , ICON_16_BLANK )] cal;(int+int)/2; ID_Mii [_Button( MInsIns , JPCAL003.bmp , ICON_16_BLANK )] cal;(ins+ins)/2; ID_Ilp [_Button( ILP , JPCAL004 ...
|
| In das Form AutoLisp wechseln |
|
Lisp : block mit attribut filtern
cadffm am 11.12.2017 um 21:55 Uhr (1)
Die Objektwahl (ssget...) sucht AttributDEFINITIONEN,attribute hängend an Blockreferenzen und können nichtmit der Objektwahl gefiltert werden.Um Blockreferenzen zu finden welche ein Attribut abc enthalten mit dem Textwert xyz muss man durch Blockreferenzen gehen, die Attribute durchsuchen.Im Anschluss möchtest du dann keinen Block sondern eine Blockreferenz verschieben.Was du gefunden hast passt nicht zu deinem Thema.Du suchst sowashttp://ww3.cad.de/foren/ubb/Forum54/HTML/009027.shtml allerdings ist dies A ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Fontdatei
WolfgangGutke am 06.07.2005 um 15:57 Uhr (0)
Hallo, wie kann man eine Fontdatei erstellen, die selbstgemalte Zeichen enthält. Hintergrund ist folgender: Ich habe zwei Leuchten (siehe PDF Anlage). Die eine hat einen Kreis mit Schraffur, die andere Leuchte (MUSS immer der gleiche Block sein!!) nicht. Diesen Kreis stelle ich z.Zt. über eine Block dar, der an dem Basispunkt eines Attributes eingefügt wird, was beim Verschieben der Leuchte zu Problemen führt (Kreis wird nicht mitverschoben - Reactoren kommen nicht in Betracht, Gruppe auch nicht). Nun mö ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Drehe Block und verschiebe Attribut
cadplayer am 27.06.2012 um 13:50 Uhr (0)
Ich kommen hierbei nicht richtig weiter, Ich möchte einen Block drehen und das Attribut im gleichen Arbeitsgang verschieben. Mein Ansatz ist folgender, die Frage, die sich mir dabei stellt: warum wird alles was nach dem drehen kommt nicht ausgeführt.Code:(defun c:rb ( / en ; Block entity pt1; Insert from Block ea ; Attribut entity pt2; Insert from entity ) (defun rotate () (if (setq en (car (entsel "
Select block! "))) (progn (setq pt1 (cdr (assoc 10 (entget en)))) (command "_ucs" "_ob ...
|
| In das Form Lisp wechseln |
