#Glamsen cadtools tutorial update

(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? When drawing ellipses, the cursor will be located at the corner of the bounding box of the ellipse - not at the edge of the ellipse itself.Actually, every chainage has a different offset and this lisp merge one offset in all chainage, Isometric ellipses work in the same manner. The cube icon in the CADisometric palette indicates which face you are drawing. (Bottom faces can only be created if your isometric view is rotated so that the bottom view is showing.) Hold down the shift key to create a square in isometric view. To create a top or bottom face, hold down the alt/option key after you begin dragging.

To create a side face, hold down the command/control key after you begin dragging. To draw a front face rectangle, click and drag to the opposite edge. To numerically create the rectangle, click once on the document. To create an isometric rectangle, select the first isometric drawing tool - the isometric rectangle tool. Click on the triangle at the end of the tool group to tear off the isometric tool bar. Like other tool groups, the isometric drawing tools can be pulled out for easy access.