Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.13;
Скачать: CL | DM;

Вниз

AutoCAD automation   Найти похожие ветки 

 
GLFox   (2004-12-09 13:39) [0]

Необходимо вызвать функцию SelectionSet.SelectXXX, но проблема!
При передаче параметра FilterType начинается грязная ругань, на то что invalid.
Если кто может, нарисуйте пример вызова.


 
Владимир   (2005-01-29 14:43) [1]

А какая версия када? Работает по разному.
SelectionSet вообще работает своебразно :)
скорее всего это связано с тем, что оно несколько по разному поддерживается в командной строке, лиспе и VB , поэтому лучше на мой взгляд эту SelectionSet на VB вообще обойти, не для него она делалась. я решал проблему предварительно посылая через SendCommand очистку селекшинов или наоборот select с фильтром


 
k2 ©   (2005-01-31 08:32) [2]

С SelectionSet очень несложно работать, просто при раннем связывании нужно правильно объявить фильтр (пример давала пару недель назад, но поиском не могу найти, так как он был в потрепаловке):


procedure TForm1.Button1Click(Sender: TObject);
var
 acad: AcadApplication;
 adoc: IAcadDocument;
 ss: IAcadSelectionSet;  
 ft, fd, llp, urp: OleVariant;
 i: integer;
begin
 try
   acad := GetActiveOleObject("AutoCAD.Application")as AcadApplication;
 except
   showmessage("Откройте Автокад.");
 end;
 if not assigned(acad) then
   exit;
 adoc := acad.ActiveDocument;
 try
   ss := adoc.SelectionSets.Add("ss");
 except
   ss := adoc.SelectionSets.Item("ss");
 end;
 if not assigned(ss) then
   exit;
 ft := VarArrayCreate([0, 0], varSmallint);
 fd := VarArrayCreate([0, 0], varVariant);
 ft[0] := 0; fd[0] := "Spline";
 ss.Clear;
 ss.Select(acSelectionSetAll, EmptyParam, EmptyParam, ft, fd);
 ss.Highlight(true);
 acad.Update;
 Memo1.Lines.Add(IntToStr(ss.Count));
end;



Страницы: 1 вся ветка

Текущий архив: 2005.11.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.055 c
1-1129881984
Leonid
2005-10-21 12:06
2005.11.13
Рисунок в TImage


2-1129571918
Pasha L
2005-10-17 21:58
2005.11.13
_filetime в searchrec


2-1129702622
Phoenix
2005-10-19 10:17
2005.11.13
Закрашивание строк в ListView


5-1109098399
olookin
2005-02-22 21:53
2005.11.13
Свойства self-made компонента - ничего не понимаю!


14-1129899414
ilya39
2005-10-21 16:56
2005.11.13
сайт по ASP.NET