【源码】【免币】快速选择与所选标注位置处在一条线上的所有标注

kele99kele

做法有点土，但是实测5000个标注的图面选择速度不超过0.5s，欢迎拍砖

2. ;|
   
3. 函数名称:        N::IsInExLine
   
4. 函数简介:        判断点是否在两点连线的延长线上
   
5. 调用格式:        (N::IsInExLine pt1[PointList] pt2[PointList] pt3[PointList])
   
6. 返回值:        T or Nil
   
7. 例： (N::IsInExLine '(0 0 0) '(1 2 0) '(3 5 0))判断点'(3 5 0)是否处于'(0 0 0) '(1 2 0)连线的延长线上
   
8. 函数来源: 原创
   
9. 函数作者:        九群
   
10. 适用版本:        不限
    
11. 最后更新时间:        2015.9.15|;
    
12. (defun N::IsOnExLine (p1 p2 px)
    
13.         (< (abs (- (abs (- (distance px p1) (distance px p2))) (distance p1 p2))) 0.001)
    
14. )
    
15. ;|
    
16. 函数名称:        N::IsOnLine
    
17. 函数简介:        判断点是否在两点连线上
    
18. 调用格式:        (N::IsOnLine pt1&#91;PointList&#93; pt2&#91;PointList&#93; pt3&#91;PointList&#93;)
    
19. 返回值:        T or Nil
    
20. 例： (N::IsOnLine '(0 0 0) '(1 2 0) '(3 5 0))判断点'(3 5 0)是否处于'(0 0 0) '(1 2 0)连线上
    
21. 函数来源: 原创
    
22. 函数作者:        九群
    
23. 适用版本:        不限
    
24. 最后更新时间:        2015.9.15|;
    
25. (defun N::IsOnLine (p1 p2 px)
    
26.         (< (abs (- (+ (distance p1 px) (distance p2 px)) (distance p1 p2))) 0.001)
    
27. )
    
28. 
    
29. ;|
    
30. 函数名称:        N::IsInLine
    
31. 函数简介:        判断点是否在两点连线上或连线的延长线上
    
32. 调用格式:        (N::IsInLine pt1&#91;PointList&#93; pt2&#91;PointList&#93; pt3&#91;PointList&#93;)
    
33. 返回值:        T or Nil
    
34. 例： (N::IsInLine '(0 0 0) '(1 2 0) '(3 5 0))判断点'(3 5 0)是否处于'(0 0 0) '(1 2 0)连线上或连线的延长线上
    
35. 函数来源: 原创
    
36. 函数作者:        九群
    
37. 适用版本:        不限
    
38. 最后更新时间:        2015.9.15|;
    
39. (defun N::IsInLine (p1 p2 px)
    
40.         (or
    
41.                 (N::IsOnLine p1 p2 px)
    
42.                 (N::IsOnExLine p1 p2 px)
    
43.         )
    
44. )
    
45. 
    
46. ;|
    
47. 函数名称:        N::GetDimInLine
    
48. 函数简介:        选择标注位置相同的标注（批量选择一排标注）
    
49. 调用格式:        (N::GetDimInLine N_DimEntName&#91;EntName&#93;)
    
50. 返回值:        与所给标注名称处于同一线上的所有标注的选择集
    
51. 例： (N::GetDimInLine (car (entsel))选择一处标注，返回与该标注处于同一线上的所有标注的选择集
    
52. 函数来源: 原创
    
53. 函数作者:        九群
    
54. 适用版本:        不限
    
55. 最后更新时间:        2015.9.15|;
    
56. (defun N::GetDimInLine (N_DimEntName / N_AllDim N_DimEntName N_DimStart N_DimStartPoint N_DimDistance N_DimEnd N_DimPick N_DimPickStart N_DimPickStartpoint N_DimPickDistance N_DimPickEnd N_DimMatch)
    
57.         (setq
    
58.                 N_AllDim (ssget "x" '((0 . "DIMENSION")));选择全图dim尺寸对象
    
59.                 N_DimMatch (ssget "x" '((0 . "DIMENSION")));选择全图dim尺寸对象
    
60.                 N_DimStart (cdr (assoc 10 (entget N_DimEntName)));取得dim尺寸的起点
    
61.                 N_DimStartPoint (cdr (assoc 14 (entget N_DimEntName)));取得dim尺寸脚的起点
    
62.                 N_DimDistance (cdr (assoc 42 (entget N_DimEntName)));取得dim尺寸的测量长度
    
63.                 N_DimEnd (polar N_DimStart (+ (* 0.5 pi) (angle N_DimStart N_DimStartPoint)) N_DimDistance);取得dim尺寸的终点
    
64.         )
    
65.         ;(command "color" 1 "line" N_DimStart N_DimEnd "")
    
66.         (repeat (setq i (sslength N_AllDim))
    
67.                 (setq
    
68.                         N_DimPick (ssname N_AllDim (1- i))
    
69.                         N_DimPickStart (cdr (assoc 10 (entget (ssname N_AllDim (1- i)))))
    
70.                         N_DimPickStartpoint (cdr (assoc 14 (entget (ssname N_AllDim (1- i)))))
    
71.                         N_DimPickDistance (cdr (assoc 42 (entget (ssname N_AllDim (1- i)))))
    
72.                         N_DimPickEnd (polar N_DimPickStart (+ (* 0.5 pi) (angle N_DimPickStart N_DimPickStartPoint)) N_DimPickDistance)
    
73.                 )
    
74.                 ;(command "color" 2 "line" N_DimPickStart N_DimPickEnd "")
    
75.                 (if (null (and
    
76.                                                                 (N::IsInLine N_DimStart N_DimEnd N_DimPickStart)
    
77.                                                                 (N::IsInLine N_DimStart N_DimEnd N_DimPickEnd)
    
78.                                                         ))
    
79.                         (progn
    
80.                                 (ssdel (ssname N_AllDim (1- i)) N_DimMatch)
    
81.                                 (setq i (1- i))
    
82.                         )
    
83.                         (setq i (1- i))                       
    
84.                 )
    
85.         )
    
86.         N_DimMatch
    
87. )

;|<br /> 函数名称:        N::IsInExLine<br /> 函数简介:        判断点是否在两点连线的延长线上<br /> 调用格式:        (N::IsInExLine pt1&#91;PointList&#93; pt2&#91;PointList&#93; pt3&#91;PointList&#93;)<br /> 返回值:        T or Nil<br /> 例： (N::IsInExLine '(0 0 0) '(1 2 0) '(3 5 0))判断点'(3 5 0)是否处于'(0 0 0) '(1 2 0)连线的延长线上<br /> 函数来源: 原创<br /> 函数作者:        九群<br /> 适用版本:        不限 <br /> 最后更新时间:        2015.9.15|;<br /> (defun N::IsOnExLine (p1 p2 px)<br />         (< (abs (- (abs (- (distance px p1) (distance px p2))) (distance p1 p2))) 0.001)<br /> )<br /> ;|<br /> 函数名称:        N::IsOnLine<br /> 函数简介:        判断点是否在两点连线上<br /> 调用格式:        (N::IsOnLine pt1&#91;PointList&#93; pt2&#91;PointList&#93; pt3&#91;PointList&#93;)<br /> 返回值:        T or Nil<br /> 例： (N::IsOnLine '(0 0 0) '(1 2 0) '(3 5 0))判断点'(3 5 0)是否处于'(0 0 0) '(1 2 0)连线上<br /> 函数来源: 原创<br /> 函数作者:        九群<br /> 适用版本:        不限 <br /> 最后更新时间:        2015.9.15|;<br /> (defun N::IsOnLine (p1 p2 px)<br />         (< (abs (- (+ (distance p1 px) (distance p2 px)) (distance p1 p2))) 0.001)<br /> )<br /> <br /> ;|<br /> 函数名称:        N::IsInLine<br /> 函数简介:        判断点是否在两点连线上或连线的延长线上<br /> 调用格式:        (N::IsInLine pt1&#91;PointList&#93; pt2&#91;PointList&#93; pt3&#91;PointList&#93;)<br /> 返回值:        T or Nil<br /> 例： (N::IsInLine '(0 0 0) '(1 2 0) '(3 5 0))判断点'(3 5 0)是否处于'(0 0 0) '(1 2 0)连线上或连线的延长线上<br /> 函数来源: 原创<br /> 函数作者:        九群<br /> 适用版本:        不限 <br /> 最后更新时间:        2015.9.15|;<br /> (defun N::IsInLine (p1 p2 px)<br />         (or<br />                 (N::IsOnLine p1 p2 px)<br />                 (N::IsOnExLine p1 p2 px)<br />         )<br /> )<br /> <br /> ;|<br /> 函数名称:        N::GetDimInLine<br /> 函数简介:        选择标注位置相同的标注（批量选择一排标注）<br /> 调用格式:        (N::GetDimInLine N_DimEntName&#91;EntName&#93;)<br /> 返回值:        与所给标注名称处于同一线上的所有标注的选择集<br /> 例： (N::GetDimInLine (car (entsel))选择一处标注，返回与该标注处于同一线上的所有标注的选择集<br /> 函数来源: 原创<br /> 函数作者:        九群<br /> 适用版本:        不限 <br /> 最后更新时间:        2015.9.15|;<br /> (defun N::GetDimInLine (N_DimEntName / N_AllDim N_DimEntName N_DimStart N_DimStartPoint N_DimDistance N_DimEnd N_DimPick N_DimPickStart N_DimPickStartpoint N_DimPickDistance N_DimPickEnd N_DimMatch)<br />         (setq<br />                 N_AllDim (ssget "x" '((0 . "DIMENSION")));选择全图dim尺寸对象<br />                 N_DimMatch (ssget "x" '((0 . "DIMENSION")));选择全图dim尺寸对象<br />                 N_DimStart (cdr (assoc 10 (entget N_DimEntName)));取得dim尺寸的起点<br />                 N_DimStartPoint (cdr (assoc 14 (entget N_DimEntName)));取得dim尺寸脚的起点<br />                 N_DimDistance (cdr (assoc 42 (entget N_DimEntName)));取得dim尺寸的测量长度<br />                 N_DimEnd (polar N_DimStart (+ (* 0.5 pi) (angle N_DimStart N_DimStartPoint)) N_DimDistance);取得dim尺寸的终点<br />         )<br />         ;(command "color" 1 "line" N_DimStart N_DimEnd "")<br />         (repeat (setq i (sslength N_AllDim))<br />                 (setq<br />                         N_DimPick (ssname N_AllDim (1- i))<br />                         N_DimPickStart (cdr (assoc 10 (entget (ssname N_AllDim (1- i)))))<br />                         N_DimPickStartpoint (cdr (assoc 14 (entget (ssname N_AllDim (1- i)))))<br />                         N_DimPickDistance (cdr (assoc 42 (entget (ssname N_AllDim (1- i)))))<br />                         N_DimPickEnd (polar N_DimPickStart (+ (* 0.5 pi) (angle N_DimPickStart N_DimPickStartPoint)) N_DimPickDistance)<br />                 )<br />                 ;(command "color" 2 "line" N_DimPickStart N_DimPickEnd "")<br />                 (if (null (and<br />                                                                 (N::IsInLine N_DimStart N_DimEnd N_DimPickStart)<br />                                                                 (N::IsInLine N_DimStart N_DimEnd N_DimPickEnd)<br />                                                         ))<br />                         (progn<br />                                 (ssdel (ssname N_AllDim (1- i)) N_DimMatch)<br />                                 (setq i (1- i))<br />                         )<br />                         (setq i (1- i))                        <br />                 )<br />         )<br />         N_DimMatch<br /> )

kele99kele

llsheng_73  (defun N::IsInLine(p1 p2 px)(equal(car(trans(mapcar'- px p1)2(mapcar'- p2 p1)))0 1e-8));;px是否在p1 p2所在直线上  发表于 昨天 23:42

感谢指点，思路明白了，trans命令有点绕不明白，例子太少所以不是很懂，llsheng_73有空的时候
能不能不帮忙翻译下？trans后面跟着的这3个参数是什么作用
纯粹自学lisp，没人带，本人也不是计算机专业，纯靠泡论坛翻资料汲取知识，望理解

没明白的地方一共两处（见笑了）
1：（trans xx 2 xxx）应该怎么解读呢
2：(mapcar'- px p1)、(mapcar'- p2 p1)这两个坐标xyz相减的意义是什么
不好意思，基础有点差，费心了

在群里问了，解答说是取向量进行比较。这个有点不理解，能不能直接将px的坐标转到p1p2为x轴
的坐标系下对比px坐标与p1,p2坐标的x值是否相等呢？

dongya1235

大神这个一直没有更新么？感觉这个也是比较实用的功能

xj6019

好东西  顶起来，简直太香了

xj6019

期待主人抽空更新一下吧，拜谢了

xj6019

使用中发现会误伤呀，比如只想处理几个相邻的尺寸，但是代码会处理所有在一条直线上的标注对象，知道是那个“X”决定的，没法，哪位大神可以优化一下，优化成只选择相邻的，不相邻的对象不选择呀，这样很容易错误的选择处理了远处虽然在一条直线上，但是并不想处理的标注

TGSJ

期待主人抽空更新一下吧，拜谢了

dasha321

块更新，快更新，谢谢