Let me know how it works for you - I have not tested it heavily.
Are you doing tree canopies also? if so, out of curiosity - what state are you in?
It looks to work well Cary. I didn't use it this time, because I had a sub-contractor carry out the topo. I popped back to measure the spreads and added them manually. Next time I have a job with asymmetric spreads I will hopefully be making use of this.
Thanks P
Glad to hear you can make use of it.
This code could be modified fairly easily to allow you to pick the point (i.e. tree trunk center) on screen from a topo survey vs. Pulling the points form the csv. I have a similar one I use for basic tree symbology.
This is a snippet from my other tool where it gets the point from user input instead of the csv.
(while (and (setq x (car *lst*))
(setq pt (getpoint "\nSpecify Point for Block: ")))
(if (vl-catch-all-error-p
(setq OBJ
(vl-catch-all-apply (function vla-InsertBlock)
(list spc (vlax-3D-point (trans pt 1 0)) bNme 1. 1. 1. *ROT*))))
(princ "\n** Error Inserting Block **")