| tiancao1001 于 2018-05-11 10:18 AM 发表评论： |
http://tieba.baidu.com/p/4786482507
1：打开有问题的文件，把所有内容做成一个块。块名简单易记，比如002这类的。
2：新建一个文件，键入Adcenter命令，然后在打开的图形这个选项下面找到有问题的文件，下拉表中点击块选项。会刷新一会……
3：找到你做的块，左键拖拽块到新文件界面中，以后你就可以自由操作啦….
3楼的哥们说的实在不会操作，偶然使用了另外个命令 (dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP")，然后-PU。 注意 命令包含括号，清理之后好像就没有了
|
|
| 查看所评论的日志：CAD每次保存都会出现这个： *警告* 多重从属对象，句柄 |
| tiancao1001 于 2018-05-03 03:54 PM 发表评论： |
|
| 查看所评论的日志：众智结构专业规范大全（2016版）.chm |
| tiancao1001 于 2018-01-16 08:09 PM 发表评论： |
|
| 查看所评论的日志：Vb.Net修改WebBrowser控件UserAgent的方法 |
| tiancao1001 于 2017-10-27 05:32 PM 发表评论： |
|
| 查看所评论的日志：酷我音乐盒免费下载歌曲 |
| tiancao1001 于 2017-10-27 04:24 PM 发表评论： |
| C:\Windows\System32\spool\drivers\x64 |
|
| 查看所评论的日志：Foxit.PDF.Creator.x32x64.破解版 |
| tiancao1001 于 2017-10-27 04:21 PM 发表评论： |
[Foxit License]
SN=PCRFZINT
Modules=
Users=10
Licensee=Foxit Software Internal
LicenseDate=2006/08/11
Sign=349AFC742821803EE5614BF1C39713F07B13464062FF6C48AE0F30AF7251DAEB67A85C886F96AAD7 |
|
| 查看所评论的日志：Foxit.PDF.Creator.x32x64.破解版 |
| tiancao1001 于 2017-07-04 06:44 PM 发表评论： |
Private Sub insertimage(fname As String, bname As String, pt As Point3d, rot As Double, xx As Double, yy As Double)
Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.LockDocument()
Dim doc As Autodesk.AutoCAD.ApplicationServices.Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
Using db As Database = doc.Database
Using tm As Transaction = db.TransactionManager.StartTransaction()
Try
Dim imageDictID As ObjectId = RasterImageDef.GetImageDictionary(db)
If imageDictID.OldId = 0 Then
imageDictID = RasterImageDef.CreateImageDictionary(db)
End If
Dim rasterImageDef__1 As New RasterImageDef()
Dim imageDict As DBDictionary = CType(tm.GetObject(imageDictID, OpenMode.ForWrite), DBDictionary)
Dim rasterImageDefID As ObjectId
If imageDict.Contains(bname) Then
rasterImageDefID = imageDict.GetAt(bname)
rasterImageDef__1 = CType(tm.GetObject(rasterImageDefID, OpenMode.ForWrite), RasterImageDef)
Else
rasterImageDefID = imageDict.SetAt(bname, rasterImageDef__1)
rasterImageDef__1.SourceFileName = fname
rasterImageDef__1.Load()
rasterImageDef__1.ImageModified = True
rasterImageDef__1.ResolutionUnits = Unit.Millimeter
tm.AddNewlyCreatedDBObject(rasterImageDef__1, True)
End If
Dim rasterImage As New RasterImage()
rasterImage.ImageDefId = rasterImageDef__1.ObjectId
rasterImage.Orientation = New CoordinateSystem3d(pt, New Vector3d(xx, 0, 0), New Vector3d(0, yy, 0))
rasterImage.Rotation = (rot * pi) / 180
Dim bt As BlockTable = CType(tm.GetObject(doc.Database.BlockTableId, OpenMode.ForRead, False), BlockTable)
Dim btr As BlockTableRecord = CType(tm.GetObject(bt(BlockTableRecord.ModelSpace), OpenMode.ForWrite, False), BlockTableRecord)
btr.AppendEntity(rasterImage)
tm.AddNewlyCreatedDBObject(rasterImage, True)
tm.Commit()
tm.Dispose()
Catch e As System.Exception
System.Windows.Forms.MessageBox.Show(e.ToString())
End Try
End Using
End Using
End Sub
|
|
| 查看所评论的日志：请教 ，能通过.net 将剪切板中的BMP图像直接以OLE方式插入CAD吗 |
| tiancao1001 于 2017-07-04 06:34 PM 发表评论： |
| ThisDrawing.ModelSpace.AddRaster(ImageFileName, InsertPoint, ScaleFactor, RotAngle) |
|
| 查看所评论的日志：请教 ，能通过.net 将剪切板中的BMP图像直接以OLE方式插入CAD吗 |
[1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... [37] 