#Glamsen cadtools tutorial plus#

Not like the 3000+ dollars for a single seat of Autoturn, plus a 700 buck annual maintenance fee. And I can't believe that it would blot the cost of a seat.

#Glamsen cadtools tutorial software#

I do understand that this product is used in a multitude of disiplines, but if you are going to roll out a design software that is used to design roadways, it seems that sweep paths are a necessary item. The roundabout design feature being a big one and the rail feature another.

however there are quite a few routines that I, as a user, will never need as well in C3D. You should check the areas with overlapping or densed text. (vlax-put-property txt1 'TextString puttxt) (setq puttxt (strcat (vlax-get-property txt1 'TextString) ' / ' (vlax-get-property txt2 'TextString))) (setq txt2 (cadr (nth psindex pairstack))) (setq txt1 (car (nth psindex pairstack))) (setq pairstack (cons pairlist pairstack)) (setq pairlist (list (car (nth index11 ss1list)) distmin)) (setq distlist (vl-sort distlist (function (lambda (x1 x2)(< (cadr x1) (cadr x2))) ) )) (setq distlist (cons (list (car (nth index22 ss2list)) dist12) distlist))

(setq coord22 (cadr (nth index22 ss2list))) (setq coord11 (cadr (nth index11 ss1list))) (setq coord2 (vlax-safearray->list (vlax-variant-value (vlax-get-property obj2 'InsertionPoint)))) (setq obj2 (vlax-ename->vla-object (ssname ss2 index2))) (setq coord1 (vlax-safearray->list (vlax-variant-value (vlax-get-property obj1 'InsertionPoint)))) (setq obj1 (vlax-ename->vla-object (ssname ss index1))) (defun c:ECT ( / ss ssl index1 ss1list obj1 coord1 list1 ss2 ss2l index2 ss2list obj2 coord2 list2 pairstack index11 coord11 index22 coord22 dist12 distlist distmin pslen psindex txt1 txt2 puttxt ) If there is text with overlapping positions, it may not work properly. For example, if text group2 is less than group1, the closest group2 is copied. Because it simply works on distance-based, overwriting the text of the 1st selected group. Text content is concatenated between texts close to each other. You'll probably need to do a bit of thinkingĪctually, i don't have any knowledge of LISP routines, and this lisp working on the only single text as i have too many texts and it was taking a very long time, exporting excel is not a very big thing after merging those offsets and chainages i have glamsen CadTools i can export them but the only big thing is merging them one by one (vla-put-textstring txt (strcat (vla-get-TextString txt) sufx))Įnd the while loop here then you can use the MyTexts list to export to a spreadsheet, or create a CSV file or whatever you need to do.īut for now, how about having a go at getting the above working, don't need to do the while loop yet, get that later.

#Glamsen cadtools tutorial update#

Update the original text using MHUPP from above: (you can probably combine that step with the setq sufx step)Īppend that to a list for exporting to Excel (setq sufx (strcat ' ' (cdr (assoc 1 (entget (car (entsel ' Pick 2nd Text'))))))) (setq prefx (strcat (cdr (assoc 1 (entget (car (entsel ' Pick 1st Text'))))))) Have a go, learn some stuff and it is more satisfying How are you with LISP routines? I have to go out shortly and not gong to get chance to do anything for you just now but this is what I would be thinking, and you might be able to put most of this together, asking again for clarification of the harder parts. I have something similar to combine text but it is quite long for what you are wanting and would need some things removing. Select the chainage text and then the offset? You might need to do this with 2 mouse clicks per chainage rather than selecting a lot of the text in one go. If I am looking at it right, in your sample drawing there isn't an offset noted for each chainage distance? For example 7.300 offset is one text referring to a few chainages? Actually, every chainage has a different offset and this lisp merge one offset in all chainage,