[LISP函数]：帮忙啊！请问如何获得spline的控制点?

gc1sjd

请问我想把spline加粗，该怎么办啊？
我想用polyline覆盖在其上面：首先获取spline的控制点，再根据控制点画polyline线，然后再spline化它，再加粗，应该可以吧？
可是我不知道怎么用ｌｉｓｐ把spline的控制点提取出来。nentsel不行吧?哪位高手帮帮忙啊。
如果用VBA实现，好像挺容易，就不要大家给我讲原理了，如果有源代码最好了，哈哈。
谢谢大家
bow

aidraft

;;;用法: (getctrpts (car (entsel "\n选择spline: ")))
(defun getctrpts (en / ctrpts i ctrPtLst)
  (setq        ctrpts
         (vlax-safearray->list
           (vlax-variant-value
             (vla-get-controlpoints (vlax-ename->vla-object en)))))
  (setq i 0)
  (repeat (/ (length ctrpts) 3)
    (setq ctrPtLst (cons (list (nth i ctrpts)
                               (nth (1+ i) ctrpts)
                               (nth (+ i 2) ctrpts))
                         ctrPtLst))
    (setq i (+ i 3))
    )
  (reverse ctrPtLst)
)

lsjjm

可直接使用内部函数:
(acet-geom-vertex-list spline)

gc1sjd

感谢两位大侠，不过那个只能在vlisp中用吧。请教能不能用autolisp写呢？是不是vlisp的不能在R14下用啊？有办法吗?

lsjjm

for R14:
[php]
(defun c:test ( / pts)
  (foreach i (entget (car (entsel)))
    (if        (= (car i) 10)
      (setq pts (cons (cdr i) pts))
    )
  )
  (reverse pts)
)
[/php]