[gool]

Как создать подсказку для блока, например, которая будет выводиться при наведении на этот блок? Подобная тема поднималась раньше, но там упоминаются команды note и T2N, а ссылки, где их взять - недоступны. Может, у кого есть?
Спасибо

[gool]

Дима, гиперссылки мне "угодили", я всего то спрашивала, вдруг можно убрать слова "CTRL+ ....". Разве по этому поводу я непонятно выразилась? Ну нельзя, значит нельзя.
Данные все рассчитаны, хранятся в расширенных данных, и просматриваются через окна, и там куча дополнительных данных, и потери напряжения, и сопротивления, и токи, и типы аппаратуры с их параметрами. Но токи - самое важное при анализе схемы. И хотелось бы их видеть быстро. Правда, эти окна я навесила на горячие клавиши, но все равно не очень удобно. Идешь по цепочке по десяткам элементов, каждый раз открывать и закрывать окно.
Все начиналось в Delphi. Но это не очень удобно, сами понимаете, чертеж то в autocad-е. Пришлось осваивать autocad. До этого работала в нем довольно поверхностно. И пришлось autocad с delphi связывать, т.к. там достаточно много наработок было. Я не думала, что интересен вопрос, как я храню данные, я вытащу то, что нужно показать, вопрос в том, как показать.
Про атрибуты я тоже думала, но отказалась, т.к. в начале рисования схемы их нет, а потом могут налазить на другие элементы схемы. Даже если под эти атрибуты оставлять место, для передачи схемы их нужно отключать, и заказчику будет неясно, зачем тут такие "пустоты"?
Да и тогда нужно следить за атрибутами, чтобы те, которые вычисляются, любой не смог изменить. В атрибутах хранятся, например, типы оборудования, номиналы, позиционные обозначения и.т.д. - та информация, которая д.б. на чертеже всегда.
Вообщем, спасибо всем. Для анализа схем сойдет пока и гиперссылка, будем закрывать глаза на предложение "перейти по ссылке через...".

[hwd]

Сообщение от gool Вообщем, спасибо всем. Для анализа схем сойдет пока и гиперссылка, будем закрывать глаза на предложение "перейти по ссылке через...".

Ну что же, хозяин - барин, как говорится

[gool]

Алексей, я понятие ролловеры слышала, но, оно, по-моему относится к версиям выше 2009. У меня 2006, к сожалению (нелицензионные версии не используем).
hwd, не злитесь, я решила, что тема закрыта.

[hwd]

Сообщение от gool У меня 2006, к сожалению

Насчёт 2006 не знаю, т.к. не пробовал под него писать на .NET. Те, у кого имеется под рукой AutoCAD 2006, могут попробовать скомпилировать под него этот код. Там же, в мультике демонстрируется принцип работы.

UPD.
Смотрите вложенный файл. Откомпилировал под AutoCAD 2006. Распакуйте его у себя на локальной машине. На компьютере обязательно должен быть установлен .Net Framework 2.0.
Попробуйте загрузить выложенную мною библиотеку в AutoCAD 2006 командой _NETLOAD и проверьте работоспособность. Пришлось внести в исходный код значительные изменения, т.к. .NET API под AutoCAD 2006 более "ущербный".

[Дима_]

Сообщение от gool И пришлось autocad с delphi связывать, т.к. там достаточно много наработок было.

Ну так добавьте на acad.ActiveDocument.SelectionChanged ... функцию анализирующие pickfirstselectionset (если там в самом событии ничего нет, я не помню уж) и у рисуйте у курсора полупрозрачные окошки.

[Кулик Алексей aka kpblc]

Дима_, насколько я понял, подсказка нужна не в момент выбора, а в момент "подвода" курсора к примитиву. Так что SelectionChanged тут будет ни к селу, ни к городу. ЯТД.

[hwd]

Сообщение от Кулик Алексей aka kpblc Дима_, насколько я понял, подсказка нужна не в момент выбора, а в момент "подвода" курсора к примитиву. Так что SelectionChanged тут будет ни к селу, ни к городу. ЯТД.

+1
Offtop: не стал об этом писать .

[Олег (jr.)]

Попробуй такой вариант без использования GRREAD:

Код:

[Выделить все]

;;-----------------------------------------------------------------------;;
			(vl-load-com)
	
			;;Задай имя атрибута здесь:
			(setq *strTag* "KP");глобальная переменная

(defun C:ATP(/  attData blk isOK  sset strVal)
(while
		    (setq sset (ssget "_:S:E:L" (list (cons 0  "insert")(cons 66 1))))
		     (progn
		       
		       (setq blk (vlax-ename->vla-object (ssname sset 0)))
		
		       (setq attData
			      (mapcar (function
					(lambda	(at)
					  (list	(vla-get-tagstring at)
						(vla-get-textstring at))
					  ))
				      (vlax-invoke
					blk
					'Getattributes)
				      )
			     )
		       (if (setq IsOk
				  (car (vl-remove-if-not
					 '(lambda (x)
					    (eq (car x) *strTag*)
					    )
					 attData)))
			 (progn
			
			   (setq strVal (cadr IsOk))
			   
			 (alert  (strcat "Блок: " (vla-get-effectivename blk)"\nЗначение: " strval))
			   )
			 (alert  (strcat "Атрибут: " *strTag* " не найден."))
			 )
		       
		       )
		    
		     )
  (princ)
  )
;;-----------------------------------------------------------------------;;

[hwd]

Сообщение от Олег (jr.) Попробуй такой вариант

Это совершенно не то, о чём спрашивала автор топика:

создать подсказку для блока, например, которая будет выводиться при наведении на этот блок?

gool
Ну и чего молчим?

[Дима_]

Да это я тоже знаю, просто через лисп и активикс (в чем у автора есть какое-то понимание), это надо через голову перепрыгнуть чтоб реализовать без щелчка, а если там уже что-то на дельфях прикрученно, то есть ли смысл автору с 2006 .Net'ом заморачиватся.
з.ы лично для меня щелчок в такой задаче был-бы предпочтительней (но автору конечно видней)
з.з.ы тут все меняется т.к. hwd уже и 2006 нашел и переделал, только данные у автора в расширенныз сидят (и не факт что они одинаковые у всех вхождений блока, а т.к. формат автор дружелюбно не выдал - то ему либо самому разруливать, либо опять Андрея просить).

[gool]

hwd, спасибо! библиотеку взяла, но при загрузке выдает:
"Не удалось загрузить сборку. Сведения об ошибке:
System.BadImageFormatException: Недопустимый формат файла
'BlockReferencesTooltip.dll'...."
Я еще посмотрю. Это первая проба.
Дима, это тоже идея. Хоть и не наведение курсора, а при выборе, но это побыстрее, чем у меня сейчас открывать и закрывать окна.
Олег! а вашу функцию я попробовала. Все ок. И хотя у меня информация в расширенных данных, это я изменю, без проблем.
Самой мне эти идеи в голову не пришли. Зациклилась на подсказках.
Ребята, вы супер, я уже писала.

[hwd]

Сообщение от gool при загрузке выдает: "Не удалось загрузить сборку. Сведения об ошибке: System.BadImageFormatException: Недопустимый формат файла 'BlockReferencesTooltip.dll'...."

Подозреваю, что AutoCAD 2006 использует .Net Framework 1.0 или 1.1, а не версию 2.0. Я не смогу скомпилировать под 1.0 и 1.1, т.к. моя MS Visual Studio 2010 не поддерживает эти устаревшие версии платформы. Да и код нужно будет снова править, т.к. в обозначенных версиях ещё отсутствовали Generics.

[gool]

hwd, спасибо, не заморачивайтесь. Действительно, framework 1.1. так что я сделаю попроще, как подсказали ребята - через activeX или как посоветовал Олег.

[Олег (jr.)]

Можешь попробовать для .NET Framework 1.1,
здесь нет WPF,только обычное автокадовское окошко

Код:

[Выделить все]

        [CommandMethod("mes")]
        public void testGetXdata()
        {
            Document doc = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument;

            Database db = doc.Database;

            Editor ed = doc.Editor;

            ed.PointMonitor+=new PointMonitorEventHandler(ed_PointMonitor);

            using (Transaction tr= db.TransactionManager.StartTransaction())
            {
                try
                {
                    ObjectId[] ids = GetUserPickedObjects(doc);
                    foreach (ObjectId id in ids)
                    {
                        string message = GetToolTip(id);
                        Autodesk.AutoCAD.ApplicationServices.Application.ShowAlertDialog(message);
                    }

                }
                catch
                {
                    Autodesk.AutoCAD.ApplicationServices.Application.ShowAlertDialog("Bad news, mom!");
                  //  ed.PointMonitor -= new PointMonitorEventHandler(ed_PointMonitor);
                }
                finally
                {
                    ed.PointMonitor -= new PointMonitorEventHandler(ed_PointMonitor);
                }
        }
        }
        private static ObjectId[] GetUserPickedObjects(Document dwg)
        {
            List<ObjectId> ids = new List<ObjectId>();
            using (Transaction tran =
                dwg.Database.TransactionManager.StartTransaction())
            {
                bool go = true;
                while (go)
                {
                    go = false;

                    PromptEntityOptions opt =
                        new PromptEntityOptions("\nPick an entity: ");
                    PromptEntityResult res = dwg.Editor.GetEntity(opt);

                    if (res.Status == PromptStatus.OK)
                    {
                        bool exists = false;
                        foreach (ObjectId id in ids)
                        {
                            if (id == res.ObjectId)
                            {
                                exists = true;
                                break;
                            }
                        }

                        if (!exists)
                        {
                            //Highlight
                            Entity ent = (Entity)tran.GetObject(
                                res.ObjectId, OpenMode.ForWrite);

                            ent.Highlight();

                            ids.Add(res.ObjectId);
                            go = true;
                        }
                    }
                }

                tran.Commit();
            }

            return ids.ToArray();
        }


        private void ed_PointMonitor(object sender, PointMonitorEventArgs e)
        {
            //if (_dwg == null)
            //    return;
            //if (!_msgOn) return;
           Editor ed = (Editor) sender;
            Document doc = ed.Document;

            FullSubentityPath[] paths = e.Context.GetPickedEntities();
            if (paths.Length > 0)
            {
                ObjectId[] ids = paths[0].GetObjectIds();
                if (ids.Length > 0)
                {
                    ObjectId selId = ids[ids.Length - 1];
                    string tipText = GetToolTip(selId);
                    e.AppendToolTipText(tipText);
                }
            }
        }
 private string GetToolTip(ObjectId selId)
 {
StringBuilder sb = new StringBuilder();
Entity ent= selId.GetObject( OpenMode.ForRead,false) as Entity;
Database db = ent.OwnerId.OriginalDatabase;
using (Transaction tr= db.TransactionManager.StartTransaction())
if (ent!=null)
{

    try
    {
        BlockReference bref = ent as BlockReference;
      
        ResultBuffer rb = bref.XData;

        if (rb == null)
        {
            sb.Append("\nBlock does not have XData attached.");
        }
        else
        {
            sb.Append("\n-------------------------------------");
            sb.Append("\nBlock Name:: " + EffectiveName(tr, bref) + "\n");
            foreach (TypedValue tv in rb.AsArray())
            {
                sb.Append(string.Format("Code: {0}, Value: {1}\n", tv.TypeCode, tv.Value));
            }
            rb.Dispose();
        }

    }
    catch (System.Exception ex)
    {
        Autodesk.AutoCAD.ApplicationServices.Application.ShowAlertDialog(string.Format("\n{0}\n{1}", ex.Message, ex.StackTrace));
    }
}

 return sb.ToString(); 
}
       //      get the real block name.        //    
    static public string EffectiveName(Transaction tr, BlockReference bref)     
   {    
        BlockTableRecord btr = null;    
        if ((bref.IsDynamicBlock) | (bref.Name.StartsWith("*U", StringComparison.InvariantCultureIgnoreCase)))  
          {                btr = tr.GetObject(bref.DynamicBlockTableRecord, OpenMode.ForRead) as BlockTableRecord;      
      }      
      else     
       {        
        btr = tr.GetObject(bref.BlockTableRecord, OpenMode.ForRead) as BlockTableRecord; 
           }
            return btr.Name;     
   }

[hwd]

Сообщение от Олег (jr.) Можешь попробовать для .NET Framework 1.1,

Насколько я понял, автор не умеет компилировать код, написанный на .NET и возможно, что даже отсутствует нужная версия IDE MS Visual Studio. Хотя, кто знает...

[gool]

Ребята, спасибо, но я действительно не умею на .NET. Но учиться никогда не поздно. Мне хочется давно попробовать хоть что-то. Не подскажете, с чего начать, какую-нибудь литературу доступную "для чайников", что ли, в этом вопросе...

[hwd]

Сообщение от gool Ребята, спасибо, но я действительно не умею на .NET. Но учиться никогда не поздно. Мне хочется давно попробовать хоть что-то. Не подскажете, с чего начать, какую-нибудь литературу доступную "для чайников", что ли, в этом вопросе...

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

.NET - это платформа, предназначенная для программирования под разные операционные системы (Windows\LINUX\MAC OS). Код "условно" кроссплатформенный. "Условно", потому что есть нюансы, которые следует обходить, чтобы он действительно был кроссплатформенным.

[gool]

Я примерно так и представляла, но вы hwd, все четко выразили. Уж насколько шустро работает голова, наверное, не мне судить, но потому что мне все интересно, поэтому и пишу что-то сама прожив около 6-ти десятков. Нельзя ли с Вами связаться как-то лично по этому вопросу, чтобы не "захламлять" форум ?

[hwd]

Сообщение от gool Я примерно так и представляла, но вы hwd, все четко выразили. Уж насколько шустро работает голова, наверное, не мне судить, но потому что мне все интересно, поэтому и пишу что-то сама прожив около 6-ти десятков. Нельзя ли с Вами связаться как-то лично по этому вопросу, чтобы не "захламлять" форум?

Если возникают какие-то вопросы, можете задавать. Мои координаты указаны как в профиле данного форума, так и здесь (если внимательно читать - там и электронная почта указана). Но предупреждаю сразу - обучением я не занимаюсь в виду отсутствия времени, да и, откровенно говоря, желания. Ответить на вопрос - это одно, а сидеть и обучать - это совсем другое...

[gomer]

Сообщение от hwd .NET, это не язык программирования для AutoCAD, вроде AutoLISP. На .NET (вообще-то это группа языков) можно писать не только плагины, но и самостоятельные приложения, в том числе сайты, службы. Т.о. если браться изучать .NET, то нужно быть готовым к тому, что это несколько растянутое по времени занятие. Если усваиваете информацию шустро, то достаточно быстро сможете писать простые вещи. Только нужно сначала определиться, на каком именно .NET языке хотите учиться писать код. Все .NET языки совместимы между собой, т.е. в одном языке свободно можно использовать результат того, что написан на другом. .NET - это платформа, предназначенная для программирования под разные операционные системы (Windows\LINUX\MAC OS). Код "условно" кроссплатформенный. "Условно", потому что есть нюансы, которые следует обходить, чтобы он действительно был кроссплатформенным.

Java vs Microsoft .NET Trailer

http://www.youtube.com/watch?v=13A0_QkqtaQ