I have some blocks with lines and some attributes.
I want to be able to rotate the block freely but I want to always have the rotation of the attributes at 0 deg.
Is there any way to lock the value of the attributes rotation to 0?
using 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?
Title Block.dwg
I am trying to create a custom Title block and want items such as Title, sub title and location to be locked in place but editable when inserted. The next requirement I have is to have these attributes rotated 90 degrees.
What I am getting is a block that in the editor looks exactly the way I want it to. However when I import the block into Paper Space and enter the information, those attributes that were defined as 90 degrees are presenting without any rotation at all.
I have an interior elevation callout block with four arrows, noting the N, S, E, W interior wall elevations. I trick I use to rotate Text while keeping the Text oriented in the upright position is to place a Point Parameter at the center of the text then set the "Chain Actions" to Yes. Then I use the Move Action to tie the text to the Point Parameter. Next step is to use a Rotation Action to select only the Point Parameter, which rotates the Point Parameter and brings the text along with it, keeping the text oriented in the upright reading position always. As an example, think about a viewport tag with a North arrow, and the letter "N" at the arrow tip. When you rotate the arrow, the "N" position rotates with the arrow's point but always is oriented upright.
View 3 Replies View RelatedI 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...........
From the attached image you can see what I'm talking about.
(left=original, middle=ROTATE, right=PROPERTIES)
When I rotate blocks using ROTATE command everything is fine, but when I rotate blocks using PROPERTIES my attributes get messed.
I need to rotate several blocks at once with PROPERTIES, because I don't have time to rotate each one separately.
The same thing happens when scaling blocks, but this was resolved using the command BSCALE in the command line.
here is my jig rotate code
Protected Overrides Function Sampler(ByVal prompts As JigPrompts) As SamplerStatus Dim myPPR As PromptPointResult myPPR = prompts.AcquirePoint(myOpts) Dim curPos As Point3d curPos = myPPR.Value If curPos.IsEqualTo(BasePt) Then Return SamplerStatus.NoChange Else myMatrix = Geometry.Matrix3d.Displacement( _ BasePt.GetVectorTo(myPPR.Value)) Dim pt1 As New Point2d(BasePt.X, BasePt.Y) Dim pt2 As New Point2d(myPPR.Value.X, myPPR.Value.Y) BaseRo = pt1.GetVectorTo(pt2).Angle End If Return SamplerStatus.OK End If End Function Protected Overrides Function Update() As Boolean myBRef.Rotation = BaseRo Return False End Function
I always rotate the block with bottom left point as fixed point. What can I do to make the block rotate around another point? such as centre point of the block?
Is there a way to create a block with attributtes that automatically complete x, y, z, lat, long for the insertion point of the block?
I am trying to complete text in paperspace that will automatically fill in the lat long of a point in model space without using a table. I have tried field insertion with reference to a cogo point, but it doesn't give options for position on a cogo point. If I pick a block with attributes, it will let me pick any attributes, and x,y position for the block.
Cogo points show all the information I need to propagate in the properties....but how do I get that to translate into the text using fields or some other method?
Dell Precision T3600 - Windows 7 64-bit
NVIDIA Quadro 600
Intel(R) Xenon(R) CPU E5-1607 0 @ 3.00GHz 3.00GHz
8 GB ram - Two 1TB raid
When the block is in a drawing and I click it, it takes me to block editor.
However if I go to it in block editor and test block it allows me to change the attributes.
Why does clicking the block go to block editor and not allow me to change its attributes as it does when I test block.
I would like to change sub block from a visibility after setting it. Here an example of code to get the right visibility, I don't really know how to update a sub block by name or by handle(seems to change inside dynamic block).
Dim Block As AcadBlock
Dim BlockRef As AcadBlockReference
Dim DynEntBlock As AcadEntity
Dim DynObjRefH As IAcadBlockReference
[Code]........
I can insert a block with block attributes using the Inter op very easily:
Dim theBlock AsAcadBlockReference
Dim pickScreenVBA = myDoc.Utility.GetPoint(, "insert the hydrant")
theBlock = myDoc.ModelSpace.InsertBlock(pickScreenVBA, "Hydrant", 1.0#, 1.0#, 1.0#, 0)
Dim varAttributes AsObject
varAttributes = theBlock.GetAttributes
varAttributes(0).TextString ="3 Ports"
varAttributes(1).TextString ="Salt water"
Works great, but when I try using the non-inter op, all the example insert new Attributes and not add block with existing attribute (so I end up with duplicate attributes for each block - i.e "Salt water" attribute is added to the block each time I run the code),
Are they any examples that does the same as above using the non-interop code?
I'm trying to add some attributes to an existing block using the block editor, but after I save and close it I cannot see any 'placeholders' despite adding a default value and the attributes work fine when I double click the block.
I've tried using the ATTSYNC and BATTMAN commands but nothing works and there are no invisibility states applied to either the attribute or block and all layers are switched on.
I just tried making a quick block from scratch and it seems to have the same affect, except the default value will show, but no 'placeholder' shown if left blank.
I swear with previous version I could see the tag when a value hadn't been applied, so is it that the version I now use (2012) does not have this feature or it's disabled?
I'm trying to chnage the text of the sheet number and total sheet number attributes for each layout in my drawing. I have code that adds and deletes the specified pages, now I need to edit the attributes to reflect the correct page and correct total amount of pages. Here is my code, based on my old VBA version.
I know there is a problem with the line:
For Each item In myBTR.ObjectId
I've used a number of websites and books, but I would really like to find something that teaches about block tables, block table references, block table IDs so I can get a better understanding of breaking stuff down to get the info I need.
Public Sub updatePageNumbers()
Dim myDWG As Autodesk.AutoCAD.ApplicationServices.Document
Dim myDB As Autodesk.AutoCAD.DatabaseServices.Database
Dim myTransManForPageNumbers As Autodesk.AutoCAD.DatabaseServices.TransactionManager
Dim myTransForPageNumbers As Transaction
[Code]....
My company is useing LDD2009, as well as map. when we make notations in our plans we use a block that is basicly a square with an attribute inside to represent a number, the nuber then corresponds to the same number and a description in a table.
Now, I have been asked to create / recreate (a)the block that would rotate per viewport, also; we are not usin dynamic leaders.
is there a way to either continue with the block or create a dynamic leader that would rotate per viewport, even in other drawings that have xrefs attached like Plan & Profile sheets that are separate drawings.
I'm not sure how autocad would handle the rotating as well as the location of the block and still have the leader point in the same place.
I'm trying to write a vb script to extract information from the CAD drawing. While testing, i found that for some drawing blocks, the corresponding AcadBlockReference Rotation returns 1.57, but when i look at the actual drawing, block properties, the rotation is 0.
View 3 Replies View RelatedI am using Express Tools Block Replace how do I keep the blocking being replace from rotating to the orientation of the block using for replacement?
View 2 Replies View RelatedI'm just trying my hand at learning to create some dynamic blocks, but need a solution to keep the text unrotated. I have attached a file of my troublesome file for you experts to look at, if possible.
PileTest.dwg
The file is basically a plan view of 4x foundation columns for overhead line towers (pylons). These towers can be different sizes and at different orientations, hence the dynamic options I have applied. However, when I rotate the block I want the text to rotate with it (to keep aligned with each column A, B, C, D), but I don't want rotation to be applied to the text, if that makes sense?
I have a feeling that constraints might work, although I know nothing about them, but these usually lag my PC. At present I am having to explode the block and apply a 0 rotation to all the text.
We have a dynamic section marker block. You can flip it, rotate it and stretch it. Some of our drawings have a lot of them. For some instances of the block that are rotated, opening the drawing or inserting another copy of the block causes the fill in the arrow to move back to its original orientation (see images). The darn things even plot incorrectly.
Flipping the broken ones back and forth fixes them, but it is silly that a drafter would have to do that with each one.
I have a section symbol that I want to rotate and keep the text at 0degress relative to UCS. The text is not in the middle so I can't rotate about the cetner of the text. I'll attach the block so it's more clear.
Right now the only fix is to assign a seperate rotation grip to both attribute text items.
I am making a simple continuation block (attached) and I am trying to get it to have a rotation parameter along the polyline. I am able to do that, but the only issue is the flip parameter goes all weird when I do so (the text starts distancing itself from the polyline when stretched, rotated and flipped).
View 4 Replies View RelatedI can not for the life of me get my attributes to rotate with my block. I've attached the block to better understand what I'm talking about. I'd like the attributed text to rotate with the brown line. I don't care if the text ends up upside-down, I just want it to rotate with the block.
View 1 Replies View Relatedwhen trying to create dynamic rotation for a block with attributes. If I constrain the attribute to a line in the block it damaged the behavior of the block when using the dynamic rotation.
I tried both multiline and non- multiline attributes. I tried to fiddle with the "constraint settings" and leave only the Parallel constraint running with no effect.
When I open a new clean acad drawing and paste the block there, no problem.
We use this light switch block for work. For the life of me, I can't figure out how to make the attribute to stay (LOCKED) at rotation 0 when inserting no matter which angle the swtich is inserted. The only way the text stays at rotation 0 is if I insert the block as is (pointing right), then align the switch to a wall. The block is created with alignment grip. So if I add the switch to a wall at an angle (eg:45 degrees), the text will be rotated and stay rotated. If I insert the switch on the left side of the wall, the attributes will be upside down. I can manually rotate the attributes back to 0 degrees and it will stay locked to 0 degrees. But what I want it to do is to be inserted at 0 degrees to begin with.
View 9 Replies View RelatedI have a block that I'm trying to convert for dynamic use.
In the first image, you'll see the items that I want to have rotatable in blue. The items in red should NOT rotate. That part seems to work fine. But the items that do rotate don't behave as expected.
I created the rotate parameter selecting the center of the red circle as the base point. Shouldn't that cause ALL the items to rotate about that center point?
As you'll see from the second image, the blue line rotates about some other point.
EDIT: Well I guess it only does it if I have the blue horizontal line defined with a length constraint. I also need to have that line dynamic--I need to make it longer/shorter.
I've attached a dwg file with the block in it--it's at the top of the block list (___SectMark2).
Wondering if there was a way to have text maintain a rotation angle of 0 while being included in a rotation parameter. I am wanting the "N" for my North Arrow to follow the direction of the symbol of my viewport tag without the "N" character rotation angle changing with it.
View 9 Replies View RelatedIs it possible to setup a block so that an attribute position remaines fixed (absolute to drawing) when moving the block?
I've been playing around with creating a Coordinate Block by following these instructions: [URL] ........
What I would like is to be able to set the position of the Coordinate Label and Coordinate Object independently, so that if I move one in the drawing, it doesn't move the other. I've looked into Dynamic Blocks, and the "Lock Position" parameter. I can move the attribute independently, but still everytime I move the block, the attribute moves too.
Our company uses a custom Sheet/Coordinate system to follow flyoffs across a drawing, and I'm trying to learn how to automate the process. It's completely manually right now, so any changes to a drawing creates a lot of work renumbering these flyoffs.
Function ReadDWG(ByVal DWGName As String)
Dim AcadApp As AcadApplication
Dim AcadDoc As AcadDocument
Dim Extracted_title As String RichTextBox1.AppendText(Path.GetFileName(DWGName)) RibbonLabel1.Text = "Opening AutoCAD"
[Code]...
I am using the above code to read block attributes depending on the name. But now I need to read the active drawing (drawing will be open and should read from the active document). In the above code I have referenced interop.dll. without that can I retrieve the block attributes. How to read the block attributes from the active document.
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.
Using ACAD2014LT. I want to use the first variable attribute value as a variable in subsequent attributes in the same block. This will be extracted and used for tag references in a PLC program.
Along the line, i know I can change the enclosed character ( ' ), but can I remove it?
How Can I Get All Block Attributes and change it
View 9 Replies View RelatedI 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] .....