API应用 Spline之平行Spline

st788796 · 发表于 2013-11-15 01:02:26

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

提供一种思路，API 中 Spline_make 只能制造 Fit 模式的 SPline ，而且不受变量 splmethod 控制，vla-addspline 同样不能制造 control 模式的 Spine，因为必须提供 Starttangent 和 EndTangent ，做 Control 方式的 Spline 只剩变量+Spline 命令方法了

(defun c:tt (/ e d pts pl npl ptl)
(if (and (setq e (car (xdrx_entsel "\nPick Spline: " '((0 . "spline")))))
(setq d (getdist "\nOffset dist: "))
)
(progn
(if (xdrx_getpropertyvalue e "hasFitData")
(setq pts (xdrx_getpropertyvalue e "FitPoints"))
(setq pts (xdrx_getpropertyvalue e "ControlPoints"))
)
(setq pl (apply 'xdrx_polyline_make pts))
(setq npl (xdrx_curve_getoffsetcurves pl d))
(xdrx_entity_delete pl)
(setq ptl (xdrx_getpropertyvalue (ssname npl 0) "Vertices"))
(if (xdrx_getpropertyvalue e "hasFitData")
(apply 'xdrx_spline_make ptl)
(progn
(setvar "SPLMETHOD" 1)
(vl-cmdf ".spline")
(foreach x ptl
(vl-cmdf "_none" x)
)
(vl-cmdf "")
)
)
(xdrx_entity_delete npl)
)
)
(princ)
)

(defun c:tt (/ e d pts pl npl ptl) 
  (if (and (setq e (car (xdrx_entsel "\nPick Spline: " '((0 . "spline"))))) 
           (setq d (getdist "\nOffset dist: ")) 
      ) 
    (progn 
      (if (xdrx_getpropertyvalue e "hasFitData") 
        (setq pts (xdrx_getpropertyvalue e "FitPoints")) 
        (setq pts (xdrx_getpropertyvalue e "ControlPoints")) 
      ) 
      (setq pl (apply 'xdrx_polyline_make pts)) 
      (setq npl (xdrx_curve_getoffsetcurves pl d)) 
      (xdrx_entity_delete pl) 
      (setq ptl (xdrx_getpropertyvalue (ssname npl 0) "Vertices")) 
      (if (xdrx_getpropertyvalue e "hasFitData") 
        (apply 'xdrx_spline_make ptl) 
        (progn 
          (setvar "SPLMETHOD" 1) 
          (vl-cmdf ".spline") 
          (foreach x ptl 
            (vl-cmdf "_none" x) 
          ) 
          (vl-cmdf "") 
        ) 
      ) 
      (xdrx_entity_delete npl) 
    ) 
  ) 
  (princ) 
)

XDSoft · 发表于 2013-11-15 01:08:43

你试试下面里面的，有能用到没

命令: (xdrx_setpropertyvalue (entlast))

Class AcDbSpline:

  ├─RemoveFitPointAt(INT)
  ├─RemoveControlPointAt(INT)2013+
  ├─InsertControlPointAt(INT and Point)
  ├─SetControlPointAt(INT and Point))
  ├─SetFitPointAt(INT and Point)
  ├─InsertFitPointAt(INT and Point)
  ├─SetWeightAt(INT and REAL)
  ├─UpdateFitData(T)
  ├─SetFitTangents(Point and Point)
  ├─ElevateDegree(INT)
  ├─InsertKnot(REAL)

Class AcDbEntity:

  ├─Color(Int)
  ├─Layer(STR)
  ├─Linetype(STR)
  ├─LinetypeScale(Real or Int)
  ├─LineWeight(INT)
  ├─PlotStyleName(STR)
  ├─Transparency(0-100)
  ├─Visibility(T or Nil)

XDSoft · 发表于 2013-11-15 01:14:29

才发现SPLINE的忘记写手册里面了

xdrx_spline_degree
xdrx_spline_HasFitData
xdrx_spline_isnull
xdrx_spline_fitTolerance
xdrx_spline_GetFitPointAt
xdrx_spline_NumFitPoints
xdrx_spline_GetFitTangents
xdrx_spline_GetFitData
xdrx_spline_GetControlPointAt
xdrx_spline_IsRational
xdrx_spline_NumControlPoints
xdrx_spline_WeightAt
xdrx_spline_GetNurbsData
xdrx_spline_ElevateDegree
xdrx_spline_InsertFitPointAt
xdrx_spline_PurgeFitData
xdrx_spline_RemoveFitPointAt
xdrx_spline_SetFitPointAt
xdrx_spline_SetFitTol
xdrx_spline_UpdateFitData
xdrx_spline_InsertKnot
xdrx_spline_SetControlPointAt
xdrx_spline_SetWeightAt

看看这些

没有ARX做不了的东西。

st788796 · 发表于 2013-11-15 11:16:04

XDSoft 发表于 2013-11-15 01:14
才发现SPLINE的忘记写手册里面了

按控制点生成spline就像command一样有简便方法吗

XDSoft · 发表于 2013-11-15 11:28:28

st788796 发表于 2013-11-15 11:16
按控制点生成spline就像command一样有简便方法吗

命令也是ARX写的，SPLINE所有的ARX方法上面都有了，你试试。

st788796 · 发表于 2013-11-15 11:51:25

XDSoft 发表于 2013-11-15 11:28
命令也是ARX写的，SPLINE所有的ARX方法上面都有了，你试试。

Control 型转 Fit 型会多出两个 controlpoint, 可是 removecontrolpoint 仅在 2013 + 提供了

XDSoft · 发表于 2013-11-15 12:15:16

st788796 发表于 2013-11-15 11:51
Control 型转 Fit 型会多出两个 controlpoint, 可是 removecontrolpoint 仅在 2013 + 提供了

一般情况下，高版本提供的API一般都是为了更方便，在低版本下肯定有代替的解决的办法，尤其对SPLINE这样好多年前就有的对象，已经非常成熟了。所以，特别是，在低版本如果命令可以用，那么ARX肯定有方法，你试试在低版本用API实现下。

st788796 · 发表于 2013-11-15 12:18:38

XDSoft 发表于 2013-11-15 12:15
一般情况下，高版本提供的API一般都是为了更方便，在低版本下肯定有代替的解决的办法，尤其对SPLINE这样 ...

晚上整合一个spline ellipse偏移程序

eachy · 发表于 2013-11-16 07:31:46

对平行后顶点退化的pline不适用

账号		自动登录	找回密码
密码			立即注册

[每日一码] API应用 Spline之平行Spline

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

点评

点评