Citeer(setq closelinepoint (vlax-curve-getclosestpointtoprojection LineEnt khppos '(0 0 1))) ;die '(001) is de projectierichting denkik
doet wat ik wou dat ze doet
thanx every body
Deze sectie stelt je in staat om alle bijdragen van dit lid te bekijken. Je kunt alleen de bijdragen zien waar je op dit moment toegang toe hebt.
Toon bijdragen MenuCiteer(setq closelinepoint (vlax-curve-getclosestpointtoprojection LineEnt khppos '(0 0 1))) ;die '(001) is de projectierichting denkik
(if (and (= (car posa) (car posb))
(= (cadr posa) (cadr posb))
(= (caddr posa) (caddr posb))
)
(doe iets)
)
[/font] (while (> ssoplen cnt)
(setq obj (vlax-ename->vla-object (ssname ssop cnt)))
(setq vis (vl-some '(lambda ( x ) (if (= vis (vla-get-propertyname x))
(vlax-get x 'value)
)
)
(vlax-invoke obj 'getdynamicblockproperties)
)
)
(setq cnt (+ cnt 1))
)