Главная страница
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.025 c
5-1109742825
Аюс
2005-03-02 08:53
2005.11.13
FreeNotification(Self) принцип работы ?


2-1130163180
Zoostal
2005-10-24 18:13
2005.11.13
Проблема с IBX


14-1129919373
LordOfRock
2005-10-21 22:29
2005.11.13
Symantec Norton Antivirus 2004


4-1124876130
Scordion
2005-08-24 13:35
2005.11.13
Как сделать форму поверх всех приложений?


2-1130240207
VEZ
2005-10-25 15:36
2005.11.13
Hex SpinEdit