求高手帮忙完成多段线随意加关键点的程序

raimo · 发表于 2011-9-17 22:08:49

本帖最后由 raimo 于 2011-9-19 20:45 编辑

最近看到有人发多段线加关键点的程序,这个程序还是比较实用的..
试过之后觉得不是每次都有效.而且似乎和关键点顺序有关..CAD自带的用起来不方便, 比较麻烦

根据我的理解,我觉得这个程序似乎可以这样来实现(平时我也是按这个步骤来分步操作的..)
1.指定捕捉多段线上任意点, 用break [f]来实现打断
2.用多段线连接来重新连接这两段多段线..
这样不就可以轻松实现在任意位置给多段线增加关键点了吗,而且还不受直线弧线问题的影响

可惜我只会想,不会用LSP语言来写出这段程序..也不知道我这一番胡思乱想是不是正确

这其中捕捉,打断似乎不难.但如何识别这两段新的多段线就是刚打断的,再连接起来.我就不知道如何做到了..请坛子里的高手出手帮帮忙实现吧,多谢了...

sen.sam · 发表于 2011-9-17 22:36:21

打断前用entlast获得最后一个图元，打断后用entnext获得新生成的图元，再连接起来。不知道这样行不行？

raimo · 发表于 2011-9-18 21:09:30

顶上去..希望能有朋友能帮忙出手解决

Gu_xl · 发表于 2011-9-20 12:37:08

;;;多段线加点

(defun c:tt (/ CMDECHO EN PT ENDEN SS osmode)
(setq cmdecho (getvar 'cmdecho))
(setq osmode (getvar 'osmode))
(setvar 'cmdecho 0)
(setvar 'osmode 930)
(and
(setq en (car (entsel "\n选择多段线:")))
(WCMATCH (cdr (assoc 0 (entget en))) "*POLYLINE")
(setq pt (getpoint "\n打断位置点: "))
(progn
(setq enden (entlast))
(command "_break" en "near" pt pt)
(setq ss (ssadd))
(while (setq enden (entnext enden))
(if (not (member (cdr (assoc 0 (entget enden)))
'("ATTRIB" "VERTEX" "SEQEND")))
(ssadd enden ss)
)
)
(command "pedit" en "j" ss "" "")
)
)
(setvar 'cmdecho cmdecho)
(setvar 'osmode osmode)
(princ)
)

raimo · 发表于 2011-9-20 22:58:32

Gu_xl 发表于 2011-9-20 12:37
;;;多段线加点

Gu_xl 版主真棒!!!

这就是我想要的啦,谢谢你实现了我的愿望

zsw23 · 发表于 2011-9-21 00:03:50

可以连续加点就好了

yoyoho · 发表于 2011-9-21 09:46:17

感谢Gu_xl舨主分享程序
,学习了!

yoyoho · 发表于 2011-9-21 10:03:32

Gu_xl 版主您的程序不错喔!
测试一下,对有圆弧的PL线也支持喔!

無恒的地盘 · 发表于 2011-9-21 11:25:54

楼上有那么多点加吗，还不如从前新画一个

690994 · 发表于 2011-9-21 12:31:29

这个用几何学算出凸度新点位置再更新可能会更好些
连续加点也方便

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

求高手帮忙完成多段线随意加关键点的程序

评分