[求助]获取线两端点的问题

meflying

适用一些简单图元。。。不适用椭圆及复杂图元。。。 (defun c:test( / ent ents i item item2 key m)
(setq ent (nentsel))
(setq m (caddr ent))
(setq ents (entget (car ent)))
(setq i 0)
(repeat (length ents)
(setq item (nth i ents))
(setq key (car item))
(if (or (= key 10) (= key 11))
(progn
(setq item2 (chgcs (cdr item) m))
(setq ents (subst (cons key item2) item ents))
)
)
(setq i (1+ i))
)
(entmake ents)
)

cag

太感谢版主了，其他图元我自已试试，多谢!

meflying

这个程序只是拓宽一下你的思路，在极特殊的情况下会出错，如某一点转换后的坐标同下一点未转换的坐标相同，就会出错了。。。等等，一个完善的程序要考虑的问题是很多很多的，即使是一个简单的程序

cag

以前也发过一个类是的 http://bbs.mjtd.com/forum.php?mod=viewthread&tid=8073

LIULISHENG

学到了学到了