Запрос на указание объекта в 2D документе

[Komp_ass]

Можно ли как-то и если можно, то каким образом создать запрос на указание пользователем объекта на чертеже (линии, отрезка, окружности, макрообъекта и т.д. и т.п.)?

[UU]

Можно ли как-то и если можно, то каким образом создать запрос на указание пользователем объекта на чертеже (линии, отрезка, окружности, макрообъекта и т.д. и т.п.)?

Можно - Step4.

[Komp_ass]

Извините, а можно как-то более развернуто? Там я нашел только примеры на запрос точки или точки и угла и пока вообще не понимаю как можно из этого сделать запрос на указание объекта.

[Teywl Wind]

Извините, а можно как-то более развернуто? Там я нашел только примеры на запрос точки или точки и угла и пока вообще не понимаю как можно из этого сделать запрос на указание объекта.

А задача какая? Можете пример привести?

[Komp_ass]

А задача какая? Можете пример привести?

Замена объектов в документе на указанный объект полученный из запроса.

[Doom2]

На этом форуме раз 10 наверно такой вопрос поднимали - поищите и может даже еще знаний получите при поиске.

Вечная привычка использовать что то не прочитав инструкцию..

[msvteh]

Извините, а можно как-то более развернуто? Там я нашел только примеры на запрос точки ....

Код Выделить Развернуть

  j := doc.ksCursor( info, x ,y, nil );
  if j <> 0 then
  begin
    pObj := doc.ksFindObj( x, y, 1e6 ); //ближайший к заданной точке объект вида
    if doc.ksExistObj( pObj ) <> 0 then
    begin
      tipe := doc.ksGetObjParam( pObj,nil, 0);   //тип объекта по его reference
      if tipe = LINESEG_OBJ then
.....
      if tipe = CIRCLE_OBJ then
.....


[UU]

Код Выделить Развернуть

  j := doc.ksCursor( info, x ,y, nil );
  if j <> 0 then
  begin
    pObj := doc.ksFindObj( x, y, 1e6 ); //ближайший к заданной точке объект вида
    if doc.ksExistObj( pObj ) <> 0 then
    begin
      tipe := doc.ksGetObjParam( pObj,nil, 0);   //тип объекта по его reference
      if tipe = LINESEG_OBJ then
.....
      if tipe = CIRCLE_OBJ then
.....


Много ...
Где - info?

[msvteh]

Automation step5, step7, step8.
pik10 step5, step7, step8.

[Doom2]

Здесь поэлементно анализировал чертеж и переводил в другой САПР

[Komp_ass]

Код Выделить Развернуть

  j := doc.ksCursor( info, x ,y, nil );
  if j <> 0 then
  begin
    pObj := doc.ksFindObj( x, y, 1e6 ); //ближайший к заданной точке объект вида
    if doc.ksExistObj( pObj ) <> 0 then
    begin
      tipe := doc.ksGetObjParam( pObj,nil, 0);   //тип объекта по его reference
      if tipe = LINESEG_OBJ then
.....
      if tipe = CIRCLE_OBJ then
.....


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

[UU]

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

Рекомендую.