找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1224|回复: 8

[原创]:封闭多段线顶点排序

[复制链接]

已领礼包: 111个

财富等级: 日进斗金

发表于 2005-11-14 23:40:22 | 显示全部楼层 |阅读模式

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

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

×
  1. ;;;测试程序
  2. ;;;将下载的文件“dbxddpx.fas”
  3. ;;;存到“L”盘中,如存入其它地方,
  4. ;;;请更改程序中第二行中的相应路径名。
  5. (defun c:cc()
  6.    (if (null dbxddpx)(load "L:dbxddpx.fas"));请注意文件“dbxddpx.fas”存盘路径名
  7.    (setq xtblm '("cmdecho" "osmode")
  8.          xtblz (mapcar 'getvar xtblm)
  9.    )
  10.    (mapcar 'setvar xtblm '(0 0))
  11.    (command "_undo" "be")
  12.    (while (setq en
  13.                 (entsel "\n请选择封闭多段线(LWPOLYLINE/POLYLINE)(按Esc键退出程序)"
  14.                      "LWPOLYLINE,POLYLINE"
  15.                 )
  16.           )
  17.       (initget 1 "1 2 3 4")
  18.       (setq pjd (getkword "\n西北角(1)/西南角(2)/东南角/(3)东北角(4):"))
  19.       (initget 1 "1 2")
  20.       (setq snj (getkword "\n顺时针(1)/逆时针(2):"))
  21.       ;返回按要求排好序的顶点列表,并赋值给fhb
  22.       (setq fhb (dbxddpx (car en) (read pjd) (read snj))
  23.             i 1
  24.       )
  25.       (foreach pt0 fhb
  26.         (command "_circle" pt0 1 "_chprop" (entlast) "" "c" 1 ""
  27.                "_text" (mapcar '+ pt0 '(0.7 0.7)) 2.5 0 (itoa i)
  28.                "_chprop" (entlast) "" "c" 3 ""
  29.         )
  30.         (setq i (1+ i))
  31.      )
  32.    )
  33.    (command "_undo" "e")
  34.    (mapcar 'setvar xtblm xtblz)(princ)               
  35. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
发表于 2005-11-15 14:24:05 | 显示全部楼层
应用在那些方面?也好收藏
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 111个

财富等级: 日进斗金

 楼主| 发表于 2005-11-15 14:33:30 | 显示全部楼层
地籍测量
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2006-8-12 07:27:32 | 显示全部楼层
yshf大师可以说一下"dbxddpx"这顺逆时针排序函数的原理吗?
烦请解答一下
谢谢~
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2006-8-12 08:10:53 | 显示全部楼层
1 first get all of vertex

2 then sort point by x or y to get point of corner

3 getpamramatpoint of corner point

4 get front and next point  to compare

5 then  getpointatparam +1 or -1
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 2个

财富等级: 恭喜发财

发表于 2006-8-13 22:36:23 | 显示全部楼层
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 3个

财富等级: 恭喜发财

发表于 2006-8-15 13:33:40 | 显示全部楼层
请问楼主判断多边形顶点西北角、西南角、东南角、东北角的数学原理是什么?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 3个

财富等级: 恭喜发财

发表于 2018-10-18 09:29:30 | 显示全部楼层
您好 请问这个程序怎么加载到cad中
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 244个

财富等级: 日进斗金

发表于 2021-8-25 16:13:39 | 显示全部楼层
dbxddpx   请问这个文件在哪里下载???
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-3-28 22:43 , Processed in 0.196173 second(s), 48 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表