[求助]如何将 表 转化为矢量？

cwnulo5u

vlax-AddSpline(PointsArray, StartTangent, EndTangent)

 

为了调用vlax-AddSpline绘样条曲线，必须指定StartTangent与Endtangent.

(setq StartTangent '(1.0 2.0 0.0))

如何将其转换为要求的矢量格式？

或者为什么我的写法报错呢？

(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)
)

(setq VLADataPts (gp:list->variantArrayStartTangent))

  (setq pline (vla-AddSpline
  VLADataPts
  StartTangent
  EndTangent
       ) ;_ 结束 vla-addLightweightPolyline
  ) ;_ 结束 setq

 

alin

问题较多，建议整理好所有资料才发问。

参考：http://discussion.autodesk.com/thread.jspa?messageID=5089845

sailorcwx

缺少空间指针，还有(vlax-make-variant sArray)多余