Leaderboard

Few quick answers: You can autoload lisp programs, so you don't have to do it manually everytime. (ironically while working half of the lisps I use, I'm loading manually) Yes, I'd call it an 'easy' modification. Its possible, but I don't have that much free time to play with: From each endpoint of the original polyline, find the vector that is tangent to the offseted polyline, resulting in finding the intersection point from where the straight taper would start. Although looking at the picture the above algorithm may not produce the desired result, because a curve/bulge is used for the taper. Another easier approach would be to use Lee's Polyline Taper and Polyline Outline, so you could manipulate each start/end segment's width for every polyline and in the end outline them. And I believe that would produce the desired result.

you're welcome... really was a small fix. First line in your csv has a header and without having the csv file on my first attempt I didn't account for that. After seeing the file it was simply a matter of sipping the first line

try now (defun c:t1 ( / SplitStr doc spc csv fp data bn) (defun SplitStr ( s d / p ) (if (setq p (vl-string-search d s)) (cons (substr s 1 p) (SplitStr (substr s (+ p 1 (strlen d))) d)) (list s))) (if (and (setq doc (vla-get-activedocument (vlax-get-acad-object)) spc (vla-get-block (vla-get-activelayout doc))) (setq csv (getfiled "Select csv file" "" "csv" 0))(setq fp (open csv "r")) (read-line fp)) (while (and (setq data (read-line fp)) (setq data (splitstr data ",") bn (car data) pnt (cdr data))) (if (tblsearch "block" bn)(vla-InsertBlock spc (vlax-3d-point (mapcar 'atof pnt)) bn 1 1 1 0)))) (if fp (close fp)) (princ) )

Starting to get it all working the priority that we wanted now works to change a certain column of values. Just going through each column checking its working. solved a style problem hopefully ; just need to change the string to correct string ((= key-type "Pointstyle" ) (vlax-put-property keysinset 'PointStyle "012"))