I have several blocks spaced evenly apart and I need to copy and paste another block and insert it with the same spacing. I don't want to take the step to find out how far apart they are. I believe there's a way to use the insert command to figure out the distance the next block needs to be placed when I paste it.
I'm not sure if I'm describing it correctly or if I can paste the block using the insert command.
It's the part of project: I need read some named Blocks from a sample DWG and copy (clone) them (one at a time) to a new drawing.
There are 2 possible way to do it:
1. Database.Insert - it does allow you pass in location point but it takes whole DWG file not blocks inside the whole DWG;
2. Database.WblockCloneObjects - it takes blocks as parameter but it doesn't pass in with location information you want them there.
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 have blocks with several attribute tags and layers. The problem I am having is somehow when I go to replace the block with a different one the attribute tags stay in the right spot but the symbol acts like it looses its coordinates and comes in a different spot. I cant seem to fix it. When I zoom all it block editor it zooms like I have a symbol way off the mark, but I don't.
View 2 Replies View RelatedI 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 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 )
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
To Set Geographic Location from a Map, the Autodesk users manual says to "Click Insert tabLocation panelSet LocationFrom Map"
There is no location panel on any insert tab that came with Civil 3D 2014.
What am I missing?
I am using Autocad 2007 I made several blocks with att. And I use this drawing and copy it to the samples/design center folder so that I can see the blocks that I created on the Design center window for use on different other drawings.
My problem is that if I make a cange on the ORIGINAL block drawing how can I update the inserted blocks on the other drawings? I try to delete the block from the local drawing insert block list (is this possible?) to paste the block again with the new changes, but somehow even when I grab the new modified block to inserted again when I do it, it takes the shape of the old version!
Is it possible to create a block to insert on our title block that will populate itself with a list of drawings and names?
I know this is possible through the use of LISP and the Sheet Set Manager, but could this be done through a combination of attributes and fields (we want the same functionality in LT).
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?
Drawing contains a block with "BlkName". I want to insert blockreferences of this existing block using .Net. All shows how to insert a new block and then use the BlockID returned by the insert function. In my case I only have the block name and there is no Block id. How to get it or how to create a block reference of an existing block?
View 3 Replies View RelatedAm working on iProperties and i am trying to find the iProperty Location. I tried
-Inventor User Defined Properties
-Inventor Summary Information
-Design Tracking Property
But i am unable to find the Location iProperty.. how to find this location.
Land Desktop 2009 Civil 3D Companion
When I issue the Wblock Command I can not find the Dialog box to select objects and file location... This happens in the Layer Dialog when I try to change the color of a layer, the Color Dialog box can not be found. When I use the Block command the dialog box pops up, so I can see it.
fildia>1
cmddia>1
attdia>0
We have user folders on severall servers, now I want the user menu's to be stored on the network so their home folder depends on what server it's located on. I tried using the vl-file-directory-p command but it doesn't seem to work.
Even worse, as soon as the userfolder is found I want to let the script check for a file called user.cuix in the Acad folder and if it doesn't excists copy it from another location to that folder (if possible).
This is what I got so far:
(setq UserName (getvar "loginname"))
(setq RootZW "\\users\zw\")
(setq RootVL "\\users\vl\")
(setq Company "\\CADConf\ACAD13\")
[Code] ..........
Next to this we have 4 other options as well, but to keep it short I left it at the first 2.
I have about 10 instrumentation enlarged plans that are drawing in model space and all the equipment text and instrument bubbles and blocks are in paper space.
All of the drawings are at 1/4" but they are getting loaded down with too much info, so we are cutting each of them into twenty drawings instead of ten. While I can change the view port very easily and scale it up accordingly, after I do that I will have to re arrange the text and blocks. I'm looking for a way to scale the blocks and text in a way to where it will change the location of the text and blocks, without actually changing the size. So I bring the drawings up from 1/4" = 1'-0" to 1/2" = 1'-0". If I scale all of the blocks up by 2, it will put them in the right location, but all of the text and blocks will be too large. I could select them all and change their scale down in the property palette, but I would still have to trim down all of the leader lines going from the instruments to their bubbles.
Long story short, is there a way to scale a block or text from a basepoint to where if you scale it, it will change it's location, but not the scale of the block or text?
Is there a way to find a location on an image.? Let's say I have an image of 1024 x 768 and I want to find the pixel at 354 x 47. How do I do that? Right now I'm using the rectangle selection tool and dragging it around because I can see the coordinates at the bottom of the screen which seems a little
View 2 Replies View RelatedUsing the command -insert -blockname = filename successfully? What I have tried is:
^C^C_-insert;"Insulation - 25-50mm"="K:/All Staff Personal Folders/Personal_Charles Edwards/Autocad/Blocks/Detail Blocks/Insulation - 25-50mm.dwg";
Trying to run this I get:
Command: _-insert
Enter block name or [?]: Blockname="K:/All
""K:/All.dwg": Invalid file name.
*Invalid*
I have to write a procedure for insert a block with attributes from an external file and set the annotative scale block to current scale. where I cand find an examples?
View 2 Replies View Relatedis there a way to insert a block in the drawing, but with a different name, so it can be edited separately?
I have block A in the drawing and i want to insert it again, but then edit it while the ones already inserted stay unchanged. So i would need it to be inserted as A_1.
I defined a 3d block..It is defined along X axis...I want to insert it into a ucs by picking 2 points( insertion, and direction) and that Block Z axis to be parallel with UCS z axis
I insert the block first then I rotated it..I have got this
P1 is insertion poit
P2 is the point for direction
P1 world is p1.transformby(current ucs)
Dim Xax_block As Vector3d = Block1.BlockTransform.CoordinateSystem3d.Xaxis.TransformBy(Block1.BlockTransform)
Dim VectorP12 As Vector3d = P1_world.GetVectorTo(P2_world)
Dim RotAX As Vector3d = Xax_block.CrossProduct(VectorP12) ' here is calculating the perpendicular vector between x axis of the block and the vector from point1 and point2
Dim Rotation1 As Double = Xax_block.GetAngleTo(VectorP12)
Block1.TransformBy(Matrix3d.Rotation(Rotation1, RotAX, P1_world))
By picking 2 points is inserting the block along the line between 2 points...But is not having as normal the z axis of the ucs..
I have a problem with inserting 3d blocks in autocad 2011. While inserting a block, i specify insertion point on-screen and blocks seems to be inserted to right place but block itself is far away from the drawing (eg. if i type zoom --> extens = drawing and inserted block are totally different locations on model screen.)
View 1 Replies View RelatedI’m trying to save myself a bit of time and was wondering if it is possible to have part of the file location displayed in the title block?
The current title block we are using shows the full file location of the drawing but I was wondering if it is possible to show only part of this?
The reason I am asking is that when a project progresses to the next stage we have to go through each drawing and change the status to warrant, tender, construction etc. so I am looking for a way that this can be done automatically and I was thinking if only part of the file location could be used this process could be done by simply moving the drawings to the next folder? Our projects folders are split down in to subfolders for planning, warrant, tender etc. which corresponds with the status field on your layout. So instead of having to update this status manually every time the project progresses this would update to the folder that the drawings are in.
Example:
I:Projects## - Project TitleDrawingsConstructionGround Floor Plan.dwg
Am trying to get the "Construction" folder to display in the status field on the layout.
I check online that AutoCad should have a 'grips' function, but I cannot use it because 1) I cannot find the grips and 2) I want to move the hole into an accurate position. I want to do the following simple task. Please first read the attached picture. Assume now I want to edit 3D model by changing the hole center to another location and double the radius. How I can do those? (I could not find any properties to edit)
Capture.jpg
Where in my folder tree is the catalog I use for Adobe Photoshop Elements 9 likely to be located. I have just installed Elements 11 and i want to find my old catalog? I have got Windows 7 Home Premium IE9
View 1 Replies View RelatedAm I along the correct workflow path here? I want to insert a drawing as a block into my current drawing. Before I start writing code I want to make sure I understand the steps.
Open Transaction
Wblock Drawing to Temp Database
Now have my New BlockTableRecord Object
Copy BlockTableRecord to ActiveDwg.Database
Create New BlockReference
Add attributes
Set Scale Properties
Set Insertion Point
Set Rotation
Append BlockReference to Database
Commit Transaction
Am I missing any of the steps?
Is this how I would imidate the old VBA modelspace.insertblock(myPoint, "C:pathpathpathlock.dwg",1,1,1,0)
I am inserting a block from another file to the current drawing file.
I am using C#.Net.
My block gets added into the blocktable record of the current file, but while inserting the block using the "Block" command in AutoCAD its shows an error "The Existing Block has not been modified" I have attached a screenshot of the message i am getting.
I want to insert the block automatically to a user specified location.
So i've been able to successfully import a single block at a time into an active drawing, now i'm trying to insert the same block multiple times to essentially create a layout within the drawing. How would i go about inserting a selected block "x" amount of times. What i've got so far is this:
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
[Code] .....
ideally this next section will iterate the import process "x" amount of times and allow for effetive block placement!
Below is part of some code that i had used to copy a paperspace layout "x" amount of times. I understand the iteration part but am not sure how to apply it to a block. I don't know how to reference the block that i intend to insert and then have it populate "x" amount of times.
/*
for (int i = 1; i <= numLayouts; i++){
lm.CopyLayout("Layout1", "SP-" + i.ToString());
Layout layout = (Layout)trx.GetObject(lm.GetLayoutId("SP-" + i.ToString()), OpenMode.ForWrite);
}
[Code] .......
I have this one file .txt with this features:
Point North East Z Description
1 8618063,68 312415,09 75,87 T1
2 8618138,38 312428,89 70,57 B_RIO SECO
3 8618132,23 312427,75 71,90 ARENAL
4 8618126,23 312426,64 72,50 ARENAL
5 8618112,22 312424,06 73,77 ARENAL
6 8618099,78 312421,76 75,35 ARENAL
7 8618089,51 312419,86 75,84 ARENAL
8 8618132,23 312427,75 71,94 J
9 8618112,23 312424,06 73,88 J
10 8618099,82 312421,78 75,36 ARENAL
11 8618089,48 312419,87 75,85 E_1
And I generated this code for read this file and insert one block with attributes for each line of text…..
If txtPath.Text() = "" Then
MsgBox("Select DB .txt.", MsgBoxStyle.Exclamation)
End If
On Error GoTo ControlErroresBD
Dim AcadDocPt As Document =
[Code] ....
‘To the end of this line I can insert the block,,,,,,, but I don’t know how to write the attributes…… I tried with the next code but it doesn’t work…. My bloque has 3 attributes and every tag named with “PN”, “CD” and “CT”
Dim AcadObj As Entity
For Each acObjId As ObjectId In AcadBlockRef.AttributeCollection
AcadObj = AcadTransPt.GetObject(acObjId, OpenMode.ForWrite)
Dim acAttDef As AttributeDefinition = TryCast(AcadObj, AttributeDefinition)
[Code] .....