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

BDYCAD · 发表于 2004-10-9 16:10:00

(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 · 发表于 2004-10-9 16:13:00

psf4xd2txoi.jpg

原图样

i2om4oxzkhx.jpg

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

byjwous40ji.jpg

程序处理的效果

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:locdcij4hwo.dwg
下载次数:0 文件大小:29.42 KB 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

测试文件

BDYCAD · 发表于 2004-10-9 16:19:00

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

meflying · 发表于 2004-10-9 16:41:00

不知道你获得这个做什么用?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 · 发表于 2004-10-9 17:01:00

你这个OK. 谢谢!

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

发表回复

精选推荐