http://translate.google.it/?hl=it&tab=wT#
I enclose two dgn 1) dgn with macro run 2) no macro dgn also attach macros I want the macro to include cells that are at minimum distance (set to 10 m). as he now takes all the cells. the if statement distmincalc <distmin not work or something I'm wrong. Programmer does not have anything I can do I studied in "Learning MicroStation VBA" and copied examples. also add that I know are English thanks to those who give me a hand
blumax57
You have used an incorrect variable name "distmincal" in your IF statement
If (distmincal < distmin) Then
It is undefined and will return a value of zero (0) and will be < distmin every time
The variable name should be "distmincalc", so the line should be
If (distmincalc < distmin) Then
Seems to work OK when I change that line
Also
I notice you had a counter line
i = 1 + 1
I think it should be
i = i + 1
Hope this helps
Regards
Ian Turner
thanks a lot