社区 › AutoLISP/Visual LISP 编程技术 › 求助 如何删除以pt1和pt2为端点的多段线

zyj0063 发表于 2012-11-4 21:42:40

求助 如何删除以pt1和pt2为端点的多段线

请教各位高人，如何编写lsp能实现删除已知pt1和pt2为端点的多段线。

poople 发表于 2012-11-5 07:04:57

(command "erase" (ssget (list"x" (cons 0 "LWPOLYLINE") (cons 10 pt1) (cons 10 pt2))))
--手机复制langjs的代码，稍稍改了一下，你看行不行

langjs 发表于 2012-11-4 22:53:45

本帖最后由 langjs 于 2012-11-4 22:54 编辑

(command "erase" (ssget (list (cons 0 "LWPOLYLINE") (cons 10 pt1) (cons 10 pt2)))"")

zyj0063 发表于 2012-11-5 05:46:17

谢谢楼上的高人!
但你的代码还没达到我的需求。我的pt1和pt2二点已经确定好了。不需要在列表中提取。
我的要求是不经过选择对象，直接删除以这二点为端点的多段线。
希望楼上的高人再帮我一下。
谢谢了！

poople 发表于 2012-11-5 07:07:22

(command "erase" (ssget"x"(list (cons 0 "LWPOLYLINE") (cons 10 pt1) (cons 10 pt2))))
刚才有问题

poople 发表于 2012-11-5 07:08:16

(command "erase" (ssget"x"(list (cons 0 "LWPOLYLINE") (cons 10 pt1) (cons 10 pt2))))
刚才有问题

zyj0063 发表于 2012-11-5 09:13:23

楼上的兄弟提供的代码太高了！
我略加修改(command "erase"(ssget"x"(list (cons 10 pt1) (cons 10 pt2)))"")
现在问题已经解决了。
再次感谢楼上二位高人及时的帮助！！

yoyoho 发表于 2012-11-6 06:19:20

指令: (SETQ PT1 (GETPOINT))
(-55997.5 -47721.1 0.0)
指令: (SETQ PT2 (GETPOINT))
(-16887.7 -47721.1 0.0)
指令: (command "erase"(ssget"x"(list (cons 10 pt1) (cons 10 pt2)))"")
nil
测试没能成功部什么缘故!

查看完整版本: 求助 如何删除以pt1和pt2为端点的多段线