hasemboat.blogg.se

(setq Str(substr Mtext 3 (- (vl-string-search " " Mtext) 2)) 'vla-put-TextString(list vlaObj pasteStr))) (setq vlaObj(vlax-ename->vla-object(car nslLst))) (member(cdr(assoc 0(entget(car nslLst)))) (princ "\n Can't paste to block's DText or MText ") (= "INSERT"(cdr(assoc 0(entget(car(last nslLst)))))) 'vla-SetText(list vlaObj Row Column pasteStr))) HitPt(vlax-3D-Point(trans(cadr nslLst)1 0))

(cdr(assoc -1(entget(car(last nslLst)))))) (= "ACAD_TABLE"(cdr(assoc 0(entget(car(last nslLst)))))) 'vla-put-TextOverride(list vlaObj pasteStr))) (= "DIMENSION"(cdr(assoc 0(entget(car(last nslLst)))))) (defun TTC_Paste(pasteStr / nslLst vlaObj hitPt (defun c:ttc (/ actDoc vlaObj sObj sText curObj oldForm For AutoCAD 2000 - 2008 (isn't tested in a next versions) DISCLAIMS ANY IMPLIED WARRANTY OF MERCHANTABILITY OR FITNESS THIS PROGRAM PROVIDES 'AS IS' WITH ALL FAULTS AND SPECIFICALLY THIS PROGRAM AND PARTS OF IT MAY REPRODUCED BY ANY METHOD ON ANY block's DText and MText to: DText, MText, Tables, Attributes Definitions, DText, MText and inner Tables, Dimensions, Attributes, Attributes,

TTC.LSP - The program copies the text from: DText, MText, It’s a little tricky at first but you will get the hang of it… You place your cursor over a line in the table and the more of the pick-box that is in a cell will determine which cell the text gets placed in. When placing the text objects one tip to help is that the table cell that receives the text object is determined by how much of the pick-box (cursor) is in the cell. Specify whether you want to place text multiple time by choosing “Multiple” or “Pair-wise’ which will let you select a text object and then place it and then select another text object and place that object. This routine is a great routine that lets you copy existing text objects (DTEXT, MTEXT & Attributes) to table cells. After the website went down, the author basically dumped all the routines in a forum as he decided to move on and let anyone use these LISP routines. Link to There used to be a web site called where this particular LISP routine was posted.