[請教] 關於自動修邊的程序主要是Trim修剪對象的問題

BDYCAD

(SETQ Trimp (Trim-Spline (ssget '((0 . "SPLINE")))))
(vl-cmdf ".trim" sbj2 "")
(mapcar '(lambda(e) (vl-cmdf e)) Trimp)
(vl-cmdf "") ;功能 取对象的起点和终点加对象名
(defun Trim-Spline(c / i spl1-a splen STP Trimplist);2004-10-08
(VL-LOAD-COM)
(setq i 0)
(repeat (sslength c)
(setq spl1-a (ssname c i))
(setq splen (vlax-curve-getPointAtParam spl1-a (vlax-curve-getEndParam spl1-a)))
(setq STP (vlax-curve-getPointAtParam spl1-a (vlax-curve-getstartparam spl1-a)))
(setq Trimplist (append (list(list spl1-a splen)) Trimplist )
Trimplist (append (list(list spl1-a STP )) Trimplist ))
(setq i (1+ i)))
Trimplist
)

BDYCAD

原图样






理想的效果[出自手功修剪]






程序处理的效果





测试文件

BDYCAD

想了一天, 不知道为什么明明正确的程序却出了意想不到的错误, 搞不董是程序的原因还是对象本身出来问题呢, 请各位大侠指点指点啊, 谢谢!!!

meflying

不知道你获得这个做什么用?vlax-curve-getPointAtParam 试试这个: (defun c:test( / ss i ent spt ept lst)
(setq ss (ssget '((0 . "SPLINE"))))
(setq i 0)
(repeat (sslength ss)
(setq ent (ssname ss i))
(setq spt (vlax-curve-getstartpoint ent))
(setq ept (vlax-curve-getendpoint ent))
(setq lst (append lst (list (list ent spt) (list ent ept))))
(setq i (1+ i))
)
(setq i 0)
(command "_.trim" ss "")
(mapcar 'command lst)
(command "")
)

BDYCAD

你这个OK. 谢谢!