[求助]哪位高手知道如何获取多义线的顶点列表？并转换成坐标，我想把某一物体复制到

userzhl · 发表于 2009-1-15 22:20:00

[求助]哪位高手知道如何获取多义线的顶点列表？并转换成坐标，我想把某一物体复制到多义线的各个顶点上[br][求助]哪位高手知道如何获取多义线的顶点列表？并转换成坐标，我想把某一物体复制到多义线的各个顶点上。

userzhl · 发表于 2009-1-15 22:41:00

(defun vertexs (ename / plist pp n)
(setq obj (vlax-ename->vla-object ename))
(setq plist (vlax-safearray->list
(vlax-variant-value
    (vla-get-coordinates obj))))
(setq n 0)
(repeat (/ (length plist) 2)
    (setq pp (append pp (list (list (nth n plist)(nth (1+ n) plist)))))
    (setq n (+ n 2))
)
pp
)
(setq ss (car (entsel "\n请选取要复制的物体：")))
(if ss
(setq SE (car (entsel "\n请选取多义线：")))
(command "copy" ss (vertexs SE))
;在这里怎么复制到各个顶点？

userzhl · 发表于 2009-1-15 23:04:00

本帖最后由作者于 2009-1-15 23:08:00 编辑

我要达到的结果是：

nonsmall · 发表于 2009-1-16 11:02:00

一句话取多线顶点:

(vl-remove-if 'not (mapcar '(lambda (x) (if (= (car x) 10) (cdr x))) (entget(car(entsel)))))

文字可以用textbox 或 getboundingbox 取其范围

多线的右上角可以根据四个坐标点判断最大值

计算下就可以了

luowy · 发表于 2009-1-16 11:02:00

思路简单，但过程会繁琐，pp是点集合，要从集合里面拿点出来就要循环控制，这是第一个问题，第二个问题就是移动实体了，多线段的顶点个数如果跟实体数量不一致，需要做一个判断，或者强制执行某代码

如果按提供的图，只移动文字，可以用vla－PUT-INSERTPOINT来操作

userzhl · 发表于 2009-1-16 13:25:00

谢谢大家的关注，问题已经解决。感谢肖楚

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

[求助]哪位高手知道如何获取多义线的顶点列表？并转换成坐标，我想把某一物体复制到

本帖子中包含更多资源