| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: Ojekteigenschaft Drehung aus Blockattribut übernehmen (943 mal gelesen)
|
tom--cad
Mitglied
Vermessungsingenieur
   Beiträge: 27
Registriert: 02.06.2005 Windows 10
AutoCad Map 2018 Netzlizenz
BBSoft Tiefbausoftware
ITWH Gips Kanalplanung
|
erstellt am: 07. Jan. 2011 12:11  <-- editieren / zitieren -->   Unities abgeben:          
Hallo, ich habe folgendes Problem: Aus einer Datenübernahme habe ich eine DWG mit Blöcken. Diese Blöcke haben ein Attribut "rotation". Diesen Attributwert möchte ich gerne automatisch als Drehung für den Block übernehmen. Hat jemand eine Idee? Thomas ------------------
Gruß aus Ostwestfalen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ex-Mitglied
|
erstellt am: 07. Jan. 2011 14:54 <-- editieren / zitieren -->
Hi, nun mit Attribut und purem AutoCAD ==> leider NEIN.  Darfst Du noch etwas an der Blockdefinition ändern, dann nimm statt Attribut gleich einen Parameter, ändern man einen Parameter, kann daran eine Aktion Drehung hängen. Oder Programmierung .... der Weg steht ja immer offen. - alfred - ------------------
www.hollaus.at |
Andreas Kraus
Mitglied
Elektrotechniker
Beiträge: 1356
Registriert: 11.01.2006 Win 10
ACAD 2022
|
erstellt am: 07. Jan. 2011 14:58 <-- editieren / zitieren --> Unities abgeben: Nur für tom--cad 
Hallo Thomas, mit diesem Lisp sollte das gehen: (defun c:insrot_attwert ()
(vl-load-com)
(if (setq satz (ssget '((0 . "INSERT") (66 . 1))))
(progn
(setq n (1- (sslength satz)))
(repeat (sslength satz)
(setq ent_data (entget (setq ent_name (ssname satz n))))
(setq att_data (entget (setq att_name (entnext ent_name))))
(while (/= (cdr (assoc 0 att_data)) "SEQEND")
(print (cdr (assoc 2 att_data)))
(if (= (strcase (cdr (assoc 2 att_data))) "ROTATION")
(progn
(setq ent_data
(subst
(cons 50
(* (/ (atof (cdr (assoc 1 att_data))) 180.0) pi)
)
(assoc 50 ent_data)
ent_data
)
)
(entmod ent_data)
)
)
(setq att_data (entget (setq att_name (entnext att_name))))
)
(setq n (1- n))
)
)
)
(princ)
) ------------------
Gruß
Andreas http://kraus-cad.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| | Bauteilverantwortlicher (m/w/d) E-Powertrain / Powertrain | | Menschen und Technologien zu verbinden, den Perfect Match für unsere Kunden zu gestalten, immer die richtigen Expert:innen für die jeweilige Herausforderung zu finden - das ist unser Anspruch bei FERCHAU und dafür suchen wir dich: als ambitionierte:n Kolleg:in, der:die wie wir Technologien auf die nächste Stufe bringen möchte. Wir realisieren spannende Projekte für namhafte OEMs und Zulieferer der Automobilindustrie und übernehmen Verantwortung für komplexe Entwicklungsprojekte.... | | Anzeige ansehen | Fahrzeugtechnik |
|
tom--cad
Mitglied
Vermessungsingenieur
Beiträge: 27
Registriert: 02.06.2005 Windows 10
AutoCad Map 2018 Netzlizenz
BBSoft Tiefbausoftware
ITWH Gips Kanalplanung
|
erstellt am: 10. Jan. 2011 12:41 <-- editieren / zitieren --> Unities abgeben:
|
Foren auf CAD.de (alle Foren)
| 
