TheSwamp
CAD Forums => CAD General => Topic started by: T.Willey on March 22, 2011, 10:32:46 AM
-
And please explain, in short, how you would expect them to work. Thinking of maybe putting something together, and just want to see what others would like to see happen.
Thanks.
Edit: Attached version 0.1 of Xref Suite tools ( source and compiled dll file ). Once the dll is loaded, it will list what commands can be used, and a brief description of what they are for. Comments welcomed. I'm still working on some of the other ideas that are not in this release.
@Tracey - I'm still looking at how one would do a window selection of nested items.
@Crank - Still not sure how one would want to have the procedure for setting up relative paths work. I don't use them, so I had to look in the help, and it seems like they can be setup plenty of ways. Would someone just select the drawing(s) to edit the xref paths, and then have the paths based off that drawings path? Let me know what your thinking.
-
STRIP. UNUSED. ANNOSCALES. FROM. XREFS.
That shouldn't need any explanation.
-
One thing I really like from Microstation is the ability to copy a window/crossing selection from an xref into the live drawing. We used to use this to copy the drawing sheet attributes from a frame into the current model. I'm sure we have also used them when updating a building outline, and it has saved me tracing over the lines that stay as "original" (does that make sense, or do you need further explaination?)
-
off the top of my head... (all of these exist, but a package deal would be cool).
- equivalent to express tool XOpen
- equivalent to express tool NCopy
- ability to copy entire nested layer
- ability to change layer properties of selected nested object
- ability to change all layer properties of all selected XRefs (eg. change all selected XRefs to appear grey)
-
One thing I really like from Microstation is the ability to copy a window/crossing selection from an xref into the live drawing. We used to use this to copy the drawing sheet attributes from a frame into the current model. I'm sure we have also used them when updating a building outline, and it has saved me tracing over the lines that stay as "original" (does that make sense, or do you need further explaination?)
Have you Tried the Copy Nested function (Express>>Blocks>>Copy Nested)?
-
STRIP. UNUSED. ANNOSCALES. FROM. XREFS.
That shouldn't need any explanation.
Can you post a small test drawing? I have not been able to create a problem drawing, as I don't use anno scales.
One thing I really like from Microstation is the ability to copy a window/crossing selection from an xref into the live drawing. We used to use this to copy the drawing sheet attributes from a frame into the current model. I'm sure we have also used them when updating a building outline, and it has saved me tracing over the lines that stay as "original" (does that make sense, or do you need further explaination?)
I can see about this, as I have some stuff already coded that will copy items, selected singly, right now.
off the top of my head... (all of these exist, but a package deal would be cool).
- equivalent to express tool XOpen
- equivalent to express tool NCopy
- ability to copy entire nested layer
- ability to change layer properties of selected nested object
- ability to change all layer properties of all selected XRefs (eg. change all selected XRefs to appear grey)
These shouldn't be too hard to do, as I have the hard ones done already.
Keeps them coming. :-)
-
Not sure how it would be possible, but I've always wish XOpen would open the selected XRefed drawing zoomed relatively same point as when viewing it as an XRef.
-
Reset/set all/selected layer properties.
-
Not sure how it would be possible, but I've always wish XOpen would open the selected XRefed drawing zoomed relatively same point as when viewing it as an XRef.
I'm going to be coding it in C# .Net, so that shouldn't be a problem to do.
-
Not sure how it would be possible, but I've always wish XOpen would open the selected XRefed drawing zoomed relatively same point as when viewing it as an XRef.
I'm going to be coding it in C# .Net, so that shouldn't be a problem to do.
Nice! I figured you weren't going to fuss with LISP.
-
Reset/set all/selected layer properties.
Shouldn't be too hard, as I have the color and linetype code already working. Maybe I'll throw something together that will let the user select what properties it should bring back.
-
Reset/set all/selected layer properties.
Shouldn't be too hard, as I have the color and linetype code already working. Maybe I'll throw something together that will let the user select what properties it should bring back.
Cool. I know I've been in a situation where I just detached/reattached a drawing just to get all properties back to normal.
-
If you want it T.Willey I got some code that runs through the xref and sets all objects in blocks on layer 0 and color to bylayer or byblock and handles some other annoying things with my expirence of dealing with a drawing from other companies that will be used as xref .
If you want it.
-
- Make the path relative
- Remove layer overrides only for selected layers
-
If you want it T.Willey I got some code that runs through the xref and sets all objects in blocks on layer 0 and color to bylayer or byblock and handles some other annoying things with my expirence of dealing with a drawing from other companies that will be used as xref .
If you want it.
Thanks for the offer Jeff. I might take you up on it at a later point in time. Right now I'm not sure I want to add something like that. I rather work with the xref in the current drawing, and not change the xref file. But if there are more requests for something like this.... who knows.
- Make the path relative
- Remove layer overrides only for selected layers
These should be doable. Would the selection of relative path depth be dynamic? Ie. In one file have a path like "..\xrefs\xref.dwg" and another "..\project\xrefs\xref.dwg".
-
My #1 request would be to have a OSNAP toggle for XREF's. Most of the time I'm working with an XREF, and I'm in a cluttered space, I don't want the OSNAPS from the architectural background interfering with what I am doing.
Not to degrade anyone's ability but would that even be possible?
*EDIT* Also, a quick way to update layer changes without having to set VISRETAIN to 0, reload, then set VISRETAIN back to 1, without losing the freezed/off layers in MS and PS Viewports. This might be too much of a personal request but still throwing it out there. No expectations on getting this, just contributing is all. ;)
-
I don't know. While doing the other stuff, I'll look into the help files for Arx and see if it is possible. Off the top of my head, I would say not possible, but I've been wrong before.
-
I don't know. While doing the other stuff, I'll look into the help files for Arx and see if it is possible. Off the top of my head, I would say not possible, but I've been wrong before.
try placing it inside an unselectable group
-
*EDIT* Also, a quick way to update layer changes without having to set VISRETAIN to 0, reload, then set VISRETAIN back to 1, without losing the freezed/off layers in MS and PS Viewports. This might be too much of a personal request but still throwing it out there. No expectations on getting this, just contributing is all. ;)
Maybe there is code within this thread that will hold you over until I get this set of tools working.
[ http://www.theswamp.org/index.php?topic=8790.0 ]
I don't know. While doing the other stuff, I'll look into the help files for Arx and see if it is possible. Off the top of my head, I would say not possible, but I've been wrong before.
try placing it inside an unselectable group
I tried doing this with simple lines, and I couldn't get it to work correctly. I don't use groups that much, but I remember that when you select one object within a group, it should select the whole group. I couldn't even get that to work, not matter what value I used in ' PickStyle '. Maybe you can give me a step by step process, or post a sample drawing setup correctly.
-
that fish don't swim...it should; only it doesn't work as I thought it would
-
STRIP. UNUSED. ANNOSCALES. FROM. XREFS.
That shouldn't need any explanation.
Can you post a small test drawing? I have not been able to create a problem drawing, as I don't use anno scales.
Wish I could, but wouldn't you know it I can't find one offhand. Here's a quickie with a bunch of unused annotation scales in it. XREF this into a 'clean' drawing and the XREF scales are added even though they are unnecessary and can be manually deleted. Detach the XREF and they are still there and can still be deleted.
And yes, I *do* have annotation scale cleaners running automatically at drawing open, but there are a few problems. Users keep using the reset option in the scale list editor or pointing to the OOTB AutoCAD DWT for the CleanAnnotationScales.EXE from AutoDesk, so their drawings end up with the *full* default list (yeah, yeah - management issue, but can't sit over everybodies shoulder every minute). Once that gets down from the models to the ortho drawings, the list "takes too long" to clean out automatically every time the drawings are opened. The ability to control the default list in 2011 will help a little bit but given our legacy files and how users love to cut'n'paste...
I would love to have a tool that can dip into the listed XREFs, find which annotation scales are actually in use, then allow those scales to be safely deleted in the host drawing. Optionally, to dig into the XREF itself and yoink them from there and/or generate a one-shot data file that is read by the scale cleaner the next time the XREF itself is opened.
-
My #1 request would be to have a OSNAP toggle for XREF's. Most of the time I'm working with an XREF, and I'm in a cluttered space, I don't want the OSNAPS from the architectural background interfering with what I am doing.
Not to degrade anyone's ability but would that even be possible?
You could probably do something with a PointMonitorEventHandler to check if FullSubentityPath[0] is the xref and if so turn off snaps then use something like PromptForSelectionEndingEventHandler for turning back on.
Not sure how efficent or well it work.
-
My #1 request would be to have a OSNAP toggle for XREF's. Most of the time I'm working with an XREF, and I'm in a cluttered space, I don't want the OSNAPS from the architectural background interfering with what I am doing.
Not to degrade anyone's ability but would that even be possible?
You could probably do something with a PointMonitorEventHandler to check if FullSubentityPath[0] is the xref and if so turn off snaps then use something like PromptForSelectionEndingEventHandler for turning back on.
Not sure how efficent or well it work.
Nice idea Jeff. I was thinking it might be able to be done with transient graphics, but haven't done too much research yet. Still in the thinking/planning phase.
@ dgorsman.... Thanks for the example. I was able to figure some stuff out, but don't like the way it is working just yet. I think it's a little slow, but it might be the only way.
-
This uses basically the same idea
http://www.theswamp.org/index.php?topic=35456.msg407110#msg407110
-
Need to use a different event to work a little smoother but basic concept.
Would not be hard to add be needs
1. Udate osnap settings if change after command is first run
2. Overlay
3. More than 1 xref
4 more
Again just simple impletation for testing and some ideas
ObjectId xrefID;
Object OsmodeSetting;
[CommandMethod("XrefNoOsnaps")]
public void XrefNoOsnaps()
{
Document doc = Application.DocumentManager.MdiActiveDocument;
Editor ed = doc.Editor;
Database db = doc.Database;
using (Transaction trx = db.TransactionManager.StartTransaction())
{
BlockTable bt = db.BlockTableId.GetObject(OpenMode.ForRead) as BlockTable;
foreach (ObjectId objId in bt)
{
BlockTableRecord btr = objId.GetObject(OpenMode.ForRead) as BlockTableRecord;
//if (!(btr.IsLayout || btr.IsAnonymous || btr.IsFromExternalReference || btr.IsFromOverlayReference) && !(blocknames.Contains(btr.Name)))
if (btr.IsFromExternalReference)
{
ObjectIdCollection ObjIdColl = new ObjectIdCollection();
ObjIdColl = btr.GetBlockReferenceIds(true, false);
xrefID = ObjIdColl[0];
break;
}
}
trx.Commit();
}
OsmodeSetting = Application.GetSystemVariable("OSMODE");
Application.DocumentManager.MdiActiveDocument.Editor.PointMonitor += new PointMonitorEventHandler(HoverHandler);
Application.DocumentManager.MdiActiveDocument.Editor.PromptForSelectionEnding += new PromptForSelectionEndingEventHandler(HoverEndingHandler);
}
private void HoverEndingHandler(object sender, PromptForSelectionEndingEventArgs e)// PointMonitorEventHandler
{
Application.SetSystemVariable("OSMODE", OsmodeSetting);
}
private void HoverHandler(object sender, PointMonitorEventArgs e)// PointMonitorEventHandler
{
Document doc = Application.DocumentManager.MdiActiveDocument;
Database db = doc.Database;
FullSubentityPath[] fsps = e.Context.GetPickedEntities();
if (fsps.Length > 0)
{
FullSubentityPath fsp = fsps[0];
using (Transaction tr = db.TransactionManager.StartTransaction())
{
try
{
if (fsp.GetObjectIds()[0] == xrefID)
{
Application.SetSystemVariable("OSMODE", 0);
}
else
{
Application.SetSystemVariable("OSMODE", OsmodeSetting);
}
}
catch
{
tr.Dispose();
}
tr.Commit();
}
}
}
-
Thanks Jeff. That did give me an idea to try. Will see how it works.
-
Didn't like the performance. Here is the code I was testing.
public partial class XrefNoOsnaps : Form
{
private bool TurnOffOsnaps = true;
private object OldOsmode;
public XrefNoOsnaps()
{
//
// The InitializeComponent() call is required for Windows Forms designer support.
//
InitializeComponent();
//
// TODO: Add constructor code after the InitializeComponent() call.
//
}
[CommandMethod( "testxros" )]
public void Main ()
{
Document Doc = AcadApp.DocumentManager.MdiActiveDocument;
if ( TurnOffOsnaps ) {
Doc.CommandWillStart += new CommandEventHandler( CmdStart );
Doc.CommandFailed += new CommandEventHandler( CmdStop );
Doc.CommandEnded += new CommandEventHandler( CmdStop );
Doc.CommandCancelled += new CommandEventHandler( CmdStop );
TurnOffOsnaps = false;
OldOsmode = AcadApp.GetSystemVariable( "OsMode" );
AcadApp.DocumentManager.MdiActiveDocument.Editor.WriteMessage( "\n Added." );
}
else {
Doc.CommandWillStart -= new CommandEventHandler( CmdStart );
Doc.CommandFailed -= new CommandEventHandler( CmdStop );
Doc.CommandEnded -= new CommandEventHandler( CmdStop );
Doc.CommandCancelled -= new CommandEventHandler( CmdStop );
TurnOffOsnaps = true;
AcadApp.DocumentManager.MdiActiveDocument.Editor.WriteMessage( "\n Removed." );
}
}
public void CmdStart ( object sender, CommandEventArgs cea )
{
OldOsmode = AcadApp.GetSystemVariable( "OsMode" );
AcadApp.DocumentManager.MdiActiveDocument.Editor.PointMonitor += new PointMonitorEventHandler( PtMon );
}
public void CmdStop ( object sender, CommandEventArgs cea )
{
AcadApp.DocumentManager.MdiActiveDocument.Editor.PointMonitor -= new PointMonitorEventHandler( PtMon );
}
public void PtMon ( object sender, PointMonitorEventArgs pmea )
{
Database Db = AcadApp.DocumentManager.MdiActiveDocument.Database;
FullSubentityPath[] fsp = pmea.Context.GetPickedEntities();
using ( Transaction Trans = Db.TransactionManager.StartTransaction() ) {
if ( fsp.Length == 0 ) {
if ( AcadApp.GetSystemVariable( "OsMode" ) == OldOsmode ) return;
else {
AcadApp.SetSystemVariable( "OsMode", OldOsmode );
Trans.Commit();
return;
}
}
foreach ( FullSubentityPath sp in fsp ) {
ObjectId[] Ids = sp.GetObjectIds();
if ( Ids.Length == 1 ) continue;
BlockReference BlkRef = Trans.GetObject( Ids[ 0 ], OpenMode.ForRead ) as BlockReference;
if ( BlkRef == null ) continue;
BlockTableRecord btr = Trans.GetObject( BlkRef.BlockTableRecord, OpenMode.ForRead ) as BlockTableRecord;
if ( !( btr.IsFromExternalReference || btr.IsFromOverlayReference ) ) continue;
AcadApp.SetSystemVariable( "OsMode", 0 );
Trans.Commit();
return;
}
}
AcadApp.SetSystemVariable( "OsMode", OldOsmode );
}
}
-
This is very handy:
;;;Routine to change Xref layer color in host drawing.
(defun C:XLC ( / entlay)
(setq entlay (cdr (assoc 8 (setq ent (entget (car (nentsel "Select an Xref-object to change layer color: ")))))))
(setq entlayname (cdr (assoc 8 ent)))
(if entlay
(progn
(if (vl-string-search "|" entlay)
(progn
(if (not XLCLayCol) (setq XLCLayCol "8"))
(setq XLCLayCol (strcase (xgetstring (strcat entlayname
"\nCurrent Color: "
(itoa (cdr (assoc 62 (entget (tblobjname "layer" entlay)))))
" - New Color? ") XLCLayCol)))
(command "._-layer" "C" XLCLayCol entlay "")
entlay
);progn
(princ "\nThis is not an Xref!")
);if
);progn
(alert "Nothing selected.")
);if
);defun
-
A few years ago, using piles of borrowed code from africad (xtools) and some from here and a few other places I kinda slapped together some tools for attaching/overlaying multiple files at once, placing them on created layers named for the xref and other stuff. It depended on doslib for the file dialog box dipsy-do which is okay IF you have the latest version of doslib. I'd like something NOT based on doslib, that will allow something similar;
example:
XAZ - attach multiple files selected from multiple directories at 0,0,0 and placed on a layer created for each xref. Prefix the xref and layer names with "Z-"
Drawings CAT, DOG, and MONKEY are attached as Z-CAT, Z-DOG and Z-MONKEY and placed on layers Z-CAT, Z-DOG and Z-MONKEY respectively.
or maybe a single attach function that prompts for prefix if any .... hmmmm....
-
A tool that sets the layer before attaching and xref.
-
I'll think about these. I want something that is generic, but can be used my a lot of people. Once you start getting too specific, then it looses functionality in that sense.
Just thinking out loud right now, but I guess it something like this was to happen ( barc, krush ), then a file would need to be setup, so the command would know what to do. Not saying I'm going to do it, but just thinking how it would be done.
@Rabbit:
I have a lisp like that also, and use it all the time still. Might be a good thing to copy over to the suite. Didn't even think about that code.
-
A tool that sets the layer before attaching and xref.
Do it with a reactor, this is just for the xref command:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; VLR_COMMAND.lsp courtesy Peter Jamtgaard 2003
;;; Vlr Command is a function that will switch the active layer in a drawing.
;;; The reactor checks the command that is starting and if it recognizes it
;;; it will switch to a specified layer. If the layer doesn't exist it will
;;; create it with the color, linetype, and plottable setting provided.
;;; To load and run this program add the lines (load "vlr_command")(c:vlr_command)
;;; to your acaddoc.lsp or another autoloading lisp routine.
(defun VLR_COMMANDXREF-IT ()
(vl-load-com)
(vlr-command-reactor nil '((:vlr-commandWillStart . startCommandxref)))
(vlr-command-reactor nil '((:vlr-commandEnded . endCommandxref)))
(vlr-command-reactor nil '((:vlr-commandCancelled . cancelCommandxref)))
(vlr-editor-reactor nil '((:vlr-commandwillstart . ARCH:COMXREF1)))
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun ARCH:COMXREF1 (CALL CALLBACK / COMLAYLST)
;;; List of corrusponding commands layers color linetype plottable
(setq COMLAYLST
(list
(list "XREF" "0-XREF" 7 "continuous" :vlax-true)
)
)
(foreach
N COMLAYLST
(if (= (strcase (car CALLBACK)) (strcase (car N)))
(progn
(make_layers
(cadr N)
(caddr N)
(cadddr N)
(car (cddddr N))
)
(setq n1 n)
(vla-put-activelayer
(vla-get-activedocument
(vlax-get-acad-object)
)
(vlax-ename->vla-object
(tblobjname "LAYER" (cadr N))
)
)
)
)
)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Make layers using activeX
(defun MAKE_LAYERS (LAY_NAM COLOR LTYPE PLOTL / LAYOBJ LAYSOBJ LTYPESOBJ)
(setq CDWGOBJ (vla-get-activedocument
(vlax-get-acad-object)
)
LAYSOBJ (vla-get-layers CDWGOBJ)
)
(if (not (tblobjname "layer" LAY_NAM))
(vl-catch-all-error-p
(vl-catch-all-apply 'vla-add (list LAYSOBJ LAY_NAM))
)
)
(setq LAYOBJ (vla-item LAYSOBJ LAY_NAM))
(if (not (tblobjname "ltype" LTYPE))
(progn
(setq LTYPESOBJ (vla-get-linetypes CDWGOBJ))
(vla-load LTYPESOBJ LTYPE (findfile "acad.lin"))
(vlax-release-object LTYPESOBJ)
)
)
(vla-put-layeron LAYOBJ :vlax-true)
(if (/= (strcase (vla-get-name LAYOBJ)) (strcase (getvar "clayer")))
(vla-put-freeze LAYOBJ :vlax-false)
)
(vla-put-lock LAYOBJ :vlax-false)
(vla-put-color LAYOBJ COLOR)
(vla-put-linetype LAYOBJ LTYPE)
(vla-put-plottable LAYOBJ PLOTL)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;Kenny Ramage @ afralisp.com
(defun startCommandxref (calling-reactor
startCommandxrefInfo
/
thecommandstart
)
(setq OldLayer (getvar "CLAYER"))
;;(vlr-editor-reactor nil '((:vlr-commandwillstart . ARCH:COMXREF1)))
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun endCommandxref (calling-reactor
endCommandxrefInfo
/
thecommandendxref
)
(setq thecommandendxref (nth 0 endCommandxrefInfo))
(cond
((= thecommandendxref "XREF") (setvar "CLAYER" OldLayer))
)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun cancelCommandxref (calling-reactor
cancelCommandxrefInfo
/
thecommandcancelxref
)
(setq thecommandcancelxref (nth 0 cancelCommandxrefInfo))
(cond
((= thecommandcancelxref "XREF") (setvar "CLAYER" OldLayer))
)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(VLR_COMMANDXREF-IT)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(princ)
-
A tool that sets the layer before attaching and xref.
Do it with a reactor, this is just for the xref command:
Actually I use a reactor now. Some code that someone here posted; probably that very one that you posted. ( I am home so I can't check the code to see where I got it.)
I was just thinking that if Tim (and company) is going to create a tool(s) to manage xrefs, might as well include the number a fix for the number one violation cad standards when dealing with xrefs. IMO.
-
I'll think about these. I want something that is generic, but can be used my a lot of people. Once you start getting too specific, then it looses functionality in that sense.
Just thinking out loud right now, but I guess it something like this was to happen ( barc, krush ), then a file would need to be setup, so the command would know what to do. Not saying I'm going to do it, but just thinking how it would be done.
@Rabbit:
I have a lisp like that also, and use it all the time still. Might be a good thing to copy over to the suite. Didn't even think about that code.
I dunno where it was that I got this from. I know it was from somewhere else, and I did a little bit of modification of it so that I can see the layers names & colors and a global variable for the new color. I hope I didn't stepping on anyone's toes.
Anyways, I use it after I turn all xref layer colors to color 8 (our standard backgoround color). Using the command I can quickly change the xref layer colors of stuff like rated walls, room names, etc. so they will be more legible.
-
Attached version 0.1 of tools. Look at the first post for more information.
-
Edit: Attached version 0.1 of Xref Suite tools ( source and compiled dll file ). Once the dll is loaded, it will list what commands can be used, and a brief description of what they are for.
Okay, I'm apparently the not so bright one here, but how do you load this?
Rabbit
-
Edit: Attached version 0.1 of Xref Suite tools ( source and compiled dll file ). Once the dll is loaded, it will list what commands can be used, and a brief description of what they are for.
Okay, I'm apparently the not so bright one here, but how do you load this?
Rabbit
You can either compile a dll from the source code, and then load that in each Acad session. Or you can just load the dll file that is in the zip file. To load a dll file, at the command line type ' netload ', and then select the dll file. One thing to note is that you should load the dll file from a local drive, as there are security issues with network locations and dll files.
-
Edit: Attached version 0.1 of Xref Suite tools ( source and compiled dll file ). Once the dll is loaded, it will list what commands can be used, and a brief description of what they are for. Comments welcomed. I'm still working on some of the other ideas that are not in this release.
From my testing:
XOPEN - If possible, when the newly opened xref is closed, it is automatically reloaded in the host drawing.
XRLC - A regen after changes would be helpful.
CN - Works as advertised.
EDITLEYERFROMSELECTION - Works as advertised. Shorter name would be nice though.
Hope this helps,
Rabbit
PS, I'm not sure which one to use to set the layer override color "XREF|LAYERNAME" in the host drawing. I.E., if I bring in an xref and I want to change the one of the layers to color 8 in my host drawing only, which utility do I use?
-
Actually I prefer longer command names. Disambiguates from any in-house or other third-party commands or personalized PGP settings. Its easy enough to create a command tool in the CUI for Ribbon/tool palette/tool bars, and it can always be assigned a shorter personalized nmemonic in a PGP.
-
Thanks for testing, and commenting back Rabbit. I'll see what I can incorporate into the next release.
PS, I'm not sure which one to use to set the layer override color "XREF|LAYERNAME" in the host drawing. I.E., if I bring in an xref and I want to change the one of the layers to color 8 in my host drawing only, which utility do I use?
You would use ' EDITLEYERFROMSELECTION ' since it will let you change the properties of one of the layers that one of the entities are on. Hope that makes sense.
________________________________________________________________________________________________________________
I wonder if I should make another thread to let people know that there is a tool available now for testing?
-
Probably wouldn't be a bad idea for beta testing and possible bug tracking from user comments from peons like myself. ;)
-
I guess I do another topic for the next release of the testing code.
-
Have MIRRTEXT work with Xref files, many people would like that one a whole lot.
-
And please explain, in short, how you would expect them to work. Thinking of maybe putting something together, and just want to see what others would like to see happen.
Thanks.
[...]
@Crank - Still not sure how one would want to have the procedure for setting up relative paths work. I don't use them, so I had to look in the help, and it seems like they can be setup plenty of ways. Would someone just select the drawing(s) to edit the xref paths, and then have the paths based off that drawings path? Let me know what your thinking.
My situation:
I just want to get rid of the path because our drawing manager automaticly creates unique folders when the drawing is checked out. Copies of the Xref's are placed in the same folder. With hard coded paths the drawing points to a different location and the XREF can't be found or it's pointing to an old version. :-(
In general:
When you have to sent your drawing, the receiver doesn't have the same drive structure, so I can imagine it would be usefull to strip the part of the structure that's specific for your own company. (example: K:\drawings\project\partnumber\xref.dwg)
-
When you have to sent your drawing, the receiver doesn't have the same drive structure, so I can imagine it would be usefull to strip the part of the structure that's specific for your own company. (example: K:\drawings\project\partnumber\xref.dwg)
eTransmit
-
When you have to sent your drawing, the receiver doesn't have the same drive structure, so I can imagine it would be usefull to strip the part of the structure that's specific for your own company. (example: K:\drawings\project\partnumber\xref.dwg)
eTransmit
I can be mistaken, but I think with etransmit you have no control what part of the path you want to keep.
-
Setting Paths
http://docs.autodesk.com/ACD/2010/ENU/AutoCAD%202010%20User%20Documentation/index.html?url=WS1a9193826455f5ffa23ce210c4a30acaf-5d95.htm,topicNumber=d0e148663
-
When you have to sent your drawing, the receiver doesn't have the same drive structure, so I can imagine it would be usefull to strip the part of the structure that's specific for your own company. (example: K:\drawings\project\partnumber\xref.dwg)
eTransmit
I can be mistaken, but I think with etransmit you have no control what part of the path you want to keep.
If its going to a client, you probably don't know what to keep (at least I don't for mine), so I strip it all and place all the necessary files in a single directory for transmitting.
-
Setting Paths
http://docs.autodesk.com/ACD/2010/ENU/AutoCAD%202010%20User%20Documentation/index.html?url=WS1a9193826455f5ffa23ce210c4a30acaf-5d95.htm,topicNumber=d0e148663
Sometimes it's good to read the manual when you've been doing something the same way for many years. :)
I think with very little coding you can make all options available. A preview of the result would be welcome, because the descriptions are to vague for ordinary users.
-
Setting Paths
http://docs.autodesk.com/ACD/2010/ENU/AutoCAD%202010%20User%20Documentation/index.html?url=WS1a9193826455f5ffa23ce210c4a30acaf-5d95.htm,topicNumber=d0e148663
Sometimes it's good to read the manual when you've been doing something the same way for many years. :)
I think with very little coding you can make all options available. A preview of the result would be welcome, because the descriptions are to vague for ordinary users.
That's the page I was reading Jeff.
I'll see what I can come up with along those lines then Crank.
-
Have MIRRTEXT work with Xref files, many people would like that one a whole lot.
I don't know how to make that one work. A real quick issue would be if the user has more than one of the same xref plan in the drawing, and one was mirrored. Text is a pretty static entity, so it would only want to show one way.
The only thing I can think of right away, would be to make all the text/mtext entities into constant attributes. But then the issue of if the text changes, what do you do? I don't see an easy answer.
-
A nice feature/tool to have, would be for it to go and fetch a cup of coffee or a beer. Could you program in something like that?
:-P :evil: :-D
-
A nice feature/tool to have, would be for it to go and fetch a cup of coffee or a beer. Could you program in something like that?
:-P :evil: :-D
Sure. Just need your credit card and social security number first. Just PM me the information, and I'll get right on it. :wink:
-
A nice feature/tool to have, would be for it to go and fetch a cup of coffee or a beer. Could you program in something like that?
:-P :evil: :-D
Sure. Just need your credit card and social security number first. Just PM me the information, and I'll get right on it. :wink:
:-D
-
Here's a request I've not yet found anywhere;
I'd like a tool that creates a CSV file (or similar) that contains the XREF name, path, insertion point, scale, rotation, insertion layer and nest parents if any. Is there one of those floating around the swamp anywhere? I did a search, but I'm less than halfway through a 24 page result, and I'd kinda like to use the tool before I retire.
Appreciate any help,
-
modify to suit (add/change properties, export result to file ...) (http://www.theswamp.org/lilly_pond/mp/lisp/getxrefsproperties.txt?nossi=1)
-
Thanks Michael
-
Here is another offering. Will need to be edited to suit your needs, but it will allow you to get all that you want.
[ http://www.theswamp.org/index.php?topic=28062.0 ]
-
Thanks Tim ... just reading the thread hurts my head :? need to ruminate on that one a bit.
I did point out somewhere I don't know nuttin 'bout codin' didn't I?? :wink:
-
Thanks Tim ... just reading the thread hurts my head :? need to ruminate on that one a bit.
I did point out somewhere I don't know nuttin 'bout codin' didn't I?? :wink:
If you did, I must have missed it. :-)
Maybe someone will put something together for you from it. If not, then if I have time I might get you something, but that doesn't look like it will happen soon.
-
I'm in no big hurry for it, and if I get time to wade through the code posted here I just might learn something. Thanks for the fishin' lesson.
-
Try this.
(defun c:PrintXrefInfo ( / GetXrefs XrList Opened Data Path )
(defun GetXrefs (/ tempData tempEnt XrefList)
(while (setq tempData (tblnext "block" (not tempData)))
(if (equal (logand (cdr (assoc 70 tempData)) 4) 4)
(progn
(setq tempEnt (tblobjname "block" (cdr (assoc 2 tempData))))
(setq tempData (entget (cdr (assoc 330 (entget tempEnt)))))
(setq XrefList
(cons
(cons
tempEnt
(
(lambda ( x / InsList NestList )
(foreach i x
(cond
((equal (car i) 331)
(setq InsList (cons (cdr i) InsList))
)
((equal (car i) 332)
(setq NestList (cons (cdr i) NestList))
)
)
)
(list InsList NestList)
)
(member '(102 . "{BLKREFS") tempData)
)
)
XrefList
)
)
)
)
)
XrefList
)
;-----------------------------------------------------
(if (setq XrList (GetXrefs))
(progn
(setq Opened (open (setq Path (strcat (getvar 'DwgPrefix) (vl-filename-base (getvar 'DwgName)) "_Xref.log")) "w"))
(foreach i XrList
(setq Data (entget (car i)))
(write-line (strcat "Xref name: " (cdr (assoc 2 Data))) Opened)
(write-line (strcat "\tSaved path: " (cdr (assoc 1 Data))) Opened)
(write-line (strcat "\tFound at path: " (findfile (cdr (assoc 1 Data)))) Opened)
(write-line "\tInserted at:" Opened)
(foreach j (cadr i)
(setq Data (entget j))
(write-line (strcat "\t\tLayout: " (cdr (assoc 410 Data))) Opened)
(write-line (strcat "\t\tInsertion point: " (vl-princ-to-string (cdr (assoc 10 Data)))) Opened)
(write-line (strcat "\t\tScale[X Y Z]: " (rtos (cdr (assoc 41 Data))) " " (rtos (cdr (assoc 42 Data))) " " (rtos (cdr (assoc 43 Data)))) Opened)
(write-line (strcat "\t\tRotation: " (rtos (cdr (assoc 50 Data)))) Opened)
(write-line (strcat "\t\tLayer: " (cdr (assoc 8 Data))) Opened)
)
(write-line "\tNested xrefs:" Opened)
(foreach j (caddr i)
(write-line (strcat "\t\t" (cdr (assoc 2 (entget j)))) Opened)
)
)
(close Opened)
(prompt (strcat "\n Log at: " Path))
)
(prompt "\n No xrefs within drawing.")
)
(princ)
)
-
Try this.
Snipped
Very interesting tool. I have no need for it but a very interesting tool none the less.
-
Thanks Tim, cool tool. That's very close to what I need. I'm going to look at it tonight to see if I can "tweak" the output a bit.
Really appreciate the help, this will make the next lunacy from the front office a lot easier to accomplish.
-
I completely forgot to post this, but I put together a quick cursor list prompt (using DosLib) the other day...
(defun c:XRT (/ choice lst)
(if (setq choice (dos_popupmenu
(setq lst
'("testxs - for xref states"
"testcoxl - for copy original xref layers properties ( color and linetype )"
"testcn - for copy nested entity, or nested layer"
"testxopen - for open xref, zoomed to same location"
"testexrs - for erase xref annotation scales not referenced"
"testrlo - for remove layer overrides ( color, linetype and lineweight )"
"testxrlc - for change all selected xref layer colors"
"EditLayerFromSelection - change properties of layers based on entity selected"
)
)
)
)
(command (strcat "_." (substr (setq choice (nth choice lst)) 1 (vl-string-search " - " choice)))
)
)
(princ)
)
-
Thanks Tim, cool tool. That's very close to what I need. I'm going to look at it tonight to see if I can "tweak" the output a bit.
Really appreciate the help, this will make the next lunacy from the front office a lot easier to accomplish.
Good to hear.
Alan - Does that execute the command for you? It seems like it, but I don't think I have doslib installed, and don't know if I should if the company didn't. If so, nice tool.
-
Thanks Tim, cool tool. That's very close to what I need. I'm going to look at it tonight to see if I can "tweak" the output a bit.
Really appreciate the help, this will make the next lunacy from the front office a lot easier to accomplish.
Good to hear.
Alan - Does that execute the command for you? It seems like it, but I don't think I have doslib installed, and don't know if I should if the company didn't. If so, nice tool.
Yeah, it's a simple loading list. DosLib has some really useful tools, especially some for quick coding and since it's just an arx that can be easily loaded from the acaddoc.lsp, I don't see a problem using it and/or putting it on the network and having everyone load it.
It's a simple thing, but I found it useful with running your commands in a beta state.
-
Cool idea. Maybe I'll see about it then.
-
Cool idea. Maybe I'll see about it then.
:-)
-
I'd like the ability to change all lines so that I can change their layer, but they retain their original layer linetype.
-
I'd like the ability to change all lines so that I can change their layer, but they retain their original layer linetype.
To have this done, one would have to setup a reactor base application, as the items would need to be changed after each time the xref is reloaded. What purpose would this serve? Is this something so you wouldn't have to change the original xref file?
-
I work for a building services consultancy, we typically clean xrefs removing the crud we don't need, then we move the remaining info to our standard xref layers, so for exapmle we are producing a ceiling layout, we can freeze the furniture and sanitary ware off, to make the drawing cleaner.
But mostly when we clean up the drawings, things with hidden or centre linetypes become solid and can be misinterpreted as walls.
-
I completely forgot to post this, but I put together a quick cursor list prompt (using DosLib) the other day...
Here's my version of this. It doesn't require DosLib:
;;;Written by Jamie Myers
;;;Loose extrapilation from Tony Tanzillo's XGETSTRING sub-routine
(defun xgetkword (msg StringInput / s)
(setq s
(getkword
(strcat "\n" msg
(cond (StringInput (strcat " <" StringInput ">: "))
(t ": ")))))
(cond ((eq s nil) StringInput) (t s))
)
;;;------------------------------------------------------------------------------------------------
(setq choice "testxs")
(initget "testxs testcoxl testcn testxopen testexrs testrlo testxrlc EditLayerFromSelection")
(setq choice (xgetkword "[testxs/testcoxl/testcn/testxopen/testexrs/testrlo/testxrlc/EditLayerFromSelection] " choice))
-
I completely forgot to post this, but I put together a quick cursor list prompt (using DosLib) the other day...
Here's my version of this. It doesn't require DosLib:
;;;Written by Jamie Myers
;;;Loose extrapilation from Tony Tanzillo's XGETSTRING sub-routine
(defun xgetkword (msg StringInput / s)
(setq s
(getkword
(strcat "\n" msg
(cond (StringInput (strcat " <" StringInput ">: "))
(t ": ")))))
(cond ((eq s nil) StringInput) (t s))
)
;;;------------------------------------------------------------------------------------------------
(setq choice "testxs")
(initget "testxs testcoxl testcn testxopen testexrs testrlo testxrlc EditLayerFromSelection")
(setq choice (xgetkword "[testxs/testcoxl/testcn/testxopen/testexrs/testrlo/testxrlc/EditLayerFromSelection] " choice))
Seems like a bit of extra typing just to avoid loading a very useful addon like DosLib.
-
modify to suit (add/change properties, export result to file ...) (http://www.theswamp.org/lilly_pond/mp/lisp/getxrefsproperties.txt?nossi=1)
...Values greater than 1 suggest you may
;; have a CADD Bozo who inadvertantly copied an XREF during
;; a copy sequence, whereas a instance count of 0 suggests
;; said quack deleted the xref during an erase sequence.
:-D
-
Seems like a bit of extra typing just to avoid loading a very useful addon like DosLib.
I gree, DosLib is a very useful tool, but with this DosLib would not be a requirement. Less to have to load up for most users.
-
:-D
(http://mschaut.files.wordpress.com/2008/03/daffy_duck.jpg)
-
Quite the comedian :-)
-
A idea that might be useful
I added this to a application but when the large file comes in from civil or arch a original copy is saved and a bunch of clean up and all the entites in the xref are put on 1 to a few layers so 200 layers are not brought in. Then using a command you can hover over entity in xref and the tool tip displays the layer name from original. Basic idea is a copied drawing and both entites have same handle. And ability to change the layers to what are in original, but deleting then adding objects in modified xref has not yet been a issue.