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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [编程申请]：如何找出这样的一个选择集？ ...
返回列表 发新帖
查看: 706|回复: 6

[编程申请]：如何找出这样的一个选择集？

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

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

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

×
高手帮我做一个函数呀，要求所有线长少于一个实数N的选择集。
一个, 选择, 实数

相关帖子

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

使用道具 举报

zxq0220

已领礼包: 11304个

财富等级: 富甲天下
发表于 2004-12-22 15:19:44 | 显示全部楼层

  3. (DEFUN SLINE (LEN / SS SL I EN DS)
  4. (SETQ SS (SSGET "X" '((0 . "LINE"))))
  5. (SETQ SL (SSLENGTH SS) I 0 S1 (SSADD))
  6. (REPEAT SL
  7. (SETQ SN (SSNAME SS I) I (1+ I)
  8.            EN (ENTGET SN)
  9.            DS (DISTANCE (CDR (ASSOC 10 EN)) (CDR (ASSOC 11 EN))))
  10. (IF (< DS LEN) (SETQ S1 (SSADD SN)))
  11. )
  12. S1
  13. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyp1964
发表于 2004-12-22 23:34:34 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
什么线都能对付：
[php]
(DEFUN SLINE (LEN / SS SL I s1 EN DS)
  (setq SS (ssget "X" '((0 . "CIRCLE,ELLIPSE,*LINE,ARC"))))
  (SETQ        SL (SSLENGTH SS)
        I  -1
        S1 (SSADD)
  )
  (REPEAT SL
    (SETQ SN (SSNAME SS (setq I (1+ I)))
          EN (ENTGET SN)
          ds (vlax-curve-getDistAtParam sn (vlax-curve-getEndParam sn))
    )
    (IF        (< DS LEN)
      (SETQ S1 (SSADD SN s1))
    )
  )
  (princ s1)
  (princ "\n选择集 !s1")
  (princ)
)
[/php]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zxq0220

已领礼包: 11304个

财富等级: 富甲天下
发表于 2004-12-23 10:34:22 | 显示全部楼层
什么线都能对付，什么版本都能运行。
[php]
(DEFUN SLINE (LEN / SS SL I EN)
(SETQ SS (SSGET "X" '((0 . "ARC,CIRCLE,ELLIPSE,*LINE"))))
(SETQ SL (SSLENGTH SS) I 0 S1 (SSADD))
(REPEAT SL
(SETQ SN (SSNAME SS I) I (1+ I))
(COMMAND "LENGTHEN" SN "")
(IF (< (GETVAR "PERIMETER") LEN) (SETQ S1 (SSADD SN S1)))
)
S1
)
[/php]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

nore

已领礼包: 3123个

财富等级: 富可敌国
发表于 2004-12-23 11:47:52 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
如果对直线，快速选择就有此功能，如有曲线，只有通过编程了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyp1964
发表于 2004-12-23 12:28:15 | 显示全部楼层
最初由 zxq0220 发布
[B]什么线都能对付，什么版本都能运行。
[/B]

[php]
用是没问题，就是出现一堆无用的东东：
命令: (SLINE 2000)

当前长度: 1397.89038
当前长度: 1397.89038
当前长度: 1397.89038
当前长度: 1397.89038
当前长度: 1397.89038
当前长度: 1072.89573
当前长度: 1072.89573
当前长度: 1072.89573
当前长度: 1072.89573
当前长度: 1072.89573
当前长度: 1235.39306
当前长度: 1235.39306
当前长度: 1235.39306
当前长度: 1235.39306
当前长度: 1235.39306
当前长度: 11303.33934
当前长度: 11303.33934
当前长度: 11303.33934
当前长度: 2355.13431
当前长度: 2355.13431
当前长度: 2355.13431
当前长度: 2355.13431
当前长度: 2355.13431
当前长度: 1072.89573
当前长度: 1072.89573
当前长度: 1072.89573
当前长度: 1072.89573
当前长度: 1072.89573
当前长度: 11303.33934
当前长度: 11303.33934
当前长度: 1235.39306
当前长度: 1235.39306
当前长度: 1235.39306
当前长度: 1235.39306
当前长度: 1235.39306
当前长度: 11303.33934
当前长度: 416.79841
当前长度: 416.79841
当前长度: 416.79841
当前长度: 416.79841
当前长度: 416.79841
当前长度: 10306.42853
当前长度: 18015.48881
当前长度: 7873.10524
当前长度: 18896.32886
当前长度: 17313.97306
当前长度: 453.07385
当前长度: 1254.78574
当前长度: 1403.11048，包含角: 79.85603
当前长度: 507.73864
当前长度: 323.55660
当前长度: 275.38656
当前长度: 3237.19249，包含角: 223.52573
当前长度: 5201.84688，包含角: 296.05569
当前长度: 3402.11518，包含角: 234.91351
当前长度: 3646.42985，包含角: 207.53135
当前长度: 4360.65210，包含角: 301.09977
当前长度: 5213.66967
当前长度: 2322.91248，包含角: 132.20525
当前长度: 5213.66967
当前长度: 4950.30462，包含角: 281.73952
当前长度: 60.62636
当前长度: 165.77818
当前长度: 762.11699
当前长度: 1054.99769
当前长度: 1819.52212
当前长度: 654.91995
当前长度: 302.99573
当前长度: 320.74885
当前长度: 1687.66683<Selection set: a6c>
[/php]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xstlf
 楼主| 发表于 2004-12-28 10:43:14 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
呵呵，谢谢大家的帮助。我已经弄出来了，但大家的方法真的不错，比我简单多了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-9-27 19:24 , Processed in 0.175153 second(s), 42 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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