| |
| 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: Dynamischen Block via Lisp steuern (2595 mal gelesen)
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 12. Jun. 2013 09:31 <-- editieren / zitieren --> Unities abgeben:
Hi! Hat jemand von Euch schon mal gehört, wie man einen dyn. Block via Lisp steuern kann ? Ich hätte ein Beispiel mit einem Block, welcher eine Linie beinhaltet die je nach Wunsch dynamisch geändert werden kann. Meine Frage ist, kann ich diese Linie programmtechnisch abfragen. ------------------ Gruss Dirk http://cadplayerlounge.blogspot.se Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 12. Jun. 2013 10:27 <-- editieren / zitieren --> Unities abgeben:
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 12. Jun. 2013 11:31 <-- editieren / zitieren --> Unities abgeben:
Mein Visualkenntnisse steigen zwar allmählich, aber stehe ich hier vor einer neuen Tür. Code:
;; From: "Tony Tanzillo" ;; Newsgroups: autodesk.autocad.customization ;; Sent: Friday, May 13, 2005 6:37 AM ;; Subject: Re: DynamicBlock method;; Get a single dynamic block property object by name (defun dyGet (DynBlockRef Name) (vl-some (function (lambda (property) (if (eq (vlax-get-property property 'PropertyName) Name) property ) ) ) (vlax-safearray->list (vlax-variant-value (vla-getDynamicBlockProperties DynBlockRef) ) ) ) ) ;; Set the vlaue of a single dynamic block property object by name (defun dySet (DynBlockRef Name NewValue / Property) (if (setq property (dyGet DynBlockref Name)) (progn (vlax-put-property property 'Value NewValue) (vlax-release-object Property) ) ) ) ; zu Testzwecken ;(dyGet (vlax-ename->vla-object (car (entsel))) "Visibility1" ) ;(dySet (vlax-ename->vla-object (car (entsel))) "Visibility1" "1 Leader ON") ;(dySet (vlax-ename->vla-object (car (entsel))) "Visibility1" "2 Leader ON") ;(dySet (vlax-ename->vla-object (car (entsel))) "Visibility1" "3 Leader ON")
Es gelingt mir bei dem beigefügten Block den Leader umzustellen, was müsste ich tun um auch die Position des Leaders zu steuern, geht das überhaupt ? ------------------ Gruss Dirk http://cadplayerlounge.blogspot.se Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
reltro Mitglied student
Beiträge: 125 Registriert: 08.11.2009 Acad 2012 - VBA,Lisp Revit 2012 3dsMax 2012 Rhino 5 - GH,Pyhton 3,rhino.Common<P>Win 7 - i7 4x3.2GHz - 8Gb DDR3
|
erstellt am: 16. Jun. 2013 19:35 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
Warum sollte das nicht gehn? Hab jetzt mal nicht deine Funktion hergenommen, da da ein Fehler auftritt... Denke das liegt daran dass hier(*) etwas fehlt, nähmlich die umwandlung in den passenden Typ
Code:
(defun dySet (DynBlockRef Name NewValue / Property) (if (setq property (dyGet DynBlockref Name)) (progn (vlax-put-property property 'Value NewValue) ;<---- **hier (vlax-release-object Property) ;braucht es das? (unsicher) ) ) )
Code:
(defun BlockRef:SetDynamicPropValue (block prop value / ) (setq prop (strcase prop)) (vl-some (function (lambda ( _prop ) (if (eq prop (strcase (vla-get-propertyname _prop))) (progn (vla-put-value _prop (vlax-make-variant value (vlax-variant-type (vla-get-value _prop)) ;hier wird umgewandelt ) ) value ) ) ) ) (vlax-invoke block 'GetDynamicBlockProperties) ) ) (BlockRef:SetDynamicPropValue (vlax-ename->vla-object (car (entsel))) "Angle1" 10) (BlockRef:SetDynamicPropValue (vlax-ename->vla-object (car (entsel))) "1 Leader" 5)
Der Block will an dieser Stelle Polare Koordinaten (Länge und Winkel), diese musst du dir aber erst berechnen... nehme an du willst schlussendlich per getpoint irgendwo hinklicken (außerhalb der BlockDef)? Dazu Einfügepunkt der BlockReference ermitteln, und mit dem gepickten Punkt gegenrechnen und dann polare Koordinaten erzeugen. Eigentlich musst du dabei du noch den Drehwinkel des Blockes sowie dessen Skalierung berücksichtigen... Zum Block selber: Wenn Visibilty "1 Leader ON" ist, dann hat die Polar-Property des Leaders aber die Nummerierung 2... ungünstig... würd ich nochmals neu bauen...
lg Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 17. Jun. 2013 12:14 <-- editieren / zitieren --> Unities abgeben:
Hi reltro, ich hatte mich nicht weiter gemeldet, da mir das Thema uninteressant schien (am feedback im forum gemessen). Deine Auführungen sind absolut korrekt, ich hatte inzw. anderweitig den Input bekommen. Danke trotzdem, du hast den Thread damit zum Abschluss gebracht. ------------------ Gruss Dirk http://cadplayerlounge.blogspot.se Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
reltro Mitglied student
Beiträge: 125 Registriert: 08.11.2009 Acad 2012 - VBA,Lisp Revit 2012 3dsMax 2012 Rhino 5 - GH,Pyhton 3,rhino.Common<P>Win 7 - i7 4x3.2GHz - 8Gb DDR3
|
erstellt am: 17. Jun. 2013 12:22 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
Zitat: Original erstellt von cadplayer: Habs gefunden
Hab das hier gesehn, wie wahrscheinlich andere auch, und somit war das gegessen... Bin nur zufällig reingestoplert, und ja... ist natürlich gut wenn's bereits erledigt ist... lg Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |