找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 5270|回复: 23

[分享]:通用函数XYPLib.vlx

[复制链接]
发表于 2008-12-10 22:13:22 | 显示全部楼层 |阅读模式

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

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

×
通用函数XYPLib.vlx——V20081209
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
 楼主| 发表于 2008-12-10 22:14:08 | 显示全部楼层
xyp-Delete-Coordinates 删除LW线顶点 (xyp-Delete-Coordinates 实体名 顶点索引值表)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

使用道具 举报

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

使用道具 举报

 楼主| 发表于 2008-12-12 00:24:43 | 显示全部楼层
  1. [FONT=courier new];; 曲线长度XLS列表
  2. (defun c:test733 (/ ss ptn XlsD i s1)
  3.   (CMDLA0)
  4.   (setq        ss (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE")))
  5.         i  -1
  6.   )
  7.   (while (setq s1 (ssname ss (setq i (1+ i))))
  8.     (setq ptn (cons (list (1+ i) (xyp-get-CurveLength s1)) ptn))
  9.   )
  10.   (if ptn
  11.     (progn
  12.       (setq XlsD (xyp-vlxls-Vertexs2StrLst (reverse ptn))
  13.             XlsD (mapcar '(lambda (x) (list (itoa (atoi (car x))) (cadr x)))
  14.                          XlsD
  15.                  )
  16.             XlsD (cons '("序号" "线长") XlsD)
  17.       )
  18.       (xyp-vlxls-NewAddDate "A1" XlsD)
  19.     )
  20.   )
  21.   (CMDLA1)
  22. )[/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-12-12 00:25:18 | 显示全部楼层
  1. [FONT=courier new];; 多曲线生成mesh
  2. (defun c:test734 (/ ss i s1 ptn ptnlst)
  3.   (CMDLA0)
  4.   (setq        ss (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE")))
  5.         i  -1
  6.   )
  7.   (while (setq s1 (ssname ss (setq i (1+ i))))
  8.     (setq ptn         (xyp-get-CurveDivNumPtlst s1 50)
  9.           ptn         (cons (xyp-get-CurveENDPoint s1) ptn)
  10.           ptnlst (cons ptn ptnlst)
  11.     )
  12.   )
  13.   (if ptnlst
  14.     (xyp-3D-MeshWithPtns ptnlst)
  15.   )
  16.   (CMDLA1)
  17. )[/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-12-12 00:26:53 | 显示全部楼层
  1. [FONT=courier new];; 交点坐标标注
  2. (defun c:test737 ()
  3.   (CMDLA0)
  4.   (if (and (setq s1 (car (entsel "\n选择主线: ")))
  5.            (xyp-curve-check s1)
  6.       )
  7.     (progn (setq ptn (xyp-get-CurveIntersLeng s1 3)
  8.                  i   1
  9.            )
  10.            (xyp-mkLaCo "zbbz" 3)
  11.            (foreach pt ptn
  12.              (xyp-zb pt 1000 4 1 i)
  13.              (setq i (1+ i))
  14.            )
  15.     )
  16.   )
  17.   (CMDLA1)
  18. )[/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

使用道具 举报

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

使用道具 举报

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

使用道具 举报

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

使用道具 举报

已领礼包: 2个

财富等级: 恭喜发财

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

使用道具 举报

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

使用道具 举报

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

使用道具 举报

 楼主| 发表于 2009-2-24 23:34:41 | 显示全部楼层
通用函数XYPLib.vlx正式退休!

点评

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 20:46 , Processed in 0.432490 second(s), 61 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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