设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [分享]：通用函数XYPLib.vlx
12下一页
返回列表 发新帖
查看: 6016|回复: 23

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

[复制链接]
xyp1964
发表于 2008-12-10 22:13:22 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
通用函数XYPLib.vlx——V20081209
函数, 通用, XYPLib

相关帖子

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

使用道具 举报

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

使用道具 举报

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

使用道具 举报

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

使用道具 举报

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

使用道具 举报

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

使用道具 举报

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

使用道具 举报

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

使用道具 举报

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

使用道具 举报

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

使用道具 举报

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

使用道具 举报

taner

已领礼包: 2个

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

使用道具 举报

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

使用道具 举报

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

使用道具 举报

xyp1964
 楼主| 发表于 2009-2-24 23:34:41 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
通用函数XYPLib.vlx正式退休！

点评

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

使用道具 举报

下一页 »
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-11-14 19:43 , Processed in 0.445966 second(s), 61 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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