| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY wird von NVIDIA zum Händler des Jahres gewählt – zum dritten Mal in Folge, eine Pressemitteilung
|
Autor
|
Thema: Zentrumsmarke (1279 mal gelesen)
|
Dorfy Mitglied Double-Dipl.-Ing. Bleistiftanspitzer
Beiträge: 900 Registriert: 21.07.2006 AutoCad2007, ProE, HiCad
|
erstellt am: 11. Jan. 2007 08:53 <-- editieren / zitieren --> Unities abgeben:
Morgen, Ich möchte mir den Befehl Zentrumsmarke meine Bedürfnissen etwas anpassen. ; Zentrumsmarke (defun c:zmarke (/ a b as ds r dc) (setq a (ssget)) (setq ds (getvar "dimscale")) (setq r (cdr(assoc 40(entget(ssname a 0))))) (setvar "dimcen" (* 1.5 (/ r ds)) ) (command "_dimcenter" pause) (princ) ) Die Grösse der Marke (dimcen) soll 1,5-mal Radius div BemFaktor (dimscale) sein. So weit so gut – nun muss ich aber zweimal den Radius wählen und mir fällt gerade nix ein, da (command "_dimcenter" a ) nicht geht. (Fehlerhandler fehlt noch) Anregungen erwünscht, oder geht es mit _dimcenter nicht und man sollte direkt zwei Linien zeichnen? Danke Mit freundlichen Grüßen Dorfy
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
spider_dd Mitglied
Beiträge: 1144 Registriert: 27.11.2003 Win 10Pro Intel(R) Core(TM) i7-7700 NVIDIA Quadro P1000 ACAD, Civil-3D 2018
|
erstellt am: 11. Jan. 2007 09:56 <-- editieren / zitieren --> Unities abgeben: Nur für Dorfy
|
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 11. Jan. 2007 10:02 <-- editieren / zitieren --> Unities abgeben: Nur für Dorfy
Hallo Dorfy, eingentlich müßte es mit (command "_dimcenter" (ssname a 0)"") funktionieren, tut es aber nicht. Daher würde ich es dann vielleicht doch mit Linien probieren: Code:
(defun c:zmarke (/ a r z) (setq a (ssget)) (setq r (* 1.5(cdr(assoc 40(entget(ssname a 0))))) z (cdr(assoc 10(entget(ssname a 0))))) (entmake (list '(0 . "LINE") (cons 10 (polar z pi r)) (cons 11 (polar z 0.0 r)))) (entmake (list '(0 . "LINE") (cons 10 (polar z (* pi 0.5) r)) (cons 11 (polar z (* pi 1.5) r)))) (princ) )
------------------ viele Grüße Jörn Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Dorfy Mitglied Double-Dipl.-Ing. Bleistiftanspitzer
Beiträge: 900 Registriert: 21.07.2006 AutoCad2007, ProE, HiCad
|
erstellt am: 11. Jan. 2007 11:35 <-- editieren / zitieren --> Unities abgeben:
@Thomas und Jörn - !!!Danke!!! So hab ich mir das vorgestellt! (defun c:zmarke (/ a r d z) (setq a (ssget (list'(0 . "circle")) )) ; (command "-layer" "se" "AM_7" "") (repeat (sslength a) (progn (setq r (* 1.5(cdr(assoc 40(entget (ssname a (setq D (if D (1+ D) 0))))))) z (cdr(assoc 10(entget (ssname a D))))) (entmake (list '(0 . "LINE") (cons 10 (polar z pi r)) (cons 11 (polar z 0.0 r)))) (entmake (list '(0 . "LINE") (cons 10 (polar z (* pi 0.5) r)) (cons 11 (polar z (* pi 1.5) r)))) (princ))) ) ? Liegt es am Befehl dimcenter, dass dieser die Objektauswahl nicht annimmt? (command "_dimcenter" a … ) (command "_dimcenter" (ssname a 0)"") Danke Mit freundlichen Grüßen Dorfy
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9803 Registriert: 01.12.2003 One AutoCAD 2.5 - 2024, AutoCAD, Civil 3D, Win10/Win11
|
erstellt am: 11. Jan. 2007 12:20 <-- editieren / zitieren --> Unities abgeben: Nur für Dorfy
Mit _dimcenter funktionierts auch, allerdings erwartet Dimcenter eine Objekt/Pickpunktkombination, so wie sie (entsel) zurückgibt. Code: (DEFUN c:zmarke (/ a b as ds r dc) (SETQ ds (GETVAR "dimscale")) (while (setq a (entsel "\nBogen oder Kreis wählen:")) (SETQ r (CDR (ASSOC 40 (ENTGET (car a))))) (SETVAR "dimcen" (* 1.5 (/ r ds))) (COMMAND "_dimcenter" a) ) (PRINC) )
------------------ Mit freundlichem Gruß Udo Hübner Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Dorfy Mitglied Double-Dipl.-Ing. Bleistiftanspitzer
Beiträge: 900 Registriert: 21.07.2006 AutoCad2007, ProE, HiCad
|
erstellt am: 11. Jan. 2007 14:26 <-- editieren / zitieren --> Unities abgeben:
|