Question

CADlisp编程：如何用lisp处理一个dwg图形中的多个多线段？

CAD编程新手请教：
一个dwg图形中有多个多线段，每个多线段需要做同样的处理，先偏移再拉伸，如何利用lisp来依次处理，关键是如何依次读取多线段？？！！恳请高手附上代码

Answer 1

方案一：直接读取dwg格式文件有点难度，估计高手会做
方案二：若是文件有很多要做的话，可以用C#，C++，VB通过COM去开发，用COM方式依次打开dwg图档，然后遍历图元来进行你的要求来运算
方案三：若是文件有很多要做的话，也可以用慎余扰AutoLisp来做，自动打开你的文件列表，然后遍历图元来进行你的要求来运算
方案四：毁拍若是文件不是很多的话宽旦，也可以手动打开dwg文件，然后编写lisp函数遍历图元来进行你的要求来运算

Answer 2

使用while函数就可以
首先选择集(setq &kw (ssget));得到
进入循环，由于要编辑图形，所以不能够使用repeat函数，要使用while函数。
首先，得到函数的图元：
(setq &k1 (ssname &kw 0))
(while &k1;进入循环
(setq &kw (ssdel &k1 &kw));在选择集里面去掉这个图元，这样才不会出或轿现问题，使可以编辑图形
;;这个时候进入编辑图元&k1，直到编辑完成
(setq &k1 (ssname &kw 0));对下一雀凳个图元进行编辑
);循环结束
;以上是依次衫岁肆读取图元过程

追问

那怎么判断这个图元就是闭合多线段呢？我的dwg图里还有其他的图形，我只处理多线段图。
已解决！我通过这样(setq &kw (ssget "X" ' ((0."pline"))))将多线段选择起来，再用你的循环遍历处理，应该可以

谢谢你的解答!

追答

(setq #k1 (entget &k1));得到对象属性列表
(setq %k1 (cdr (assoc 70 #k1)));取得封闭判断数值，如果是1就是封闭，如果是0就不封闭