eldon Posted February 14, 2012 Share Posted February 14, 2012 Which is why I hypothesized that if the text were to be placed with Middle Centre justification at the centre point of the circle, then you could just do the Data Extraction on the Text, whose insertion point would be the centre of the circle. The Data Extraction on the circles themselves would be superfluous. Quote Link to comment Share on other sites More sharing options...
SLW210 Posted February 14, 2012 Share Posted February 14, 2012 That is correct, sir. Quote Link to comment Share on other sites More sharing options...
BIGAL Posted February 15, 2012 Share Posted February 15, 2012 Watch this space testing something at the moment this needs debugging ; circlelay is the layer name the circles are drawn on ; circnum is number of circel ; circblock is a layer that the new blocks go on to ;(setq fname "c:\temp\test") ; (setq f (open fname "w")) (setq circnum (getint "\nEnter circle start number ")) ;(setvar "clayer" "circblock") (setq ss2 (ssget "x" '((0 . "circle")(8 . "0")))) (setq index 0) (setq n (sslength ss2)) (repeat n (setq en (ssname ss2 index)) (setq el (entget en)) (setq ip (cdr (assoc 10 el))) (command "._insert" "circlable" ip 1 1 0 circnum) (setq index (+ index 1)) ; you can delete the circle entitie if you want here (setq circnum (+ circnum 1)) (setq att (rtos circnum 2 0) (setq px (rtos (car ip) 2 3)) (setq py (rtos (cadr ip) 2 3)) (setq pz (rtos (caddr ip) 2 3)) (setq pnt (strcat att "," px ", " py ", " pz)) (princ pnt) ; (write-line pnt f) ) ; end repeat ;Close file (CLOSE f) (PRIN1) Quote Link to comment Share on other sites More sharing options...
ReMark Posted February 15, 2012 Share Posted February 15, 2012 FYI: The OP's drawing doesn't use blocks for the circles. The circles reside on a layer called STONE COLUMNS. Quote Link to comment Share on other sites More sharing options...
BIGAL Posted February 15, 2012 Share Posted February 15, 2012 (edited) Remark I understand just looking at a generic routine for any object to be replaced by a block then text can be anywhere the user wants far easier than trying to tye text to a circle just move one text doesn't work. But it replaces a circle and lables and writes a csv file. (setq ss2 (ssget "x" '((0 . "circle")(8 . "0")))) becomes (setq ss2 (ssget "x" '((0 . "circle")(8 . "STONE COLUMNS")))) almost there will add extra features like find last number used. ; circlelay is the layer name the circles are drawn on ; circnum is number of circel ; circblock is a layer that the new blocks go on to (setq fname "c:\\temp\\test.csv") (setq f (open fname "w")) (setq circnum (getint "\nEnter circle start number ")) ;(setvar "clayer" "circblock") (setq ss2 (ssget "x" '((0 . "circle")(8 . "STONES COLUMN")))) (setq index 0) (setq n (sslength ss2)) (repeat n (setq en (ssname ss2 index)) (setq el (entget en)) (setq ip (cdr (assoc 10 el))) (command "insert" "circlable" ip 1 1 0 circnum) ; you can delete the circle entitie if you want here (setq att (rtos circnum 2 0)) (setq px (rtos (car ip) 2 3)) (setq py (rtos (cadr ip) 2 3)) ; (setq pz (rtos (caddr ip) 2 3)) (setq pnt (strcat att "," px ", " py )) (princ pnt) (setq index (+ index 1)) (setq circnum (+ circnum 1)) (write-line pnt f) ) ; end repeat ;Close file (CLOSE f) (PRIN1) Edited February 15, 2012 by BIGAL Quote Link to comment Share on other sites More sharing options...
eldon Posted February 16, 2012 Share Posted February 16, 2012 I just had a look at the drawing posted by the OP, and because all the numbers seem to be placed at the same distance from the centre of the circle, it is but the work of a few seconds to change the Justification to Middle Centre, and move them all to the centre of their circles. Now Data Extraction on the Text will work perfectly to do what the OP is wanting Quote Link to comment Share on other sites More sharing options...
Tankman Posted February 16, 2012 Share Posted February 16, 2012 yes it is one of the technique for soil improvement,If u like shift the numbers inside circles and reply with appropriate lisp please Try Lee Mac's numbers included! Lee's always got something for everyone! NumIncV3-1.lsp Quote Link to comment Share on other sites More sharing options...
nad Posted February 28, 2012 Author Share Posted February 28, 2012 Dear all, the numbers could be shifted to the center of the circles "stone Column" , still how can I get coordinates of circles including numbers in excel 2007 sheet that is my object basically. Thanks, as I am really learning here a lot. Quote Link to comment Share on other sites More sharing options...
ReMark Posted February 28, 2012 Share Posted February 28, 2012 I thought that was answered already. Quote Link to comment Share on other sites More sharing options...
SLW210 Posted February 28, 2012 Share Posted February 28, 2012 I just had a look at the drawing posted by the OP, and because all the numbers seem to be placed at the same distance from the centre of the circle, it is but the work of a few seconds to change the Justification to Middle Centre, and move them all to the centre of their circles. Now Data Extraction on the Text will work perfectly to do what the OP is wanting Dear all, the numbers could be shifted to the center of the circles "stone Column" , still how can I get coordinates of circles including numbers in excel 2007 sheetthat is my object basically. Thanks, as I am really learning here a lot. Read eldon's post above. Search CADTutor or Google for Dataextraction from AutoCAD. Quote Link to comment Share on other sites More sharing options...
Bill Tillman Posted February 28, 2012 Share Posted February 28, 2012 well, what almost no one is saying....if you want to get the data organized like you're describing then you will need to either: 1. Be an ace LISP programmer who could parse all the fields from a Data Extraction process to associate points with the numbered circles. 2. Or have one of the ace LISP programmers here in this forum feel challenged enough to do it for you. IMHO - what the OP is asking for is a complicated process of associating bits of information which are scattered around the drawing. No real mathematical way to parse it will work. Not saying it couldn't be done, just that it's a very big challenge to pull off such a task. Hindsight is 20-20 and of course the best way to have done this would have been to have the points in a database first and then import them into AutoCAD. You could sort, resort, and place them in any order you want, but once you place them in AutoCAD the points become locked to their identities within the AutoCAD database. That said, you could go back and carefully re-enter all the points and you'd have to do it in the order you want them to appear in. Then when you do a selection of all these points you could dump them to a file and simply number them. I know nothing I've proposed is easy, but that's what your options look like from my point of view. Quote Link to comment Share on other sites More sharing options...
eldon Posted February 28, 2012 Share Posted February 28, 2012 IMHO - what the OP is asking for is a complicated process of associating bits of information which are scattered around the drawing. Did you actually look at the posted drawing? There is no scattering. All the texts were at a constant distance from the centre of their circle - or did you see different Data extraction will do exactly what the OP requires, when the text is moved as I said in a previous post. I fear that you are muddying the waters Quote Link to comment Share on other sites More sharing options...
ReMark Posted February 28, 2012 Share Posted February 28, 2012 Blessed are they that run around in circles for they shall be called 'Big Wheels'. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.