多一线加顶点与删顶点总有个人会帮助你解决的

fkyourmather · 发表于 2013-5-1 00:56:01

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

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

×

求思路求解决
，如果可以的话大家可以尽情发挥

fkyourmather · 发表于 2013-5-1 01:30:02

本帖最后由 fkyourmather 于 2013-5-1 09:53 编辑

如何删除多义线顶点

cuyongping · 发表于 2013-5-1 08:28:35

fkyourmather 发表于 2013-5-1 01:30

登录/注册后可看大图

;;;功能：多义线添加顶点
;;;用法：(Add_Vertex )
;;;如果点pt在多义线上，则添加该点作为多义线的 ...

谢谢提供源码！喜欢！:)

fkyourmather · 发表于 2013-5-1 10:09:57

fkyourmather 发表于 2013-5-1 01:30

登录/注册后可看大图

如何删除多义线顶点

;wwwliuyu
(defun c:delplint()
  (if(setq sel(entsel "选择多段线: "))
(progn
   (setq data(entget(car sel)))
   (SETQ POINS(MEMBER (ASSOC 10 DATA)DATA))
   (SETQ N(GETINT "指定要删除多段线的第几个点: "))
   (repeat n
(setq pts(assoc 10 poins))
(setq poins(subst '(0 . 0)pts poins))
)
   (entmod(vl-remove pts data))
   );
);
  )

GTJ116600 · 发表于 2013-5-1 19:36:34

好帖，学习中。请教楼主和各位大侠，为什么要加(setq poins(subst '(0 . 0)pts poins))
语句呢，我试过，如果不加得不到想要的结果，但我不清楚楼主是怎么想到要加(setq poins(subst '(0 . 0)pts poins))语句的？

GTJ116600 · 发表于 2013-5-1 19:49:35

cuyongping 发表于 2013-5-1 08:28

登录/注册后可看大图

谢谢提供源码！喜欢！

永平大侠，能不能把Add-Vertex函数的源码给后辈们共享一下，我的邮箱GTJ116600@163.COM

eachy · 发表于 2013-5-2 09:50:19

游客，本帖隐藏的内容需要积分高于 100 才可浏览，您当前积分为 0

HLCAD · 发表于 2013-5-3 08:31:10

设置权限那样高，多少人被拒之门外。我见过的大侠大部分可不是这样

cuyongping · 发表于 2013-5-4 13:44:14

eachy 发表于 2013-5-2 09:50

登录/注册后可看大图

**** 本内容被作者隐藏 ****

谢谢您了！使用了一下太完美了！向您学习！

fkyourmather · 发表于 2013-5-4 14:09:52

eachy 发表于 2013-5-2 09:50

登录/注册后可看大图

**** 本内容被作者隐藏 ****

大手笔！非常帮

caoliu023 · 发表于 2013-8-14 21:42:52

eachy 发表于 2013-5-2 09:50
**** 本内容被作者隐藏 ****

积分还不够

455383153 · 发表于 2018-9-6 08:52:59

eachy 发表于 2013-5-2 09:50
**** 本内容被作者隐藏 ****

Ea:Insitem 这是个啥函数呢

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

[求助] 多一线加顶点与删顶点总有个人会帮助你解决的

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

相关帖子

增删顶点

点评

[求助] 多一线加顶点与删顶点 总有个人会帮助你解决的

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

相关帖子

增删顶点

点评

[求助] 多一线加顶点与删顶点总有个人会帮助你解决的