|
Lisp : Blockattribute drehen
Dorfy am 02.08.2011 um 13:42 Uhr (0)
ich versuch es mal(DEFUN c:rb ( / obj ele pkt wi ) (if ;if schleife auf( (setq obj (car (ENTSEL "Block wählen: "));bedingung( ele (entget obj);bedingung pkt (CDR (ASSOC 10 ele));bedingung );bedingung)(progn;fehlt hier sicherlich (COMMAND "_ucs" "_object" (CDR (ASSOC -1 ele)));koordinatensystem verschieben (SETQ wi ;neuen drehwinkel berechnen(+ ;du addierst (CDR(ASSOC 50 ele));die Drehung vom insert (GETANGLE ;mit einem Winkel aus Basispunkt und einer Eingabe(TRANS ;Transformieru ...
|
| In das Form Lisp wechseln |
|
Lisp : Punkte mit Linien verbinden
Dorfy am 07.02.2012 um 15:57 Uhr (0)
Zitat:Original erstellt von cadplayer:...In meinem code habe ich die delta koord. der Texte bezgl. der Punkte rausgeschrieben. Kann es vllt funktionieren, wenn ich jetzt anhand der Koord.differenz zw. Punkt und Text den Punkt raussuche.... dein code sieht super aus ssget bietet dir einige "sel-method" an - siehe EntwicklerhilfeDu hast die Koordinaten der Punkte, nimm einen Punkt und dessen Koordinaten, dann rechne dir zwei Koordinaten aus in denen dein Text liegt und filtere dir gleich die Texte raus, p ...
|
| In das Form Lisp wechseln |
|
Lisp : Funktionsaufruf aus anderer Funktion
Dorfy am 01.02.2010 um 19:24 Uhr (0)
Zitat:Original erstellt von Christian B.:...bei manchen Zeichenobjekten im ACAD, zB. beim Kreis sind schon gewisse Sachen voreingestellt, so dass ich nur noch auf enter Drücken muss (wenn ich die Auswahloptionen nicht haben will)also dann eine Auswahl zwischen a bzw. Enter (so als Voreinstellung) und s habe?Kann ich das irgendwie in meine iniget Funktion einbauen?Hi Christian,du kannst bei vielen (nicht allen) Objekten auf zugehörige Systemvariablen zurückgreifen. Bei deiner Abfrage (initget) sind dir die ...
|
| In das Form Lisp wechseln |
|
Lisp : Text in Attribut kopieren
Dorfy am 11.08.2009 um 15:35 Uhr (0)
Versuch mal...(defun C:TXT2ATT_Dimension (/ ele ele_list txt_inhalt bl atts tagname) ;;Inhalt von Text in Attribut eines anderen Blocks kopieren (setq ele (nentsel "
Welchen Text kopieren ?")) (if ele (progn (setq ele_list (entget (car ele))) (if (= (cdr (assoc 0 ele_list)) "TEXT") (progn (setq txt_inhalt (cdr (assoc 1 ele_list))) (setq ele (entsel "
Wohin kopieren ?")) (if ele;;;;;;;;;;;;;;;;;;;;;;;;;;;; (progn (setq bl (vlax-ename-vla-object (car ele)) tagname "Dimension" ;;---- ) ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : LayerManager Professional
Dorfy am 02.02.2012 um 15:32 Uhr (0)
Ohne dir nahe treten zu wollen, vllt. liegt es an deiner Arbeitsweise?!Persönliche brauche ich so was nicht.Es gibt auch noch die Möglichkeit sich entsprechende Funktionen selber zuschreiben bzw. für einen gewissen Obolus schreiben zulassen. (davon habe ich einiges (vieles) im Gebrauch)Der Vorsprecher hat scheinbar eines zu liegen, ggf. mal unter d-tools.eu schauen. Dort findet man auch ander nützliche Tools.(nein - ich wirke an dieser Seite nicht mit und erhalte auch keine Bezüge oder sonstige Vergünstig ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Punkte mit Linien verbinden
Dorfy am 13.02.2012 um 21:16 Uhr (0)
in deiner repeat schleife gehst du die Punkte durch und suchst dir den Text im näheren Umfeld(Fehlerbetrachtung iwan noch bedenken -- kein Text, mehr als ein Text...)somit hast du Punktnummer und Koordinaten -- die "kleine Liste" (punktnummer . (koordlist))(ich würde ihmo auf cons zurückgreifen... für die kl. Liste) diese kleinen Listen hängst du dann munter aneinander mittels cons oder append((punktnummer1 . (koordlist1))(punktnummer2 . (koordlist2))(punktnummer3 . (koordlist3))...(punktnummern . (koordli ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Punkte auf die gewählte Höhenangabe (als Text od. Mtext) automatisch anheben?
Dorfy am 12.08.2010 um 15:38 Uhr (0)
Zitat:Original erstellt von Ladminator:Eine weitere Frage ist, ob man die Funktrion auch umkehren kann. Das heisst man hat einen Höhenpunkt mit einer Höhe z unter Eigenschaften und klickt danach einen text an, der die entsprechende Höhe anzeigt.Sicher geht das ...schau dir hier auch mal Schriftfelder an.Automatisieren mit neuem Text absetzen oder schreiben in vorhandenen Texten bzw mit Schriftfeldern ist alles möglich aber das sprengt IHMO den Rahmen der Forenhilfe.Mit etwas Geduld findest du vllt. im Net ...
|
| In das Form Rund um AutoCAD wechseln |
|
Schweissen Löten Kleben : Welche Schweißnaht
Dorfy am 27.05.2019 um 19:53 Uhr (1)
Hi,HV Nähte sind durchgeschweißte Nähte - die kommen hier nicht in Frage.Bleiben HY - Nähte, auch eingelegte Kehlnähte genannt - hier den Öffnungswinkel beachten, gemäß Verfahrensprüfung / vorgezogene Arbeitsprobe und WPS.Ist das Volumen im Radius zu klein bleibt Kehlnaht oder Sondernaht (HY + Kehlnaht), Stichwort vorgezogene Arbeitsprobe.Blechdicken - die davon abgeleiteten min und max Nahtdicken beachten (Anwendungs- und Normungsbereich spielen hier ggf. rein).Schweißen im kaltverformten Bereich ist nich ...
|
| In das Form Schweissen Löten Kleben wechseln |
|
Lisp : Listen vergleichen
Dorfy am 11.03.2010 um 12:36 Uhr (0)
Zitat:Original erstellt von Andreas Kraus:...Ich habe zwei Listen mit den Objektdaten die man mit entget bekommt.Brauchen tu ich:Welches Element ist in Liste1 und NICHT in Liste2Welches Element ist in Liste2 und NICHT in Liste1Welches Element ist in Liste1 und VERÄNDERT in Liste2...ist bei über 30000 Elementen recht langsam.Hat jemand ne Idee wie ich eine solche Auswertung schneller machen kann ?30000 "Elemente" in der List die du mit entget erstellt hast?oder 30000 Objekte/Listen die miteinander/mit eine ...
|
| In das Form Lisp wechseln |
|
Lisp : Polylinien Segmente
Dorfy am 21.12.2011 um 14:17 Uhr (0)
nur mal ein paar Anregungen bzw Gedanken von mir beim Überfliegen der ZeilenCode:(defun PolylinePickpoint () ;variablen rücksetzen (setq obj (vlax-ename-vla-object (car (entsel))));prüfen der Bedingungen (and... (setq plpt1 (getpoint "
Pick point on line! ")) (setq dis (vlax-curve-getDistAtPoint obj plpt1)) );ggf Fehlermeldung (or(and... (princ Fehler blabla (defun PolylineDistance ();variablen rücksetzen (setq obj (vlax-ename-vla-object (car (entsel))));prüfen der Bedingungen (and... (setq plpt1 (getpoint ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Block einfügen mit LISP und Wert 1
Dorfy am 15.01.2009 um 17:09 Uhr (0)
auf die schnelle so...(defun c:bel (/ blockn corner1 corner2 columns rows roomwidth roomheight colspacing rowspacing ) (if (and (or (tblobjname "BLOCK" (setq blockn (getstring "
Blockname eingeben?: ")) ) (prompt (strcat "
BLOCK : " blockn " nicht gefunden!!")) ) (or (setq corner1 (getpoint "
Erste Ecke angeben: ")) (prompt "
Ungültiger 1. Punkt") ) (or (setq corner2 (getpoint "
Zweite Ecke angeben: ")) (prompt "
Ungültiger 2. Punkt") ) (or (and (setq ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Gruppen auflösen
Dorfy am 25.08.2006 um 07:19 Uhr (0)
Hi Marc, hi Jörn, @Marc"as designed" or NOT "as designed" this is the question?IMHO - Mit cons... in der Subfunktion wird die ACAD-Logik umgedreht!? auch ACAD folg IMHO einer Logik welcher? this? only now? ...Euer Weg ist dennoch der richtigeAnzahl der Entities der Gruppen!?Es klemmt wie immer bei der Implementierung - im gekennzeichneten Bereich warum???Guter Rat (kann auch schon wo anders klemmen [IMHO]) ;;; löst jeweils nur die "obersten" vorhandenen Gruppen von gepickten Objekten auf(defun C:xxx ...
|
| In das Form Lisp wechseln |
|
Lisp : Gruppen auflösen
Dorfy am 23.08.2006 um 13:31 Uhr (0)
HalloNun das ganze mal getestetVisual-Lisp-Editor ACad sagt:; Fehler: Zu wenige Argumente in SETQ: (SETQ MERKERSET (ITOA (SSLENGTH (SSGET "_P"))) (SETQ DGNAMEN ELEM)) (???was will der Künstler mir damit sagen???)beim folgenden Code:;;; löst jeweils nur die "obersten" vorhandenen Gruppen von gepickten Objekten auf(defun C:xxx (/ GNAME GROUPSEL c dgnamen d g_liste merkerset) (princ "
Objekt(e) anwählen, dessen Gruppe(n) aufgelöst werden soll(en): ") (setq GROUPSEL (ssget)) ALT-PICKSTYLE (getvar "pickstyle")( ...
|
| In das Form Lisp wechseln |
