[DFooz]

Хочу аоздать через АктивяИкс сплайн.
Все координаты точек в списке. Присваю элементы списка массиву и выдаёт ошибку

Command: ; error: vlax-safearray-fill failed. Invalid initialization list. #<safearray...> ((0 0.0 0) (10 -7.82832 0) (20 -11.8839 0) (30 -11.8839 0) (40 -7.82832 0) (50 0.0 0) (60 10.3528 0) (70 20.456 0) (80 26.7531 0) (90 26.7531 0) (100 20.456 0) (110 10.3528 0) (120 0.0 0))

Кусок кода

Код:

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

	
(setq sp_heigth (list x ds 0)
           sp (append sp (list sp_heigth))
)


(setq sf (vlax-make-safearray vlax-vbDouble '(0 . 12)) )
	(vlax-safearray-fill sf sp)

Что не так?

И заодно, сплайн так создается?
(setq obj (vla-get-ModelSpace actdoc))
(vla-AddSpline obj (sp, startTan, endTan)

Заранее спасибо.

[fixo]

Суть в том что для создания примитивов типа сплайна
нужен одномерный массив

Вот небольшой пример, надеюсь поможет

Код:

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

;local defun:
(defun makedoublesafe (lst)
(vlax-safearray-fill
  (vlax-make-safearray vlax-vbdouble
    (cons 0 (1- (length lst))))
       lst)
  )
; main part
(defun C:test(/ acsp adoc point_list pt_data spline_obj)
(vl-load-com)  
(setq	adoc (vla-get-activedocument
	       (vlax-get-acad-object)
	     )
  )
  (if (and
	(= (getvar "tilemode") 0)
	(= (getvar "cvport") 1)
      )
    (setq acsp (vla-get-paperspace adoc))
    (setq acsp (vla-get-modelspace adoc))
  )
(setq point_list '((0 0.0 0) (10 -7.82832 0) (20 -11.8839 0) (30 -11.8839 0) (40 
-7.82832 0) (50 0.0 0) (60 10.3528 0) (70 20.456 0) (80 26.7531 0) (90 26.7531 
0) (100 20.456 0) (110 10.3528 0) (120 0.0 0)))
; для создания безопасного массива нужно задавать плоский список элементов:
(setq pt_data (apply 'append point_list)); <-- плющим список точек
(setq pt_data (makedoublesafe pt_data)); <-- создаем и запоняем массив
(setq spline_obj (vla-addspline acsp pt_data
		   (vlax-3d-point '(0 0 0)); вектор касательной в начальной точке
		   (vlax-3d-point '(0 0 0)))); вектор касательной в конечной точке
(princ)
  )

~'J'~

[DFooz]

спасибо огромноееееееееееееееееееееее.[sm166]

А я то въезжал, как это массив для сплайна одномерный, а при создании одномерного массива с тремя точками выдаёт ошибку :evil:


Перед созданием сплайна я смещаю систему координат, а сплайн берёт координаты в мировой системе, а не в моей смещённой. Т.е. появляется в совсем другом месте. Это можно как-то исправить?



ЗЫ: ну почему это ни в каких книгах не написано :cry:

[fixo]

Я тут в полудреме могу ошибиться
так если по памяти вроде таким путем

Код:

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

;local defun:
(defun makedoublesafe (lst)
(vlax-safearray-fill
  (vlax-make-safearray vlax-vbdouble
    (cons 0 (1- (length lst))))
       lst)
  )
; main part
(defun C:test(/ acsp adoc myucs name orig point_list
	      pt_data spline_obj tmax util xdir ydir)
  
(vl-load-com)  
(setq	adoc (vla-get-activedocument
	       (vlax-get-acad-object)
	     )
  )
  (if (and
	(= (getvar "tilemode") 0)
	(= (getvar "cvport") 1)
      )
    (setq acsp (vla-get-paperspace adoc))
    (setq acsp (vla-get-modelspace adoc))
  )
; перемещаем начало координат в точку  '(100 100 0)
(command "._ucs" "_M" '(100 100 0) "")
(setq point_list '((0 0.0 0) (10 -7.82832 0) (20 -11.8839 0) (30 -11.8839 0) (40 
-7.82832 0) (50 0.0 0) (60 10.3528 0) (70 20.456 0) (80 26.7531 0) (90 26.7531 
0) (100 20.456 0) (110 10.3528 0) (120 0.0 0)))
; для создания безопасного массива нужно задавать плоский список элементов:
(setq pt_data (apply 'append point_list)); <-- плющим список точек
(setq pt_data (makedoublesafe pt_data)); <-- создаем и запоняем массив
(setq spline_obj (vla-addspline acsp pt_data
		   (vlax-3d-point '(0 0 0)); вектор касательной в начальной точке
		   (vlax-3d-point '(0 0 0)))); вектор касательной в конечной точке

      (if (eq "" (getvar "UCSNAME"))
	(progn
        ; то есть активная UCS не поименована и к ней нельзя
	; добраться через свойство документа ActiveUCS
	; тогда берем её данные и сохраняем уже как именованную
	(setq util (vla-get-utility adoc))
	     (setq orig (getvar "UCSORG")
		   xdir (getvar "UCSXDIR")
		   ydir (getvar "UCSYDIR")
		   name "MyUCS3"
		   )
	     ; переводим в текущие координаты в мировые:
	     (setq xdir (vla-translatecoordinates util (vlax-3d-point xdir)  acucs acworld  :vlax-false)
		   ydir (vla-translatecoordinates util (vlax-3d-point ydir)  acucs acworld  :vlax-false)
		   )
	     ; сохраняем в документе
	     (setq myucs (vla-add (vla-get-usercoordinateSystems adoc) (vlax-3d-point orig) xdir ydir name))
		     ; устанавливаем как текущую
	     (vla-put-activeucs adoc myucs)
	)
	; а если уже имеется имя у активной UCS просто получаем её:
	(setq myucs (vla-get-activeucs adoc))
       )
	     ; берем матрицу преобразования
	     (setq tmax (vla-getucsmatrix myucs))
             ; применяем её к созданному сплайну
            (vla-transformby spline_obj tmax)  
      (princ)
      )

~'J'~

[DFooz]

спасибо. Но с неименованной системой что-то не идёт. :roll:
Пишет

Command: ; error: Automation Error. UCS X axis and Y axis are not perpendicular

UCS создаю вот так (command "_.UCS" '(150 100) "")

Ошибку на этом кусочке выдаёт

Код:

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

 ; сохраняем в документе
        (setq myucs (vla-add (vla-get-usercoordinateSystems adoc) (vlax-3d-point orig) xdir ydir name))

[fixo]

Ну во-первых из уважения к системе координат
точка должна быть трехмерной
Почитай Хэлп: "Command Reference"

[fixo]

Код выше я исправил

~'J'~

[DFooz]

ааа, понятно
Спасибо большое. :!: :!: