This form post inspired me to write this post, coincidently there was internal discussion on similar subject.
When you use _COPYBASE with certain base point, the selected objects are copied in to a temp destination drawing, this temp drawing holds the INSBASE sysvar with given base point.
This program attempts to tap that when you perform a _PASTEORG in another drawing.
Thanks to Joel Petersen, for suggesting this idea
public class EntryPoint : IExtensionApplication
{
public void Initialize()
{
var ed = Application.DocumentManager.MdiActiveDocument.Editor;
var curDb = HostApplicationServices.WorkingDatabase;
var docs = Application.DocumentManager;
docs.DocumentCreated += Docs_DocumentCreated;
docs.DocumentToBeDestroyed += Docs_DocumentToBeDestroyed;
}
private void Docs_DocumentToBeDestroyed(object sender,
DocumentCollectionEventArgs e)
{
MyCommands.DisableDBEvents(e.Document.Database);
}
private void Docs_DocumentCreated(object sender,
DocumentCollectionEventArgs e)
{
MyCommands.EnableDBEvents(e.Document.Database);
}
public void Terminate()
{
}
}
public static class MyCommands
{
//Utils:
public static void PrintToCmdLine(string str)
{
Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;
ed.WriteMessage(str);
}
public static string ObjToTypeAndHandleStr(DBObject dbObj)
{
Debug.Assert(dbObj != null);
string str1 = dbObj.GetType().Name;
return string.Format("< {0,-20} {1,4} >", str1, dbObj.Handle.ToString());
}
public static string ObjToTypeAndHandleStr(ObjectId objId)
{
string str;
if (objId.IsNull)
str = "(null)";
else
{
// open up even if erased
Autodesk.AutoCAD.DatabaseServices.TransactionManager tm = objId.Database.TransactionManager;
using (Autodesk.AutoCAD.DatabaseServices.Transaction tr = tm.StartTransaction())
{
DBObject tmpObj = tr.GetObject(objId, OpenMode.ForRead, true);
str = ObjToTypeAndHandleStr(tmpObj);
tr.Commit();
}
}
return str;
}
public static string PtToStr(Point3d pt, DistanceUnitFormat unitType, int prec)
{
string x = Converter.DistanceToString(pt.X, unitType, prec);
string y = Converter.DistanceToString(pt.Y, unitType, prec);
string z = Converter.DistanceToString(pt.Z, unitType, prec);
return string.Format("({0}, {1}, {2})", x, y, z);
}
public static void EnableDBEvents(Database db)
{
db.BeginDeepClone += CurDb_BeginDeepClone;
db.BeginInsert += Db_BeginInsert;
}
public static void DisableDBEvents(Database db)
{
db.BeginDeepClone -= CurDb_BeginDeepClone;
db.BeginInsert -= Db_BeginInsert;
}
private static void Db_BeginInsert(object sender, BeginInsertEventArgs e)
{
Database db = e.From;
PrintToCmdLine("Insert origin Point"+ PtToStr(db.Insbase, DistanceUnitFormat.Current, -1));
}
private static void CurDb_BeginDeepClone(object sender, IdMappingEventArgs e)
{
if (e.IdMapping.DeepCloneContext == DeepCloneType.Explode)
{
IdMapping idMap = e.IdMapping;
System.Collections.IEnumerator iter = idMap.GetEnumerator();
while (iter.MoveNext())
{
IdPair pair = (IdPair)iter.Current;
try
{
StringBuilder sb = new StringBuilder(ObjToTypeAndHandleStr(pair.Key));
sb.Append(pair.Key.ToString());
sb.Append("\n" + pair.Value.ToString());
sb.Append("\n" + pair.IsCloned.ToString());
sb.Append("\n" + pair.IsPrimary.ToString());
sb.Append("\n" + pair.IsOwnerTranslated.ToString());
PrintToCmdLine(sb.ToString());
}
catch (Autodesk.AutoCAD.Runtime.Exception ex)
{
PrintToCmdLine("Couldn't add a pair from the map: " + ex.Message);
}
}
}
}
}
Alert: 32-bit version is no longer available.
Overview
AutoCAD 2020 provides a set of enhancements based on customer feedback, surveys, and analytic data that prioritize our efforts. Several features are the result of the need to modernize and streamline frequently used features across many customer disciplines.
New Dark Theme
Block Palettes
Purge Dialog box Redesign
DWG Compare Enhancements
Measure Geometry Option–Quick Measure
Save to Web & Mobile Enhancements
To get detailed overview on AutoCAD 2020 product I encourage you to follow Autodesk AutoCAD Blog
API Updates:
ObjectARX : No New APIs.
.NET : No New APIs
Activex:
AcadApplication now supports the progIds "AutoCAD.Application.23" and "AutoCAD.Application.23.1" and AcadComparedReference has been added.
The AcadComparedReference object represents the drawing in which you are comparing the current drawing against. AcadComparedReference inherits from the AcadExternalReference object. The following is a basic example how you might go about determining whether an Xref is of the AcadComparedReference type:
' Checks to see if an object is of the ComparedReference type Sub CheckForComparedReference() Dim ent As AcadEntity Dim comRef As AcadComparedReference On Error Resume Next ' Step through all the objects in model space For Each ent In ThisDrawing.ModelSpace ' Check to see if the object is a Block Reference If ent.ObjectName = "AcDbBlockReference" Then ' Try to cast the entity (Block Reference) to a ComparedReference Set comRef = ent ' If an occurs, then the entity is not a ComparedReference If Err <> 0 Then MsgBox "Not a Compared Reference" Else MsgBox "Xref Name: " + comRef.Name + vbLf + "Compared Reference" End If ' Clear the Error object Err.Clear End If Next ent End Sub
AutoLISP:
There are no new functions or additions.
Xrefs related to the Drawing Compare feature are known as ComparedReference objects. The following is a basic statement that demonstrates how to return the IsComparedReference property of an external reference to determine whether it’s a ComparedReference object
(getpropertyvalue (car (entsel)) "IsComparedReference")
ObjectARX and Managed .NET
I have received a query from an OEM developer, in his Survey product Ortho snapping functionality doesn’t work in +Z/-Z direction.
Here is screen GIF.
AutoCAD, AutoCAD OEM, AutoCAD LT and TrueView are different manifestations of same code base, this has been singlehandedly maintained by our beloved Engineer Patti [Patricia Harris] for last 30 years if I’m not wrong, she recently passed away in tragic accident.
By design AutoCAD LT doesn’t enable Ortho in Z direction as LT is not for 3D designs.
But AutoCAD OEM has a setting that needs to be enabled to have this functionality work.
Tracking down the setting variable was an exhilarating experience, I would like to thank my esteem colleague Markus Kraus, one of the most talented programmer, I would call him second generation programmer after John Walker and his gang left.
So the what’s the secret setting that is hidden for AutoCAD LT, and TrueView but not for AutoCAD and AutoCAD OEM.
You need to enable ‘UCSDETECT’ command in your OEM Program .XML
<OemCmd> <Name>ucsdetect</Name> <Status>Full</Status> </OemCmd>
After enabling the Command
| Sun | Mon | Tue | Wed | Thu | Fri | Sat |
|---|---|---|---|---|---|---|
| 1 | 2 | 3 | 4 | 5 | ||
| 6 | 7 | 8 | 9 | 10 | 11 | 12 |
| 13 | 14 | 15 | 16 | 17 | 18 | 19 |
| 20 | 21 | 22 | 23 | 24 | 25 | 26 |
| 27 | 28 | 29 | 30 | 31 |
Recent Comments