Search the Community

Hi All, I'm having a little trouble figuring out how to center my text in the middle of the rectangle after its created. Here's what I have so far, it works but it waits for me to place it. Also I do a lot of panels that are the same size so I also want the lisp to remember the last input so I can continue to use it until I hit escape or return. If I could get some help I would appreciate it. (defun C:CRP7() (setq cmdold (getvar "cmdecho")) (setvar "cmdecho" 0) (setq PL (getstring "Enter a Panel Label :")) (setq PA (getpoint "Select Panel Area :")) (command "-boundary" "Advanced" "Island" "No" "Nearest" "" pa "") (command "_.change" (entlast) "" "_p" "_la" "Router - Green - V groove" "") (setq ts(getvar "textsize")) (setq tsty(getvar "textstyle")) (if(= 0 (cdr(assoc 40(tblsearch "style" tsty)))) (progn (command "text" "Justify" "Center" pa ts 0 PL))) (setvar "cmdecho" cmdold) (princ) ) Thanks Brian

When I use plot to pdf, I look at the pdf and everything looks fine, however when I plot said pdf file I get text that is "in jail" the only thing that is different between the different text file is using wipeout or mask, will show the bars. I've tried to upload a pic, but its not letting me.

Hi This is my first post in this awesome forum:). I’ m newbie in drafting Kindly help me with a lisp program. That Asks the user to select various texts in the drawing Places an attribute text over the selected text without replacing them Makes an attribute block with that att texts The values of the att block should contain the texts Note: the tag name should be following a number system (If I have selected 3 texts then the tag names can be antas1,antas2,antas3 or yourname1,yourname2,yourname3:P) Please help me. Daily I have to spend one hell of time in this work:cry: .

Guys, I need one help, someone knows one Lisp that I can get Texts (words) on AutoCad and export it in order of selection to a cell on Excel... Eg.: If I have 10 words, as I'll selecting it and when finished these then words will be exported to a cell (could be cels) to Excel. Thanks in advance...

Hi CADmates, I have drawings full of dimensions overlapping on each other. Should any one let me know how to get rid of this position via programming? I tried some coding to move text of dimensions, but no success on associative dimensions. ;| (MT:Move:DimensionText<-Ename (car (entsel)) nil 0 1 0) |; (defun MT:Move:DimensionText<-Ename (%ename% %absolute|relative% %x% %y% %z% / *entlist* *assoc11*) (setq *entlist* (entget %ename% '("*"))) (cond ((/= (cdr (assoc 0 *entlist*)) "DIMENSION") nil) (T (setq *assoc11* (cdr (assoc 11 *entlist*))); text position (setq *assoc11* (if %absolute|relative% (list %x% %y% %z%) (list (+ %x% (car *assoc11*)) (+ %y% (cadr *assoc11*)) (+ %z% (caddr *assoc11*))) ) ) (setq *entlist* (subst (cons 11 *assoc11*) (assoc 11 *entlist*) *entlist*)) (entmod *entlist*) ) ) ) I appreciate any help

Hello! I've run into this a couple times lately. Text or mtext will become a squiggle. This is usually in a block, maybe even within a block in an xref. Hopefully the image shows below.

I'm sorry if I'm posting this question on the wrong place, it's my first one on the forum I have a drawing in which there are some polylines/objects drawn (usually rectangles) with some text next to them. I'm using a lisp to get their x and y coordinates to excel, but my problem is that I have to associate them to the text somehow. Just so you'll understand, I'm doing this because I'm trying to automatize my project drawings, in which I have to paste blocks to the center of each of these rectangles. I’ll use excel to build the command lines for a script with the block name and x,y coordinates, and the script will paste the blocks on these coordinates provided by the lisp. But without the text there’s no reference of which block belongs to which line on excel. I have a simple drawing to illustrate it, along with the lisps and script I'm using. If anybody could help me I would really appreciate it, since these projects can sometimes add up to more than a 100 rectangles . If you have any other solutions I’ll be happy to try them. Thank you very much PS: The insert block script is just an example with some random coordinates Excel Script Builder.xlsx BLOCO118.dwg BLOCO116.dwg Insert Block Script.scr 409-OC-E01R0 - Planta de cargas - Formas - SALAO.dwg Center Extract.lsp

I have mirrtext set to '0' so it doesn't mirror the text (which i want, so that's great) however, it does mirror the text justification which drives me nuts. is there a way to fix it so it doesn't change the text formatting at all? please see images. one is non mirrored and you can see the blue grips indicating the change in justification from the left to the right. oops, the first one is after it was mirrored and the second one is pre mirror

Hello Everyone, This will be my first post to this forum.. Lets make it a good one. I have just received an AutoCAD .dwg file from an outside source and when I open the drawing, all my text that should be fractions is showing up with some funny coding instead. It seems that my computer is not set up to read this coding. Is there any easy way to update all that text at once? See the attached snapshot to get an idea of what Im talking about. Thanks for any help in advance.

Just need some help with a simple routine that I starting tweaking. Originally the routine was written to enter text and sized it based on the DIMSCALE. It also featured an option to type "A" after you typed DTEXT, to be able to add lines to the specific line of text selected. The problem I am having is I am getting an error: bad argument type: numberp: "0.08". I need it to where is doesnt look at DIMSCALE anymore just the standard 0.1295 spacing. See code below. (defun add-text () (setq exist_text (entget (car (entsel "\nPick last line of Text: ")))) (setq exist_just (cdr (assoc 72 exist_text))) (cond ((= exist_just 0) (setq just "") (setq ins_pt (cdr (assoc 10 exist_text)))) ((= exist_just 1) (setq just "c") (setq ins_pt (cdr (assoc 11 exist_text)))) ((= exist_just 2) (setq just "r") (setq ins_pt (cdr (assoc 11 exist_text)))) ((= exist_just 4) (setq just "m") (setq ins_pt (cdr (assoc 11 exist_text)))) ((not exist_just) (setq just "") (setq ins_pt (cdr (assoc 10 exist_text)))) ) (setq text_pt (polar ins_pt (* 3 (/ pi 2)) (* 5 (/ t_size 3)))) ) ; ; (defun c:dt () (setvar "cmdecho" 0) (setq t_size ".08") ; ; is text height = 0.0 for current style? ; if not, change height to 0.0 and save current height ; (setq ts (getvar "textstyle")) (setq style_info (tblsearch "style" ts)) (setq th (assoc '40 style_info)) (setq text_h (cdr th)) (if (/= text_h 0.0) (command "style" ts "" 0.0 "" "" "" "" "") ) ; ; change layer to predetermined text layer ; (setq c_layer (getvar "clayer")) (command "layer" "s" "TEXT" "") (princ) (setq just (getstring "\nJustification or <A>dd Text Under Existing Line of Text: ")) (if (or (= just "a") (= just "A")) (add-text) (setq text_pt (getpoint "\nInsertion Point of Text")) ) (princ "\nText:") (if (= just "") (command "dtext" text_pt t_size "0") (command "dtext" just text_pt t_size "0") ) ; ; return to original layer and text height values ; (command "layer" "s" c_layer "") (if (/= text_h 0.0) (command "style" ts "" text_h "" "" "" "" "") ) )

why do multileaders and dimensions have style commands and dialogue box (dimstyle, multileaderstyle) but text doesn't? It seems like it would be essential, or am I missing something. Just saying.

Used to use servCAD that had a tool that rotated text to "E" no matter how the viewport was rotated. Say the viewport is rotated where W is straight up. The text would need to have a rotation of "N" for it to be horizontal across the page in model space. Now that I have Civil 3D 2015 I do not see any tool pac or command that I can use to be efficient in this. The problem is time. Time is money. If a viewport was originally with North straight up and text had a rotation of "E" and I changed the viewport to West straight up, is there a quick way to change the properties of all the text? Besides match properties. It takes too long to individually select each text and rotate all of them. Even if I select all the text and change the rotation in the properties I have to go back and move all the text so it lines up with leaders and whatnot. I feel like I may have rambled on a little too much but hope this all makes sense. I am the worlds worst describer of my thoughts. Any insight would be wonderful. Thanks, Miller

I have an autocad drawing with so many light fixtures with all different names.Now we have to change all those names, i already have an excel sheet containing two columns with first one containing "name in drawing" and second one containing respective "new name". Is there any way to replace the names in cad file using that excel sheet.i just dont want to do all those thousand rename manually ...please some cad-guru help me

I'm trying to find a lisp routine that searches the current drawing for a certain string and replaces that with the string of a variable already defined by the user (in this case the text to look for is "****" and the variable is called "offerte"). Not only in the Text, Mtext but also in the Blocks, Dynamic blocks, attributes and fields... Following code gets the job done but only for normal Text and Mtext. (defun tekstreplace (/ tss tdata) (setq tss (ssget "X" (list (cons 1 "****")))) (repeat (sslength tss) (setq tdata (entget (ssname tss 0)) tdata (subst (cons 1 offerte) (assoc 1 tdata) tdata) ) (entmod tdata) (ssdel (ssname tss 0) tss) ) ) Thanx in advance for any comments!

What should be the Logic to find out duplicate number from a nubmer series. like 110 111 112 113 114 111 110 111 115 116 along with there (x,y) For Ex. 110 is repeated 2 times ("110" ("1057.03 475.00" "821.46 436.99")) ;;("num" ("1st x y" "2nd x y")) 111 is repeated 3 times ("111" ("614.88 467.76" "422.80 605.32" "1524.55 420.70")) ;;("num" ("1st x y" "2nd x y" "3rd x y")) so that we can put them in 2 tile list box. In first tile num and in second tile its all x y.

I look for a routine that will resolve the following task: 1 - I select a group of text entities (in this case numbers) 2 - Then I draw a point near the position of one 3 - Finally, the routine must be able to replicate the point in the other text strings, maintaining the same close relationship defined in step 2 Attached a drawing to better understand Tanks for help! cadtutor_test_points.dwg

Hello guys! I have a problem with the text boxes: If I write something in a text box and set the whole text to left, after save and open again the dwg the text is set in the center. Why? after saving: after re-open the dwg: Do you have any idea why happens it? Could you help me? Thank you for your answer!

We have some text objects that having long text strings like 500 character so i need a lisp that can split the text into 45-45 characters and make them separate object of 45 character. the reason of this is we have to export the text in other software and that software don't support more than 45 character string. so now we are manually spiting them.

I have parcel IDs (numbers as text objects) in a layer. I like to find out duplicate Parcel IDs and Missing Parcel Ids in sequence.

When I generate a new drawing it creates a text file with information. Autocad updates text automatically from this file using specific layers that the string is on in the drawing. Depending on what layer a string is on, that will determine what information it is updated with. With that being said, it will not update ATTRIBUTES within a BLOCK. Can someone help. I am willing to discuss and assist with figuring this out. I will be automating some information for my titleblocks and ALL of our titleblocks are blocked with attributes. Here is the code used to update the info (defun uinfo () (princ "\nUpdating Drawing Information...") (if (= found 1) (progn (setq dummy (read-line infile)) (setq desc (read dummy)) (setq dummy (read-line infile)) (setq drawing (read dummy))) (progn (setq desc '(1 . "- NEW EQUIPMENT -")) (setq drawing '(1 . "- UNASSIGNED -")))) (setq sset (ssget "X" (list (cons 0 "TEXT") (cons 8 "TITLE")))) (setq lp 0) (while (< lp (sslength sset)) (setq ent (entget (ssname sset lp))) (setq entinfo (cdr (assoc 1 ent))) (if (= (substr entinfo 1 4) "Desc") (entmod (subst desc (assoc 1 ent) ent))) (if (= (substr entinfo 1 4) "Draw") (entmod (subst drawing (assoc 1 ent) ent))) (if (= (substr entinfo 1 3) "Dwg") (entmod (subst drawing (assoc 1 ent) ent))) (if (= (substr entinfo 1 4) "DESC") (entmod (subst desc (assoc 1 ent) ent))) (if (= (substr entinfo 1 4) "DRAW") (entmod (subst drawing (assoc 1 ent) ent))) (if (= (substr entinfo 1 3) "DWG") (entmod (subst drawing (assoc 1 ent) ent))) (setq lp (1+ lp))) (setq sset nil) (setq lp nil) (setq sset (ssget "X" (list (cons 0 "TEXT") (cons 8 (strcat tcircuit "-EQMRK"))))) (setq lp 0) (if (/= sset nil) (while (< lp (sslength sset)) (setq ent (entget (ssname sset lp))) (setq entinfo (cdr (assoc 1 ent))) (if (= (substr entinfo 1 4) "Desc") (entmod (subst desc (assoc 1 ent) ent))) (if (= (substr entinfo 1 4) "Draw") (entmod (subst drawing (assoc 1 ent) ent))) (if (= (substr entinfo 1 3) "Dwg") (entmod (subst drawing (assoc 1 ent) ent))) (if (= (substr entinfo 1 4) "DESC") (entmod (subst desc (assoc 1 ent) ent))) (if (= (substr entinfo 1 4) "DRAW") (entmod (subst drawing (assoc 1 ent) ent))) (if (= (substr entinfo 1 3) "DWG") (entmod (subst drawing (assoc 1 ent) ent))) (setq lp (1+ lp)))) (princ "Done.") (prin1)) Here is the actual routine used to provoke the update of all information in the drawing based on its respective layer. (defun C:UPDATE () (setvar "CMDECHO" 0) (setvar "MENUCTL" 0) ;; (command "._snap" "0.03125") (command "plinewid" "0.0") (if (null filename) (setq filename (getstring "\nPath and name of update file: "))) (if (null tcircuit) (progn (C:EQUIP2)) (progn (makenames tcircuit) (checklayers tcircuit))) (if (null tcircuit) (progn (princ "\nCurrent name has not been established") (princ "\nplease type EQUIP and establish current equip. or make new")) (progn (openfile) (seek-tcircuit) (if (= (getvar "userr1") 0.0) (setvar "userr1" 3.0)) (if (= (getvar "userr2") 0.0) (setvar "userr2" 1.0)) (if (ssget "X" (list (cons 8 "CIRCUIT-INFO") (cons 0 "TEXT"))) (uinfo) (repeat 2 (read-line infile))) (if (ssget "X" (list (cons 8 "TITLE") (cons 0 "TEXT"))) (udates) (repeat 2 (read-line infile))) ;; (uinfo) ;; (udates) (if (= found 1) ;; (progn (udp) (uext) (uldar) (uvalve)) (princ "\nNO INFORMATION TO UPDATE")) (closefile))) (command "._-layer" "s" PIPING "") (princ)) I need to add to the code so that it will update the defined text strings of attributes within a block. IF you have any input or any questions I would appreciate everything.

I have a text box in the bottom left of the page that acts like symbol clipping on dimension lines. Even when the layer is frozen it still hides the dimension lines. I get how making the text box smaller will make the footprint of the box less, but is there any way to make it transparent? It would make sense to be able to promote the .ipt above the text box, other situations allow you to bring objects forward/send backward. This is just annoying and can't figure out how to make it work. Any help would be appreciated.

Hi All, Not sure if this is the correct forum to post this in. But I'm having trouble with formatting a table a certain way. I am creating a table with a user input. User will input a footage as in 500 and it formats to 500'. Or a diameter in a separate column which will format 2 into 2". I did this by adding a suffix using additional formatting after choosing the data type "whole number." My problem en lies than even after i make the cells "format locked" it wipes away this formatting after i hit delete. Say I wanted to change a footage from 500 to 400. I hit delete then enter 400 and the formatting I did for the cell vanishes and it populates as 400 instead of 400'. Is there anyway to keep that formatting after I delete? Maybe a system variable? Thanks. I can upload an example file if more info is needed... thanks, rushmore edit: also i am using AutoCAD Map 3D 2014

Hello Everyone, I'm new on forum. I search for a very simple LISP which inserts (on centre in object or bottom, no matter) text with AREA and PERIMETER from RECTANGULAR or closed LINES. e.g. area - "1,23 m2" and perimeter - "2,45 m" Best when I can select more objects and than for the all selected the text will be written. And this function for the two parameter should be writen together. Not that I must first use one command than second. The font height should be possible to change. Precission should be: 0,001m or 0,01m. Could anyone help me? Sorry for my english Thanks!

Does someone have a routine (or know of a way) to reorder a column of text items? ie: Line 1 Line 2 Line 3 Line 4 to Line 4 Line 3 Line 2 Line 1 I have a large table of text that I need to flip the column order. Has someone posted something along these lines? Is there an Autocad command I don't know about? I have had no luck in any of the search terms I have used.. Thanks for all the help you guys provide...

Hi Guys, I have attached 2 quick screengrabs of my drawing, one directly from CAD (CAD_Screengrab) & the plotted/print result (Plot_Screengrab). Basically I want the result of how it looks in CAD but I currently get nothing like it. The two issues I am having, firstly in the lower left elevation (hidden visual style) the dimms red text comes out very faded and pink. I have tried command 'XDWGFADECTL' but no difference. Then secondly in the top right isometric view I want it to print with the shades of grey effect but it comes out hidden. Much appreciated guys.