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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [LISP函数]：如何lisp实现用过滤器选择起点横坐标相同的 ...
返回列表 发新帖
查看: 1181|回复: 11

[LISP函数]：如何lisp实现用过滤器选择起点横坐标相同的直线

[复制链接]
silen618
发表于 2005-6-28 18:28:43 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
如何用ssget过滤器选择起点横坐标相同的所有直线，或者选择所有直线长度等于定值的直线？
直线, 横坐标, 选择

相关帖子

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

使用道具 举报

xyp1964
发表于 2005-6-28 19:17:56 | 显示全部楼层
定长直线选择集：
  2. [FONT=courier new]
  3. (load "xyp_lib")
  4. ;|加载通用函数(可在签名栏直接下载)
  5. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
  6. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
  7. 1.在acad.lsp中增加(load"xyp_lib")
  8. 2.在每个程序内增加(load"xyp_lib")
  9. 3.在command下，输入(load"xyp_lib")
  10. 4.在菜单.mnl中增加(load"xyp_lib")
  11. 5.将xyp_lib.vlx文件直接拽到cad屏幕
  12. [COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;

  14. ;;;定长直线选择集
  15. (defun c:test ()
  16.   (CMDLA0)
  17.   (setq        no1 (UREAL 7 "" "\n定线长度" no1)
  18.         ss  (ssget '((0 . "LINE")))
  19.         i   -1
  20.         ss0 (ssadd)
  21.   )
  22.   (while (setq s1 (ssname ss (setq i (1+ i))))
  23.     (if        (= (curve-leng s1) no1)
  24.       (progn
  25.         (setq ss0 (ssadd s1 ss0))
  26.         (redraw s1 3)
  27.       )
  28.     )
  29.   )
  30.   (if ss0
  31.     (princ "\选择集 !ss0")
  32.   )
  33.   (CMDLA1)
  34. )
  35. [/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyp1964
发表于 2005-6-28 19:35:13 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
横坐标相同的线选择集：
  2. [FONT=courier new];;;横坐标相同的线选择集
  3. (defun c:test ()
  4.   (CMDLA0)
  5.   (setq        s0 (uentsel 0 '("LINE""POLARLINE""LWPOLARLINE""SPLINE")  "任选一条线")
  6.         px0 (car (vlax-curve-getstartPoint (car s0)))
  7.         ss  (ssget "X" '((0 . "*LINE")))
  8.         i   -1
  9.         ss0 (ssadd)
  10.   )
  11.   (while (setq s1 (ssname ss (setq i (1+ i))))
  12.     (if        (= (car (vlax-curve-getstartPoint s1)) px0)
  13.       (progn
  14.         (setq ss0 (ssadd s1 ss0))
  15.         (redraw s1 3)
  16.       )
  17.     )
  18.   )
  19.   (if ss0
  20.     (princ "\选择集 !ss0")
  21.   )
  22.   (CMDLA1)
  23. )[/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

wkai
发表于 2005-6-29 08:44:30 | 显示全部楼层
下面的代码选择到所有起点X坐标为-44333.4的直线。注意精度
[php]
(ssget "x" '((0 . "LINE") (-4 . "=,*")(10 -44333.4 0.0 0.0)))
[/php]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyp1964
发表于 2005-6-29 12:50:15 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
按wkai  的方法修改：
  2. [FONT=courier new]
  3. ;;;起点横坐标相同的线选择集
  4. (defun c:test ()
  5.   (CMDLA0)
  6.   (setq        s0  (uentsel 0 '("LINE" "POLARLINE" "LWPOLARLINE" "SPLINE" "ARC") "任选一条线")
  7.         px0 (car (vlax-curve-getstartPoint (car s0)))
  8.         ss  (ssget "X" (list '(0 . "*LINE") '(-4 . "=,*") (list 10 px0 0.0 0.0)))
  9.   )
  10.   (if ss (princ "\选择集 !SS"))
  11.   (CMDLA1)
  12. )
  13. [/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

silen618
 楼主| 发表于 2005-7-2 13:41:02 | 显示全部楼层
谢谢楼主！

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

使用道具 举报

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

使用道具 举报

YueFeng

已领礼包: 444个

财富等级: 日进斗金
发表于 2005-7-3 17:05:49 | 显示全部楼层
最初由 silen618 发布
[B]谢谢楼主！

可否用这种方法选择长度相同的直线？ [/B]

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

使用道具 举报

xunix
发表于 2005-7-5 10:32:09 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
在LISP里存在浮点运算的问题吗？在ARX里常遇到这样的问题，我都是在程序里判断一个误差范围。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

YueFeng

已领礼包: 444个

财富等级: 日进斗金
发表于 2005-7-5 17:24:37 | 显示全部楼层
最初由 xunix 发布
[B]在LISP里存在浮点运算的问题吗？在ARX里常遇到这样的问题，我都是在程序里判断一个误差范围。 [/B]

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

使用道具 举报

silen618
 楼主| 发表于 2005-7-11 14:14:23 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
8楼，可是列表显示与特性里边都有显示直线长度！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

YueFeng

已领礼包: 444个

财富等级: 日进斗金
发表于 2005-7-11 21:48:26 | 显示全部楼层
最初由 silen618 发布
[B]8楼，可是列表显示与特性里边都有显示直线长度！ [/B]

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-9-28 08:26 , Processed in 0.178111 second(s), 54 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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