четверг, 5 июня 2014 г.

Стиль точек в AutoCAD

Задачка, что называется "в два действия", но раз уж стал выкладывать информацию по работе с различными стилями в AutoCAD, то покажу и настройку стиля точек (для полноты картины), хотя, скорее всего, это и без моих заметок ни у кого не должно вызывать трудностей.

Весь код сводится к банальному изменению двух свойств (одноимённых соответствующим системным переменным AutoCAD). Информация об этих переменных присутствует в справочной системе AutoCAD и не должна вызывать каких-либо сложностей в понимании.



/* PointStyleSample.cs
 * © Андрей Бушман, 2014 
 * Пример изменения стиля точек.
 */
using System;
 
using cad = Autodesk.AutoCAD.ApplicationServices
.Application;
using Ap = Autodesk.AutoCAD.ApplicationServices;
using Db = Autodesk.AutoCAD.DatabaseServices;
using Rt = Autodesk.AutoCAD.Runtime;
 
[assembly: Rt.CommandClass(typeof(Bushman.CAD
  .Samples.Styles.PointStyleSample))]
 
namespace Bushman.CAD.Samples.Styles {
 
  public sealed class PointStyleSample {
 
    [Rt.CommandMethod("ChangePointStyle",
      Rt.CommandFlags.Modal)]
    public void ChangePointStyle() {
      Ap.Document doc = cad.DocumentManager
        .MdiActiveDocument;
      if(doc == null)
        return;
      using(doc.LockDocument()) {
        Db.Database db = doc.Database;
        db.Pdmode = 35;
        db.Pdsize = -10;
      }
    }
  }
}

Комментариев нет: