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

[求助]哪位高手知道如何获取多义线的顶点列表？并转换成坐标，我想把某一物体复制到多义线的各个顶点上
www.dimcax.com
[求助]哪位高手知道如何获取多义线的顶点列表？并转换成坐标，我想把某一物体复制到多义线的各个顶点上[求助]哪位高手知道如何获取多义线的顶点列表？并转换成坐标，我想把某一物体复制到多义线的各个顶点上。
d
(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))
;在这里怎么复制到各个顶点？
d
我要达到的结果是：


请使用winrar软件打开rar压缩文件。
d
一句话取多线顶点:
(vl-remove-if 'not (mapcar '(lambda (x) (if (= (car x) 10) (cdr x))) (entget(car(entsel)))))
文字可以用textbox 或 getboundingbox 取其范围
多线的右上角可以根据四个坐标点判断最大值
计算下就可以了
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
思路简单，但过程会繁琐，pp是点集合，要从集合里面拿点出来就要循环控制，这是第一个问题，第二个问题就是移动实体了，多线段的顶点个数如果跟实体数量不一致，需要做一个判断，或者强制执行某代码
如果按提供的图，只移动文字，可以用vla－put-insertpoint来操作
d
谢谢大家的关注，问题已经解决。感谢肖楚