[Sleekka]

Подскажите подалуйста
Имею список вида:

Код:

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

(((-2.85447e+006 -944361.0 57910.7) (-2.85447e+006 -944361.0 57910.7) 
(-2.85447e+006 -944361.0 57910.7)) ((-2.77761e+006 -1.38059e+006 183074.0) 
(-2.77761e+006 -1.38059e+006 183074.0) (-2.77761e+006 -1.38059e+006 183074.0)) 
((-2.75758e+006 -1.84882e+006 204664.0) (-2.75758e+006 -1.84882e+006 204664.0) 
(-2.75758e+006 -1.84882e+006 204664.0)))

Для метода (vla-Add3Dmesh требуется безопасный массив, как его получить?

[VVA]

Примеры
http://www.cadforums.net/ftopic2686.html
http://student.fsid.cvut.cz/~kubicek...ISP/grafun.lsp
http://www.caduser.ru/cgi-bin/f1/board.cgi?t=17851cB
По последней ссылке посмотри ф-цию safe-points

[Donhuan]

Не тестировал, но возожно так:

Код:

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

((lambda (x)
   (vlax-safearray-fill
     (vlax-make-safearray
       vlax-vbdouble
       (cons 0 (- (length x) 1))
     ) ;_ end of vlax-make-safearray
     x
   ) ;_ end of vlax-safearray-fill
 ) ;_ end of lambda
  (apply 'append (apply 'append list_point))
)

p.s. при создании сетки важно правильно занести в список столбцы и ряды точек.

[Sleekka]

Разобрался, СПАСИБО, чтобы я без вас делал!!!

[Lorens]

А вот мне не разобраться

ситуация схожая - хочу создать полилинию addPolyline, требуется массив (безопасный) у меня точки загнаны в варианты. А вот как из набора вариантов получить массив я не понимаю - штудирую Полещука, но как то видимо не на то я учился

[Дима_]

Сообщение от Lorens А вот как из набора вариантов

А что в Вашем понимании набор
з.ы. а лучше сразу код с комментариями чего от него хотим...

[Lorens]

Функцией vlax-3d-point насоздавал вариантов с тремя вещественными числами (координаты точек). Хочу их всунуть в addPolyline и.и.и подвисаю.

Грубо говоря:

(setq po1 (vlax-3d-point 0 0))
(setq po2 (vla-polarpoint objU po1 (/ pi 2) 1000))

(setq po3 (vlax-3d-point 1000 0))
(setq po4 (vla-polarpoint objU po3 (/ pi 2) 1000))

(setq varian (vlax-make-safearray vlax-vbVariant '(0 . 12)))
(vlax-safearray-fill varian (list po1 po2 po3 po4))

(vla-addPolyline objM varian)



пока они у меня в разных переменных хранятся.

p.s. Понимаю, что вопрос дурацкий, но мне надо разбираться с ActivX. А как то пока не получается

[kp+]

PLTOOLS выложены с исходниками. Там можно найти множество примеров программной работы с полилиниями. А возможно, и готовое решение Вашей реальной задачи.

[VVA]

DwgRuLispLib: Преобразование variant или safearray в список
там в примерах

Код:

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

(setq lst '(1 2 3))
(setq lst1 (vlax-make-variant (vlax-safearray-fill
   (vlax-make-safearray vlax-vbVariant (cons 0 (1- (length Lst))))
   '(1 2 3))))

Посмотри здесь функции LM:SafearrayVarian и LM:PointVariant

[Lorens]

Разобрался - оказывается safearray-fill заполняет массив только списком из чисел.