Author Topic: Close a spline?  (Read 4981 times)

0 Members and 1 Guest are viewing this topic.

CHulse

  • Swamp Rat
  • Posts: 504
Re: Close a spline?
« Reply #15 on: July 17, 2015, 10:56:39 AM »
Frankly didn’t expect to see so much interest in this.
This is a test data set.
Cary Hulse
Urban Forestry Manager
Wetland Studies and Solutions

Civil 3D 2020 & 2023

ronjonp

  • Needs a day job
  • Posts: 7529
Re: Close a spline?
« Reply #16 on: July 17, 2015, 11:07:48 AM »
Cool .. was just curious.

Windows 11 x64 - AutoCAD /C3D 2023

Custom Build PC

Pad

  • Bull Frog
  • Posts: 342
Re: Close a spline?
« Reply #17 on: July 20, 2015, 04:23:02 AM »
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

CHulse

  • Swamp Rat
  • Posts: 504
Re: Close a spline?
« Reply #18 on: July 20, 2015, 06:50:16 AM »
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.

Code: [Select]
     (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 **")
Cary Hulse
Urban Forestry Manager
Wetland Studies and Solutions

Civil 3D 2020 & 2023