I have excel tables that contain 4 columns of data.
The Y co-ords pf the required object
The X co-ords pf the required object
The rotation of the required object
The object number
What would I need to do to insert a block at the coordinates to the rotation shown then have a leader with the point number labeling the block (but the text not be rotated to the angle of the main block.
trying to insert point instead of block.
(setq blok (entget (car (entsel))))
(setq point (cdr (assoc 10 blok)))
(setq XX (rtos (car point) 2 20)) ;; x koordinata bloka
(setq YY (rtos (cadr point) 2 20)) ;; y koordinata bloka
(setq ZZ (rtos (caddr point) 2 20)) ;; z koordinata bloka
(command "point" xx,yy,zz) is not working
!xx="5582453.414999999" but when i (atoi xx) i get 5582453 no dedimals...
how to create valid insertation point from xx, yy and zz?
I write a program, this program needs to insert some standard illustrations. I made these standard illustrations into different blocks. And I store these blocks in a dwg file. Everytime I need to insert some illustrations, I just click the mouse on the current drawing, I want the illustration inserted. These means the following points:
(1) Import the blocks to the current drawing, if the blocks have already been imported, then do nothing.
(2) Specify the insert point by clicking the mouse, and I want the block's insert point to coincide with the mouse clicking point.
I'm inserting blocks into my drawing and the block has a basepoint and a 0,0,0 point. The CAD guy who usually works with me is off today but he has a keyboard method of switching between the 2 points when inserting the block.
Its a fairly straight forward thing on his keyboard, nothing he has set up but standard in autocad.
I've had a try hitting a few keyboard buttons this morning but can't seem to do it.
I am learning autolips and i found a problem that i can´t solved.
(vl-load-com)(defun c:pmb ( / ss ent pt )(prompt "
selec block : ")(setq ss (ssget '((0 . "INSERT")))) (setq ent (ssname ss 0)), (setq pt (cdr (assoc 10 (entget ent)))) (command "point" pt))
wich this code you select one block and insert one point at insert point´s block.
which this other code yo select all block and insert all point.... but in one block
(vl-load-com) (defun c:pmb11 ( / sele cod bloque nbloque lista pt ) (prompt "
block: ") (setq sele (ssget ( List'(0 . "INSERT"))) Cod 0 )cod (1+ cod) (repeat (sslength sele) (setq bloque (ssname sele cod)) (setq pt (cdr (assoc 10 ( entget bloque)))) (command "punto" pt) );repeat )
So i have a simple block of basically a point. i also have alot of points to input. I know i can attribute the block with promts such as levels or dates etc.. but is there a way to make the block do this by itself when level is already entered? also is there a way to insert multiple block (like the points) using excel concatenate function? or can i input the points and have date and level shown in a text form?
View 2 Replies View Relatedusing AutoCAD 2009 (vanilla)
I got too smart for myself today in bringing an old drawing up to current standards...Everyone seems to want their block attributes to be zero - I have blocks where the attributes are best when they match the rotations of each blocks.
I have an old drawing that was rotated (as it should be) at approx 2deg.
I used a lisp routine to global edit all the blocks that needed to be at zero. BUT for some reason (and after hundreds of blocks were corrected), I noticed I now have two blocks that should NOT have been in the set have had their attributes rotated to zero....and the attributes should be at the same rotation as their block's rotation.
Because those two blocks have a fixed tic mark, I can click on the mark to see what the block rotation is, then rotate its attribute to that rotation, but I have hundreds of blocks! One-at-a-time sucks....
Any chance there is a GLOBAL way to edit an attribute rotation to match its own block's rotation?
In previous versions of AutoCad I would just double click on a block do my changes click the save changes button and then a save dialogue would come up with an option to change the insert point. Did this option go away in 2013 AutoCAD? I do not get this option anymore after I finish editing a block? This is very useful. Why would this go away?
View 6 Replies View RelatedI have a drawing where I have placed all of my natural gas piping. I have all of the annotative blocks set to 3/32"=1'-0" and 1/32"=1'-0" scales. They are both correctly displayed in this drawing.
When I xref this drawing into another about half of the 1/32" blocks show up correctly. The other half are shifted to the right off of the plan. All of the 3/32" blocks show up correctly.
I need a routine that inserts a point at the insert point or block named "Insert_Point" at every block in the file. The routine could use the current layer, which would be set prior to starting the routine. If it could request the user for the PDMode value and PDSize that would be great too. This will assist me in creating block libraries.
View 9 Replies View RelatedI have been using copy paste with base point on block from drawing to drawing but sometimes the block insert but it is not showing. I go to insert block is there but does not show in the drawing. Then tried to purge it and it does not let me because it is in the drawing but I can find it any where. Then I tried to do the insert block look for the block and inserted as a block and the same result.
View 3 Replies View RelatedI have a lisp routine that I would like to add to. Right now when running the macro the user is not prompted to "Pick Point On Line" in this example
(command "insert" blk "s" var1 pause pause))
I have added the line
(setq pt1 (entsel "Pick Point On Line "))
(command "insert" blk pt1 "s" var1 pause pause))
but the command doesn't seem to like my PT1 value
BLK and VAR1 are set in another lisp routine.
I am making a template file having title block with fields. I use this template for creating layouts and sheets using Sheet Set Manager and the fields will be updated from the data of SSM. Now i would like to add a dynamic north block to my template. The block could be rotated (i have this block in file itself) and rotation angle could be inserted. Now how can i add a custom field to SSM so that i could set a rotation angle for the project and thus every new layout or sheet created using the template has the north block rotated with the angle mentioned in SSM.
Here is the file...........
is it possible to create a block so that the base point is the only snap point on the block?
In other words supose I have a block of a simple rectangle with the base point in the center.
If I try to snap to the block, I will be able to snap to all the corners, but not the base point. I know that i can put a point at the base point, but can I turn off the snap to the corners (just for the block) in other words, have an object that is unsnapable to without turning the snap mode off.
In uploading the Point input data into the AutoCAD Civil 3D 2013 software program, is it possible for me to add more Point Attribute items after Point Number, X, Y, Z? I need to have the chemical results/data attached to the (sampling) Point that has the Point #, X, Y, Z - like Point Number, X, Y, Z, Arsenic, Lead, Mercury in the input .txt (or .csv) file.
View 9 Replies View RelatedMy application inserts 4 DBText lines and 2 PolyLines into a drawing from another drawing(or Source Database). I created a special layer ("warning") into which these entities are inserted. Then I combined these entities into a group so the user can move it out of the way while they are working.
When the title block data is refreshed, I want to redraw my 4 lines of text and 2 lines at the location last set by the user. I have successfully implemented redrawing the object at the X and Y coordinates last placed by the user by using ent.TransformBy(Matrix3d.Displacement(acVec3d) on each entity at the source and then doing a DBSource.WblockCloneOjbects to put them in the destination drawing at the correct position.
However, if the user rotates the group, I need to make the rotation also. This is where I'm having problems. What is the best way to grab the rotation value(s?) from the existing, user placed group, and then redraw onto the drawing at that rotated value? Is there an easier implementation that the way I am doing it?
I want to add a point after the last point of a polyline. But this point really is the first point and the command insert vertex really insert a new point.So, a solution , reverse the polyline to insert points after the last vertex.
Nobody thought ever to offer a insert_first and add_last commands ?
I have created a dynamic block with a stretch, flip and rotate. Everything works great in its file. When I insert it in another file, the grips move but the block does not change.
AutoCAD 2014
I'm using Map 2013 and not seeing how to choose to use an expression to rotate symbols of attached shp data (see attached png file). I see where you can put in a numeric value but that's all. Maybe I am just not seeing something?
The "help" says you should be able to use an expression to rotate a symbol.
How can I rotate my point cloud to have the front view on the top. I want to optimize the surface creation on the lateral surface of a deck and not on the ground (top) surface. I think to rotate 90 degrees on the X or Y axis.
View 3 Replies View RelatedI am trying to insert tables into AutoCad from excel the problem that I have is with the text style.
Every time I copy and paste as a linked AutoCad entity the text does not come across as the correct text style - for example if I want the table text to come out as ISOCP it comes across in a bolder text, requiring me to enter in the cell and select ISOCP I don't have to highlight the text in the cell i only have to enter inside the cell.
See the attached video.
I have a block that i want to insert several times and revised each one to be different to do this i would have to insert it and rename the blocks that come in and then reinsert i would like to insert and have a lisp explode the main block and rename the other 2 blocks with a suffix at the end depending on how many times its in the drawing... can this even be done? My original block name that will be first inserted is "BENT PULLEY NOTES" it needs to explode after i drop it in and then there are 2 blocks within that called "Bent Pulley" and "Bent Pulley DYN" that i was hoping to keep the names but add a number at the end depending on how many are in the drawing already...
here is a lisp that i have found... it would work if i didn't have nested blocks and only wanted the one block to be insert and not explode...
(defun c:Test (/ e i name Bname )
(setq e nil)
(command "_.-insert" "Drawing1.dwg" pause "" "" "")
(if (setq e (entlast))
[Code] .......
I have a pallete button that inserts a block then a drag jig to position it. The block is first inserted at 0,0 and dragged.
The block at 0,0 remains visible while a "duplicate" block is dragged. Is there a way to hide the original?
Insert block then calling the drag jig..
AddViewBlock(New Point3d(0, 0, 0), 0, ColorIndex, trans) psr = ed.SelectLast() DragView(psr.Value, "Bar Insertion Point")
In the DragView procedure I have:
Public Sub DragView(ByVal SS As SelectionSet, ByVal sPrompt As String)
'....
Dim ppr As PromptPointResult = ed.Drag(SS, vbLf & sPrompt, New DragCallback(AddressOf MyDragCallback))
I am trying to insert a dynamic block and position and stretch the block, using the linear parameters, depending on values entered into a form.
I managed to create a form that would draw a series of boxes. And i managed to create a routine that would insert a block and size it depending on fixed values but i can't link the 2 together.
Win 7 Pro 64bit, Dell Precision M6500
I would like to rotate my Cogo point label so that i will be able to see it from a set view or a different UCS. Example I would like to see the label in the "LEFT" view.
View 1 Replies View RelatedI have made a configurator, that defines my part. Now i would like to add some intelligence for the Save process...
When i activate my rule it should.:
1. Go to a Excel spreadsheet and find next Empty cell in a specific collum
2. Place Title from inventor in that empty cell
3. Return the value from the cell next to this cell
3. Use this value as the new filename for my part.
Example: here i would like to get the parts tile put into B3 and A3 (103) returned to Inventor as filename to my part
--------------------
A B C
1 101 Title1
2 102 Title2
3 103
If possible, i would like to be able to adjust this alittle as i go forward in my work,
I would like to link a cell value in excel with the partnumber from a assembly in Inventor. How can I made this link?
View 1 Replies View RelatedI want a part number which is made with a parameter write to excel to the excel sheet to link to acad. I have the following code that runs smoothly and requires the excel sheet to save but get nothing written in the cell.
GoExcel.CellValues ("M: AutoCAD AutoCAD 2012 Inteco3D File Test ExportPartNumber.xlsx", "Sheet1", "A1", "A10") = MultiValue.List ("Part Number")
Is it possible to use iLogic to insert a row into excel?
View 1 Replies View RelatedTrying to figure out the best method to insert an IDW into an Excel spreadsheet without sacrificing quality. I have tried several methods to go straight from Inventor(2012) to Excel(2010) using print PDF at press quality, export JPEG, and even the snipping tool as a last ditch effort all of which inevitably loose all line quality when inserted to Excel.
I have only had success bringing a PDF from Inventor into Adobe InDesign where I am able to mimic the design of my Excel spreadsheet and create an additional PDF to include with the Excel document. It seems like there would be an easier way for Inventor and Excel to work together without sacrificing quality or adding additional steps.
I`m trying to insert an excel spread sheet in to inventor drawing, for some reason inventor cuts off 2 last rows. Is there a limit of how many rows can be inserted ?
it cuts off these two: see attached.
13.2 45FT R2440 Gasket Material Vinyl Foam Strip 2" wide x .125 thk., Black, Weather-Resistant
14 12 TUBES C11272 CAULK, SILICONE - CLEAR