求教顶点问题.........

dwt2601 · 发表于 2005-7-11 18:24:00

求教顶点问题.........

我想问一下,,怎么样才能更新一条线段的某一个点的坐标(更新表可以吗?)

我用的方法是：得到一个线段的所有点，然后删除这条线，再重新画这条线，我觉得这种方法很麻烦，，（我听说可以用更新表的方法，哪位大哥给个例子。）

哪位朋友有什么好办法吗？？？谢谢了。。

我发了一个图,就是把图上多段线任意一个点移动到point点上就行了......

sandy2002 · 发表于 2005-7-11 20:24:00

关键是找到这个点，然后通过SUBST替换列表，再用ENTMOD更新对象数据即可

meflying · 发表于 2005-7-11 20:35:00

pt1----要被替换的点

pt2----新点

(setq ents (entget (car (entsel))))

(setq ents (subst (cons 10 pt2) (cons 10 pt1) ents))

(entmod ents)

dwt2601 · 发表于 2005-7-12 07:47:00

谢谢你，，，，，呵

dwt2601 · 发表于 2005-7-13 09:28:00

呵呵,,,,, 太谢谢你们了...............

我还想问一下,,,我要删除一个点,应该怎么做啊.......我用的还是重画的方法,,很笨吧. 更新表的方法很快,,

怎么样用表删除一个点呢?????

meflying · 发表于 2005-7-13 10:05:00

pt----要删除的点

(setq ents (entget (car (entsel))))
(setq ents1 (reverse (cdr (member (cons 10 pt) (reverse ents)))))
(setq ents1 (append ents1 (cdddr (member (cons 10 pt) ents))))
(entmod ents1)

xyp1964 · 发表于 2005-7-13 12:58:00

转贴：

dwt2601 · 发表于 2005-7-13 16:47:00

xie xie

dwt2601 · 发表于 2005-7-13 20:45:00

(vl-load-com)
(defun c:333()
(setq ent(car (entsel)))
(setq pt (vlax-curve-getstartpoint ent))
(setq ents (entget ent))
(setq ents1 (reverse (cdr (member (cons 10 pt) (reverse ents)))))
(setq ents1 (append ents1 (cdddr (member (cons 10 pt) ents))))
(entmod ents1)
)

这个程序对吗??? 哪个地方出错了.....................怎么不好用呢..................哪位大侠再指点一下.......

谢谢..........................

meflying · 发表于 2005-7-13 21:16:00

你的pt是三维的，而DXF组码中的点是二维的

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

求教顶点问题.........

本帖子中包含更多资源

本帖子中包含更多资源