alle blocks van visibility state veranderen via knopje? *OPGELOST door HofCAD*

[jo-king]

Hey,


Ik zou graag al mijn verschillende dynamic blocks van deuren, via een knopje (lisp?) van visibility state willen veranderen.

ik heb 6 standaard binnendeuren:
dyn_deur_080-073
dyn_deur_085-078
dyn_deur_090-083
dyn_deur_095-088
dyn_deur_100-093
dyn_deur_105-098

deze blocks zijn dynamic, omdat je ze kan flippen (draairichting van de deur) en stretchen in de diepte (breedte van de muurkader)

nu heb ik hier bovenop een visibility state geplaatst, die de deur 90°, 20° of 0° open doet.

Als ik manueel mijn deuren selecteer, kan ik ze dus allemaal tegelijkertijd sluiten, of openen, of op een kier zetten.
handig, maar niet "snel" genoeg.

dus zoek ik een methode (lisp) waarbij alle  verschillende deur-blocks automatisch geselecteerd worden, en op een van de 3 visibilitystates gezet worden.

na enig googlen vond ik wel wat info,
(http://forums.augi.com/showthread.php?t=109054#post1017413)
maar niet genoeg om het te laten werken zoals ik wil.... (ik ben een lisp noob)


alvast bedankt om tot hier te lezen
Jo.

[Atwist]

Beste Jo-King,

Is deze lisp misschien wat jij zoekt, ik heb het zelf nog niet getest.
Heb deze hier gevonden http://www.cadtutor.net/forum/showthread.php?t=41059&highlight=visibility+STATE

Atwist

[jo-king]

Beste Jo-King,

Is deze lisp misschien wat jij zoekt, ik heb het zelf nog niet getest.
Heb deze hier gevonden http://www.cadtutor.net/forum/showthread.php?t=41059&highlight=visibility+STATE

Atwist

thanks atwist,
maar deze had ik al... ik probeer hem aan te passen, zodat de list automatisch al mijn deur-blocks selecteerd, en ik het niet zelf hoef te doen. maar 'k snap er niets van

[Atwist]

Ik krijg deze lisp niet aan de praat, vraagt telkens "selecteer dynamisch block" als ik dat doe dan is het einde oefening.

Atwist

[jo-king]

Ik krijg deze lisp niet aan de praat, vraagt telkens "selecteer dynamisch block" als ik dat doe dan is het einde oefening.

Atwist

hij werkt nochtans wel hoor.
heeft je dynamisch block wel een visibility state met de naam "VISIBILITY1" ? dit is waar de lisp naar zoekt

[HofCAD]

Beste Jo-King,

Alternatief voor Visiblity Parameter met Visibilty Name "Draairichting"
en resp. Visibility States "Links" en "Rechts":

Code Selecteer Uitklappen

(defun ssdblk (effname / ssx ssf c en)
 (setq ssx (ssget "X" (list (cons 2 (strcat effname ",`*U*")))))
 (setq ssf (ssadd)
c   0
 )
 (if ssx
   (repeat (sslength ssx)
     (setq en (ssname ssx c)
   c  (1+ c)
     )
     (if
(= (print (vla-get-effectivename (vlax-ename->vla-object en)))
  effname
)
(ssadd en ssf)
     )
   )
 )
 ssf
)

Code Selecteer Uitklappen

(defun c:DraairichtingLinks ()
 (vl-load-com)
 (setq BlkSet nil
;BlkSet (ssget)
BlkSet (ssdblk "Raam") ; Block Name
 )
 (setq i 0)
 (setq TotBlkSet (sslength BlkSet))
 (while (< i TotBlkSet)
   (setq BlkObj (vlax-ename->vla-object (ssname BlkSet i)))
   (setq BlkProps (vlax-safearray->list
    (vlax-variant-value
      (vla-GetDynamicBlockProperties BlkObj)
    )
  )
   )
   (foreach BlkProp BlkProps
     (cond
((and (= (vla-Get-PropertyName BlkProp) "Draairichting"))
;Visibilty Name
(vla-Put-Value BlkProp "Links") ;Visibility State
)
     )
   )
   (setq i (1+ i))
 )
)

Code Selecteer Uitklappen

(defun c:DraairichtingRechts ()
 (vl-load-com)
 (setq BlkSet nil
;BlkSet (ssget)
BlkSet (ssdblk "Raam") ; Block Name
 )
 (setq i 0)
 (setq TotBlkSet (sslength BlkSet))
 (while (< i TotBlkSet)
   (setq BlkObj (vlax-ename->vla-object (ssname BlkSet i)))
   (setq BlkProps (vlax-safearray->list
    (vlax-variant-value
      (vla-GetDynamicBlockProperties BlkObj)
    )
  )
   )
   (foreach BlkProp BlkProps
     (cond
((and (= (vla-Get-PropertyName BlkProp) "Draairichting"))
;Visibilty Name
(vla-Put-Value BlkProp "Rechts") ;Visibility State
)
     )
   )
   (setq i (1+ i))
 )
)

Met vriendelijke groet, HofCAD CSI.

[jo-king]

Beste Jo-King,

Alternatief voor Visiblity Parameter met Visibilty Name "Draairichting"
en resp. Visibility States "Links" en "Rechts":

Met vriendelijke groet, HofCAD CSI.

Bedankt HofCAD, maar deze lisp werkt niet bij mij?
desontdanks, als ik hem juist lees, lijkt dit niet de functie die ik zoek te zijn. Hierbij bestuur je de draairichting; dewelke ik met een FLIP parameter heb verwezelijkt

toch merciekes
Jo.

[HofCAD]

Bedankt HofCAD, maar deze lisp werkt niet bij mij?
desontdanks, als ik hem juist lees, lijkt dit niet de functie die ik zoek te zijn. Hierbij bestuur je de draairichting; dewelke ik met een FLIP parameter heb verwezelijkt

toch merciekes
Jo.

Beste Jo-king,

Dat is raar, want in je eerste bericht schrijf je:
nu heb ik hier bovenop een visibility state geplaatst, die de deur 90°, 20° of 0° open doet.
en het onderwerp heet toch: alle blocks van visibility state veranderen via knopje?

Met vriendelijke groet, HofCAD CSI.

PS Boven heb ik een tekening en een Lisp toegevoegd.

[jo-king]

Beste Jo-king,

Dat is raar, want in je eerste bericht schrijf je:
nu heb ik hier bovenop een visibility state geplaatst, die de deur 90°, 20° of 0° open doet.
en het onderwerp heet toch: alle blocks van visibility state veranderen via knopje?

Met vriendelijke groet, HofCAD CSI.

PS Boven heb ik een tekening en een Lisp toegevoegd.

de visibility state verandert niet de draaiRICHTING, maar de draaiHOEK van mijn deur (open, kier, gesloten)

ik heb jouw lisp nogmaals geprobeert & het werkt wel, mits enige aanpassing op mijn blocknames e.d.

het moet nog wel wat gefine-tuned worden kan ik bv meerdere blocks tegelijk selecteren?
en misschien ook een optie om "blocks in blocks" mee te nemen in de selectie?

th!

[jo-king]

http://www.cadsite.be/smf/index.php?topic=4156.0

eerste versie is klaar, en kan gekeurd/verbeterd worden via bovenstaande link.

nogmaals bedankt aan Atwist & HofCAD

[HofCAD]

http://www.cadsite.be/smf/index.php?topic=4156.0

eerste versie is klaar, en kan gekeurd/verbeterd worden via bovenstaande link.

nogmaals bedankt aan Atwist & HofCAD

Beste Jo-king,

Met de sub  SSUNION http://www.cadsite.be/smf/index.php?topic=2846.msg14598#msg14598 kun je selectiesets samenvoegen.

Code Selecteer Uitklappen

(defun ssunion (ss1 ss2 / hilite ss3)
 (setq hilite (getvar "HIGHLIGHT"))   ;Speeds up selection
 (setvar "HIGHLIGHT" 0)
 (command "_.SELECT" ss1 ss2 "")      ;Combines sets using SELECT
 (setq ss3 (ssget "P"))               ;Combined set is the previous
 (setvar "HIGHLIGHT" hilite)
 ss3                                  ;Returns SS3
);defun

Zodat je Lisp DynDeuren.lsp een stuk korter kan worden.
Zie daarvoor de bijlage.

Met vriendelijke groet, HofCAD CSI.

[jo-king]

Beste Jo-king,

Met de sub  SSUNION http://www.cadsite.be/smf/index.php?topic=2846.msg14598#msg14598 kun je selectiesets samenvoegen.
Zodat je Lisp DynDeuren.lsp een stuk korter kan worden.
Zie daarvoor de bijlage.

Met vriendelijke groet, HofCAD CSI.

HofCAD, je bent mijn HELD!

[HofCAD]

HofCAD, je bent mijn HELD!

Beste Jo-king,

Een held is nogal veel.
Kijk eens naar FlipDraai in de bijlage voor een uitgebreid alternatief met Flip en Visibility.
Het is een bewerking van http://mdouglas.blogs.com/in_the_dynamic_interface/2005/07/dynamic_lisp_co.html
Kijk ook eens naar TogVis in de bijlage voor de toggle van de Visibility state in dynamic blocks.
Het is een bewerking van http://www.cadtutor.net/forum/showthread.php?t=41059&highlight=visibility+STATE

Met vriendelijke groet, HofCAD CSI.

PS1 In de Lisp FlipDraai .lsp staat bovenaan de variabele Info op 0,
als je meer info wil hebben moet je deze op 1 zetten.

PS2 Later heb ik deze Lisp nog eens gewijzigd om hem korter te maken.

[jo-king]

HofCAD,

als jij een LISP bestand opent, zie jij dan nog code, of zie jij "The Matrix" ?

't is duidelijk dat je dit graag doet
een optie om alle deuren tegelijk te flippen had ik echter niet nodig; maar het is wel intressant om de code te hebben

merciekes,

als'k je ooit eens op een pintje kan trakteren...