[求助]：xyp1964请帮忙

啵浪鼓 · 发表于 2005-4-29 23:11:18

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如图片所示，为4组多义线组合物体，程序如何将坐标点设置为左下点：
下面的程序只能列出10的组码，但是怎样对于各种各样的多义线组合如何让程序自动将坐标0点设置在左下角，坐标结束点设置在右上角？？？（程序的开头希望是ssget为选择项，因为有许多的线段需要进行一并处理分析）

(DEFUN C:TEST (/ EN ENLIST N PL SS ZB)
(PROMPT "\n选择要分析的多段线:")
(SETQ SS (SSGET '((0 . "LWPOLYLINE"))))
(SETQ N 0
PL '()
)
(REPEAT (SSLENGTH SS)
(SETQ EN (SSNAME SS N))
(SETQ ENLIST (ENTGET EN))
(FOREACH X ENLIST
(PROGN
(IF (EQUAL (CAR X) 10)
(SETQ PL (CONS (CDR X) PL))
)
)
)

(SETQ PL (REVERSE PL))
(PRINC PL)
(SETQ N (1+ N))
)
(PRINC)
)

狂刀 · 发表于 2005-4-30 08:42:46

如果都是矩形外框
方法１．用ｖｌａ－ｇｅｔｂｏｕｎｄｉｎｇｂｏｘ方法
方法２．你不是已经有ｄｘｆ１０点列表了么？　用ｖｌ－ｓｏｒｔ排序，提取最小ｘ，ｙ
ｕｃｓ设定原点可用ｖｌａ或命令方法

啵浪鼓 · 发表于 2005-4-30 19:31:45

狂刀兄，能否将排序这段程序写出来呢，谢谢~！
我想知道的是如我贴的图的左下图有里外2个聚合线，如何让程序做到当发现此2个聚合线处于同一图层时自动排除里面的聚合线，只认外面的聚合线

eachy · 发表于 2005-4-30 20:18:19

已经在编程申请论坛给你写过算法，用 getboundingbox 的方法有代码，lisp 方法在注释中也有说明。哎~~~~

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：xyp1964请帮忙

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子