[LiSa]

Подскажите, пожалуйста, как поменять цвет крестика, который появляется при переборе вершин в окне свойств (см. приложенный файл). Спасибо.

[ie.spb]

Это?

[LiSa]

Нет.

[gomer]

может ручки кривые?

[LiSa]

Сообщение от gomer может ручки кривые?

Я имею в виду цвет крестика, который появляется, когда перебираешь вершины в окне свойств, а не цвет ручек.
На самом деле, цвет этого указателя зависит от цвета перекрестья.

[gomer]

ну вот как все просто оказалось, стесняюсь спросить, а зачем?

[LiSa]

Сообщение от gomer ну вот как все просто оказалось, стесняюсь спросить, а зачем?

Вообще, судя по посту #4, Вы к категории стеснительных не относитесь. Но все же отвечу. У пользователя имеется большой контур с множеством вершин, необходимо быстро найти вершину под определенным номером.

[gomer]

Сообщение от LiSa У пользователя имеется большой контур с множеством вершин, необходимо быстро найти вершину под определенным номером.

И вы наивно полагаете увидеть крестик?
Вот вам самый наивный способ найти заданную вершину

Код:

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

 (defun c:test (/ en cn)
  (vl-load-com)
  (if (and (setq en (car (entsel)))
	   (setq cn (getint "\nНомер вершины: "))
      )
      (vla-ZoomCenter
	(vlax-get-acad-object)
	(vlax-3d-point
	  (vlax-safearray->list
	    (vlax-variant-value
	      (vla-get-Coordinate (vlax-ename->vla-object en) cn)
	    )
	  )
	)
	10.0
      )
  )
  (princ)
)

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

gomer, забыл вернуть обратно вид :P

[LiSa]

Сообщение от gomer Вот вам самый наивный способ найти заданную вершину

Мерси.
Так быстрее.

[gomer]

kpblc, предполагаются какие-то действия с вершиной, в том числе зуммирование и панаромирование...
но меня больше убило несоответствие типов (vlax-3d-point <...>) и (vla-get-Coordinate <...>)

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

Почему "несоответствие"?

Код:

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

_$ (vla-get-Coordinate (vlax-ename->vla-object (car(entsel))) 0)
#<variant 8197 ...>
_$ (vla-get-Coordinates (vlax-ename->vla-object(car(entsel))))
#<variant 8197 ...>
_$ (vlax-3d-point '(0. 0. 0.))
#<variant 8197 ...>

А то, что у них размерность разная - ну тут уж извини
P.S. Твой код лично я бы стал использовать очень и очень осторожно: отлова ошибок нет вообще. Можно отказаться от ввода вершины (нажать Esc), ввести отрицательное значение или превышающее количество вершин полилинии...

[gomer]

Сообщение от Кулик Алексей aka kpblc Почему "несоответствие"?

Было б соответствие, не надо было бы извлекать список, а потом его преобразовывать в вариант, обратно, это испортило искрометность моего "кода"
Но, увы, error: Automation Error. Error in converting a SafeArray point to a double array point
а отлов блох отсутствует просто потому что стандартный месседж акада довольно информативен, да и не сложно сделать так как положено, это же всеголишь тестовый код, чтоб показать, что крестик не всегда виден при редактировании в панели свойств

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

Виден. Если выполнить зумирование, и перейти на одну вершину вперед-назад, то крестик будет отрисовываться снова. Откуда берется масштаб "крестика" - не представляю. Единственный вариант - связать с pdsize, но это же дикость!

[gomer]

Сообщение от Кулик Алексей aka kpblc Виден. Если выполнить зумирование, и перейти на одну вершину вперед-назад, то крестик будет отрисовываться снова. Откуда берется масштаб "крестика" - не представляю. Единственный вариант - связать с pdsize, но это же дикость!

не пдсайз, но механизм похож, ну это ж не дело туда сюда гонять, ну а, например, у полилинии несколько тысяч вершин или даже сотен и таких полилиний сотни