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.
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 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
the command for Insert block with file name.
using .net code (SendStringToExecute)
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 am trying to insert a Dynamic Block and change it's Visibility State. I can insert the block, and the visibility state changes, however, if I manually try to change it after, it does not change, even though the value has changed. My code executes and returns no errors, so I am assuming that I have done something wrong, or missed something out.
public class MyCommands { [CommandMethod("MyGroup", "Bolts", "MyCommandLocal", CommandFlags.Modal)] public void MyCommand() // This method can have any name {
[Code].....
If I insert my block manually, I can change the states and it works fine, but the code seems to break the block.
I got this code in a web trawl to insert a block to points taken from a txt file......
its coming back with an error as follows:
; === Top statistic:
; Function definition (with number of arguments): ((C:INSERTBLOCKS . 0))
; Check done.
What does this mean and how can I fix it.
(defun c:insertBlocks (/ txtFile xyData expertVar attreqVar)(setq expertVar (getvar "expert"))
(setq attreqVar (getvar "attreq"))
(setvar "expert" 2)(setvar "attreq" 0)
(setq txtFile (open "c:\cad\textfile.txt" "r")) ;
[Code] ......
I have a drawing ("SURUBURI.dwg") with several dynamic blocks ("M12", "M16", "M18" ... an so on...). I want to insert in my current drawing, one of the blocks from SURUBURI.dwg, for instance the block named "M12".
For that i tried creating a new command "INSERT_M12" that has the following script :
^C^C-INSERT; "I:/Ionut Mihaila/Goodies/SURUBURI.dwg/M12"
Now obvious that doesn't work, but i think it shows clearly what i want to accomplish. So is there an other way to do this?
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
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 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 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)
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] .....
I'm trying to insert a block using the "insert dialogue box". However, when I do, if I have the box for "insertion point" unchecked, I get the error "Block Insertion Failed" (picture 1).
If I check that box, I get the error "*Invalid* Block references itself". I have purged the drawing and there are no other blocks in the drawing.
I insert a block with Database.Insert(). I get the insertion point with Editor.GetPoint().
What I would like is to see a 'preview' of the block that is to be inserted, while selecting the insertion point, similar as AutoCAD's INSERT command. Is that possible and how?
Here is my code to insert the Block in the Currently opened Drawing, it used to work well, when I was using Express version of VB, now i am using VB studio professional, and I am facing this error !dbinsert834@ eNotdatabase,
i get the error in line in red
Public Sub InsertDrawing(ByVal dwgName As String, ByVal insPt As AcGe1.Point3d, ByVal s3d As AcGe1.Scale3d, ByVal rot As Double)
Dim blkName As String = Path.GetFileNameWithoutExtension(dwgName)
[Code].....
I have a VBA that I made to insert blocks. If the block has attributes it acts as if ATTREQ is set to 0. The ATTREQ is set to 1. Or is there a way to get the block I just inserted and invoke DDATTE on it.
View 1 Replies View RelatedI created one code to insert one Block and this block has 3 attributes
Dim AcadDocPt AsDocument = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
Dim AcadCurrentDBPt AsDatabase = AcadDocPt.Database
[Code].....
I have created a dynamic block and when I try inserting it another block comes in instead. This is happening inspite of the fact that the correct block is shown in the preview window. I have purged and audited the parent drawing as well as the block I am trying to insert. Also I have opened the block in the autocad program. and when I select all, to erase everything on the drawing, it lists 2 (two) in model space and then 1 (one) in paperspace. I assume that the listing in model space is the layout page as well as the block. Anyway I am doing this to select all and then remove the block from the selection group, which I want to retain.
I insert the block on another drawing, from another job. It came in but you have to explode it for the visibility icon to appear, and then It does not behave the way it is suppose to
I am attaching the block, I have not been able to make a weld symbol with all of the parameters that I want so I have created the body of the weld in a separate block that show's the different types of welds as visibility parameters. This is the one that is not working on a drawing where it is inserted.The name of the block is ( w_body.dwg )
Basically, whenever you want to insert a block from outside of this drawing to it you can see it on the screen but after insertion it is disappearing!
+ There is no frozen layer
+ It happens on Modelspace and Paperspace both
+ It happens just on the blocks that you want to insert from outside
+ I used Design Centre to insert a block same issue occurs. The block is not inserted in to the drawing as a hidden object because it is on the Purge list but you can find it on the Insert Block window dropdown menu and when you want to insert it from there again same issue happens! I guess there might be an AutoCAD variable is playing with us here that somebody accidentally changed it.
+ When you use the Quickselect you cannot find any of those blocks on the drawing as well
