lisp程序图元选取问题

Question

截图中，绘制了三部分的线，想把这三部分的线赋到一个或者三个变量上去作镜像处理，该如何处理；

Answer 1

一般有两个方案
第一个方案：用AutoLisp方案，首先用 取得图块这个图元，然后用 entnext 逐一找到属性块来找到其中length的属性，然后将它的值给找出来，然后进行运算，注意 entnext 的运用。这个很简单，你自己应该写吧。
第二个方案：用VisualLisp方案，注意vla-getattributes，vlax-variant-value，vlax-safeArray->list这几个函数的运用，以下为 VisualLisp的例子
(Defun C:Test ()
(setq en0 (car (entsel)))
;;此处请选有属性定义的图块
(setq vn0 (vlax-ename->vla-object en0))
(setq lstVar (vla-getattributes vn0))
(setq lstAttrs (vlax-safeArray->list (vlax-variant-value lstVar)))
(setq TextString nil)
(foreach attr lstAttrs
(setq TagString (vla-get-TagString attr))
(if (equal TagString "length") ;此处为你想要的元素
(setq TextString (vla-get-TextString attr))
)
)
(if TextString
(princ (strcat "The content of length = " TextString))
(princ "没有找到length ")
)
(prin1)
)

追问

谢谢你提供的回答，我是刚入门的新手，不好意思有些看不懂，不过请问下我这样操作可以吗？