Leaderboard

Wow great thanks sir it will save my lots of time....many thanks

As I have said before and Grr is doing also he is using a list to make the entries if you pull all the (dcl-Control-GetText Pipp/Main/ outside of the dictionary part make a list of all the 300's 98's 280's then process the list so it does not matter how many in a list. something like (setq lst (cons (300 "altezza soletta" (dcl-Control-GetText Pipp/Main/h)) lst)) (setq lst (cons (301 "alleggerimento" (dcl-Control-GetText Pipp/Main/tipo_alleggerimento)) lst)) (setq lst (cons (302 "copriferro inf" (dcl-Control-GetText Pipp/Main/c)) lst))

Emmanuel a suggestion rather than pick p1p2 drag a line over the two plines near an end what this allows you to do is to compare the two plines and if required swap the start and end pts so both plines are considered in same direction as your doing already pt1 ->endpoint ->startpoint. A little operator easier you can use (ssget "F" (list pt1 pt2) ) …… removes osnap problems and gets you to the two plines. Add a while so can repeat. Could do pick pline and get layer so other objects are not considered in ssget. The start and end using vl is a function no need for co-ordinates. Note does not work on lines. (setq stpt (vlax-curve-getstartpoint obj)) ; (25867.7091634096 55028.4440727107 0.0) (setq endpt (vlax-curve-getendpoint obj)) ; (25929.6833934434 55030.1799066927 0.0) You need also to add drawpoly defun its missing we all do that forget something that's needed. Maybe this also so not hard coded run only once before while then others can use with different values. (if (not AH:getvalsm)(load "Multi Getvals.lsp")) (setq ans (AH:getvalsm (list "Enter values" "Gap " 5 4 "1" "Angle" 5 4 "70" "Extend" 5 4 "0.2" ))) returns a list ("1" "70" "0.2")

Happy codig... wasn't happy earlier when it wasn't working...