yoin

H@rm

Is het mogelijk om van een block welke met meerder visibility states in een tekening voorkomt 1 bepaalde state te selecteren?
Met quickselect wil het niet, maar is er miscien een ender optie of een lisp/vba routine?

Michel
Acad 10 t/m 2015
Revit 2010 t/m 2015
autodidact lisp

HofCAD

#1
Beste Michel,

In Visual Lisp is dat te maken, want onderstaand programma geeft  van een dynamisch block
de status van de parameters.
Zie eventueel: http://ww3.cad.de/foren/ubb/Forum145/HTML/002144.shtml#000005
(defun C:tdb2 ( / obj v vval sal salnth count erg)
(vl-load-com)
(setq obj (vlax-ename->vla-object (car (entsel))))
(setq v (vla-getdynamicblockproperties obj))
(setq vval (vlax-variant-value v))
(setq sal (vlax-safearray->list vval))
(setq salnth (length sal))
(setq count 0)
(setq erg nil)
(while (/= count salnth)
(setq erg (append erg (list (cons (vlax-get-property (nth count sal) 'PropertyName)
(vlax-variant-value (vlax-get-property (nth count sal) 'Value))))))
(setq count (+ count 1))
)
erg
)


Met vriendelijke groet, HofCAD CSI.
ACADcadabra

HofCAD

Beste Michel,

Kijk eens naar het programma SSD op http://forums.cadalyst.com/showthread.php?t=6308

Met vriendelijke groet, HofCAD CSI.
ACADcadabra

H@rm

#3
HofCad CSI,

Bedankt voor de tips. Ik ben gisteren bezig geweest met tdb2. (zie bijlage) Samen met een collega het een en ander aangepast voor mijn eigen situatie. Dat werk naatr behoren maar...  alleen voor deze ene situatie.
Vanmorgen terug op kantoor zag ik de melding van SSD. Gelijk geprobeerd. Dat was uiteindelijk precies wat ik bedoelde. Mischien dat ik SSD nog een klein beetje aanpas maar ik ga er eerst maar mee aan het werk.
Hartelijk dank

Michel
Acad 10 t/m 2015
Revit 2010 t/m 2015
autodidact lisp

HofCAD

#4
Citaat van: H@rm op vr 29 05 2009, 08:11:04
HofCad CSI,

Bedankt voor de tips. Ik ben gisteren bezig geweest met tdb2. (zie bijlage) Samen met een collega het een en ander aangepast voor mijn eigen situatie. Dat werk naatr behoren maar...  alleen voor deze ene situatie.
Vanmorgen terug op kantoor zag ik de melding van SSD. Gelijk geprobeerd. Dat was uiteindelijk precies wat ik bedoelde. Mischien dat ik SSD nog een klein beetje aanpas maar ik ga er eerst maar mee aan het werk.
Hartelijk dank

Michel
Beste Michel,

Bij je Lisp moet je eigenlijk ook je block plaatsen.
Jammer dat Vico van http://www.asmitools.com/Files/Lisps/Vico%20Code.html
bij niet werkt, want anders zou dit ook een leuk gereedschap voor je zijn.
VBA programma Editblock van http://www.visiblevisual.com/index.php/AutoCad-VBA/edit-dynamic-block-settings.html
werkt wel, en daarmee kun je de visibilty van alle  blockreferences  met dezelfde  blocknaam veranderen.

Met vriendelijke groet, HofCAD CSI.
ACADcadabra

H@rm

Citaat van: HofCAD op vr 29 05 2009, 15:37:48
Beste Michel,

Bij je Lisp moet je eigenlijk ook je block plaatsen.
Jammer dat Vico van http://www.asmitools.com/Files/Lisps/Vico%20Code.html
bij niet werkt, want anders zou dit ook een leuk gereedschap voor je zijn.

Met vriendelijke groet, HofCAD CSI.

Het block is te vinden bij een ander probleem van mij:http://www.cadsite.be/smf/index.php?topic=3452.msg17577#msg17577

Ik ben erg te vreden over SSD.lsp
Ik ben nu nog aan het puzelen om operators (= <> > < ) toe te voegen aan ssd. Dan moet het mogelijk zijn om alle blokken met een waarde volgens die operator te selecteren. Wordt vervolgd.

Michel
Acad 10 t/m 2015
Revit 2010 t/m 2015
autodidact lisp

yoin