如何合并两个变体

绝情一剑

大家知道用VLA方式获得的点都是双精度数组的变体，现在我得到两个这样的点，如果我们分别进行还原成点例如：pt'(x y z) 和pt1'(a b c)


能不能有一种方法可以把两个变体直接合并成一个变体对这一个变体进行还原后得到上面两个点的点集(pt pt1)

meflying

为什么要合并成一个变体？你想做什么？

绝情一剑

vla-addmline是需要一个点集合表的变体，而用VLA方法得到的点已经是变体了，创建起来比较麻烦，不知道斑竹有没有好的办法

meflying

参考帮助文件中，教程《花园小路》中的函数 (defun gp:list->variantArray (ptsList / arraySpace sArray)
(setq arraySpace (vlax-make-safearray vlax-vbdouble
(cons 0 (- (length ptsList) 1))
)
)
(setq sArray (vlax-safearray-fill arraySpace ptsList))
(vlax-make-variant sArray)
)

绝情一剑

meflying 斑竹这个把点表转化成变体的我知道，我就是不想分别把这两个变体变成点再合并成表再safearray 在转化成变体，就像我现在分别把两只生鱼做成两瓶罐头，我现在需要的是一个大瓶子装两只鱼，我需要的是把两只鱼装到一个瓶子里，而不是把两瓶罐头变成两只活鱼后再一块做罐头

meflying

有何不行？ (defun ptarray->ptsarray(ptarrays / i n arraySpace ptarray)
(setq i 0)
(setq n (length ptarrays))
(setq arraySpace (vlax-make-safearray vlax-vbdouble
(cons 0 (- (* 3 n) 1))
)
)
(repeat n
(setq ptarray (nth i ptarrays))
(vlax-safearray-put-element arraySpace (* 3 i) (vlax-safearray-get-element ptarray 0))
(vlax-safearray-put-element arraySpace (1+ (* 3 i)) (vlax-safearray-get-element ptarray 1))
(vlax-safearray-put-element arraySpace (+ (* 3 i) 2) (vlax-safearray-get-element ptarray 2))
(setq i (1+ i))
)
arraySpace
) (Defun c:test( / mp ent pt1 pt2)
(setq mp (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))
(setq ent (car (entsel)))
(setq ent (vlax-ename->vla-object ent))
(vla-getboundingbox ent 'pt1 'pt2)
(vla-addpolyline mp (ptarray->ptsarray (list pt1 pt2)))
)