| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Ersatzteilwesen optimieren mit CIDEON Sparify, eine Pressemitteilung
|
Autor
|
Thema: Befehl rechtsklick (kurzmenü wiederholen) einfügen ? (640 mal gelesen)
|
Kleiner_pally Mitglied Zeichner
Beiträge: 74 Registriert: 03.05.2004 AutoCAD 2002 Netzwerk mit Express Tool Mein Os: XP prof. AMD Athlon 2000+ 512 MB RAM NIVIDA GEFORCE Grafikkarte
|
erstellt am: 20. Jul. 2004 14:31 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich habe mir eine Bem. Stil erstellt damit ich gleich die komplette Bem. wenden kann. Nun wollte ich der vollständigkeitshalber in ACAD mein befehl einfügen unter (auf Bem. klicken > rechte Maustaste > unter wiederholen) mein lisp Zeile (Befehl) Bem.wenden einfügen. Zwischen wiederholen und Position Maßtext. Aber Wie mache ich das ? Bitte schaut mal im Anhang auf dem Bild ! evtl. versteht ihrs dann Gruß Pally [Diese Nachricht wurde von Kleiner_pally am 20. Jul. 2004 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Proxy Ehrenmitglied Stateless-DHCP v6-Paketfragmentierer
Beiträge: 1629 Registriert: 13.11.2003 Tastaturen, Mäuse, Pladden, Monitore, ...
|
erstellt am: 20. Jul. 2004 14:37 <-- editieren / zitieren --> Unities abgeben: Nur für Kleiner_pally
aktuelle MNU/MNS ... ***POP504 **OBJECTS_DIMENSION [Kontextmenü für Bemaßungsobjekte] . . . << hier kommt deine Erweiterung rein >> . . . . .
------------------ "Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?" Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
AsSchu Ehrenmitglied Konstrukteur
Beiträge: 1632 Registriert: 27.06.2003 ACAD 2012
|
erstellt am: 20. Jul. 2004 14:41 <-- editieren / zitieren --> Unities abgeben: Nur für Kleiner_pally
|
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 20. Jul. 2004 15:01 <-- editieren / zitieren --> Unities abgeben: Nur für Kleiner_pally
Servus Hab meine Änderungen erst nach dem Eintrage ---------------------------------------------------- ID_DimSty9 [<-&Andere...]^C^C_aidimstyle _O ---------------------------------------------------- Da sonst beim Kontextmenü Problem auftraten (wurde nicht alles angezeigt) PS.: Wie meinst du das den Bemstil wenden ? Würde mich auch interessieren.
------------------ Bitte Supportangaben eintragen, warum siehst du hier und noch schöne Grüsse aus der Steiermark Bernd P. [Diese Nachricht wurde von Bernd P am 20. Jul. 2004 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Kleiner_pally Mitglied Zeichner
Beiträge: 74 Registriert: 03.05.2004 AutoCAD 2002 Netzwerk mit Express Tool Mein Os: XP prof. AMD Athlon 2000+ 512 MB RAM NIVIDA GEFORCE Grafikkarte
|
erstellt am: 21. Jul. 2004 10:21 <-- editieren / zitieren --> Unities abgeben:
|
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 21. Jul. 2004 10:33 <-- editieren / zitieren --> Unities abgeben: Nur für Kleiner_pally
Ja sowas such ich auch hast du das mit Umstellung des Bemassungstiles oder durch Lisp erreicht? ------------------ Bitte Supportangaben eintragen, warum siehst du hier und noch schöne Grüsse aus der Steiermark Bernd P. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Kleiner_pally Mitglied Zeichner
Beiträge: 74 Registriert: 03.05.2004 AutoCAD 2002 Netzwerk mit Express Tool Mein Os: XP prof. AMD Athlon 2000+ 512 MB RAM NIVIDA GEFORCE Grafikkarte
|
erstellt am: 21. Jul. 2004 10:43 <-- editieren / zitieren --> Unities abgeben:
Hallo Bernd das umdrehen selber habe ich durch eine Lisp erreicht aber das einstellen von dem Bemaßung müsstest du dann in den Bem.Stilen selber machen ! Fals du interesse ander Lisp hast kann ich sie gerne hier mal einfügen. Gruß pally Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 21. Jul. 2004 10:48 <-- editieren / zitieren --> Unities abgeben: Nur für Kleiner_pally
Jau wäre gut Hab nämlich das Prob das er die benutzerspezifischen Pfeilspitzen "umdreht" (so wie bei deinem Anhang). Hab selber schon herumgebastelt, ein Ansatz von mir war die Pfeilspitzen zu tauschen, leider sind meine Lispkenntnisse dafür etwas zu gering. ------------------ Bitte Supportangaben eintragen, warum siehst du hier und noch schöne Grüsse aus der Steiermark Bernd P. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Kleiner_pally Mitglied Zeichner
Beiträge: 74 Registriert: 03.05.2004 AutoCAD 2002 Netzwerk mit Express Tool Mein Os: XP prof. AMD Athlon 2000+ 512 MB RAM NIVIDA GEFORCE Grafikkarte
|
erstellt am: 21. Jul. 2004 11:56 <-- editieren / zitieren --> Unities abgeben:
so hier die Bem. wend lisp :) vl-load-com) (defun c:BEMWEND(/) (abdn:switch_dim_arrowhead_block) (princ) ) (defun bemwend:switch_dim_arrowhead_block ( / ) (setq satz (ssget (list (cons 0 "DIMENSION")))) (setq n -1) (repeat (if satz (sslength satz) 0) (setq obj (vlax-ename->vla-object (ssname satz (setq n (1+ n))))) (setq block1 (vla-get-arrowhead1block obj)) (setq block2 (vla-get-arrowhead2block obj)) ;; (cond ((not (= (type block1) 'STR))) ((= (strcase block1) "BEM_STRICH1") (vla-put-arrowhead1block obj "BEM_STRICH2") ) ((= (strcase block1) "BEM_STRICH2") (vla-put-arrowhead1block obj "BEM_STRICH1") ) (T ;|Kein Block im ArrowHead| ) (cond ((not (= (type block2) 'STR))) ((= (strcase block2) "BEM_STRICH1") (vla-put-arrowhead2block obj "BEM_STRICH2") ) ((= (strcase block2) "BEM_STRICH2") (vla-put-arrowhead2block obj "BEM_STRICH1") ) (T ;|Kein Block im ArrowHead| ) ) (princ) ) Gruß pally [Diese Nachricht wurde von Kleiner_pally am 21. Jul. 2004 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 21. Jul. 2004 14:49 <-- editieren / zitieren --> Unities abgeben: Nur für Kleiner_pally
|
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 09. Aug. 2004 16:29 <-- editieren / zitieren --> Unities abgeben: Nur für Kleiner_pally
Servus hier nochmal ein bisschen geändert Jetzt ist egal wie die Blöcke heissen, sie werden einfach gedreht (vl-load-com) (defun c:BEMWEND(/) (abdn:switch_dim_arrowhead_block) (princ) ) (defun abdn:switch_dim_arrowhead_block ( / ) (setq satz (ssget (list (cons 0 "DIMENSION")))) (setq n -1) (repeat (if satz (sslength satz) 0) (setq obj (vlax-ename->vla-object (ssname satz (setq n (1+ n))))) (setq block1 (vla-get-arrowhead1block obj)) (setq block2 (vla-get-arrowhead2block obj)) ;; (cond ((not (= (type block1) 'STR))) ((= (strcase block1) (strcase block1)) (vla-put-arrowhead1block obj (strcase block2)) ) ((= (strcase block1) (strcase block2)) (vla-put-arrowhead1block obj (strcase block1)) ) (T ;|Kein Block im ArrowHead| ) (cond ((not (= (type block2) 'STR))) ((= (strcase block2) (strcase block1)) (vla-put-arrowhead2block obj (strcase block2)) ) ((= (strcase block2) (strcase block2)) (vla-put-arrowhead2block obj (strcase block1)) ) (T ;|Kein Block im ArrowHead| ) ) (princ) ) die dur Strichpunkt und klammer ersetzen (weis nicht wieso das deaktiviernen der Smilie nicht gefunkt hat ------------------ schöne Grüsse aus der Steiermark Bernd P. Bitte Supportangaben eintragen, warum siehst du hier [Diese Nachricht wurde von Bernd P am 09. Aug. 2004 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |