[求助]：同志们,这个选择怎么搞

aeo

有没有好方法通过点选一下就把框里的标注一起选上.
不要选到框外的.
讲讲方法.

XDSoft

可以啊，先得到曲线的轮廓（顶点组成，满足精度即可），然后用ssget 的W，如果相交也选，就用WP,CP

aeo

我只想选到这一行连续的,也许紧挨着又有一排
我要只用entsel在那红框那点
如果我已经得到了曲线的轮廓的话早就解决了,那得用ssget吧

就算有了曲线的轮廓,紧挨着的也会在里面,再去掉?

我的意思有无好方法

我只想entsel选黄的这一行连续的

XDSoft

最初由 aeo 发布
[B]我只想选到这一行连续的,也许紧挨着又有一排
我要只用entsel在那红框那点
如果我已经得到了曲线的轮廓的话早就解决了,那得用ssget吧

就算有了曲线的轮廓,紧挨着的也会在里面,再去掉?

我?.. [/B]

ENTSEL后，得到这个标标注的包围盒，然后判断和这个包围盒相交的尺寸，加入选择集，然后接着判断后面这个尺寸包围盒子....一次直到和包围盒相交没有尺寸为止。就得到了相连的一排标注了。

aeo

还是老办法,难道就没简便点的

XDSoft

最初由 aeo 发布
[B]还是老办法,难道就没简便点的 [/B]

电脑还是不如人脑：），眼睛看是最方便的。

绘制尺寸后，程序把他们做成组，就方便了。

梦断江南

可以 取得标注线上的两个特征点（其中一个是e10,另一个求出）。然后用循环
(ssget pt '((0 . "DIMENSION")))

xzg_hello

最初由 XDSoft 发布


电脑还是不如人脑：），眼睛看是最方便的。

绘制尺寸后，程序把他们做成组，就方便了。

呵呵，哪天电脑和人脑一样甚至更聪明，整天张着个大眼镜瞪你的眼睛，总是猜透你的心灵，哎哟，好可怕～～～～～～

aeo

1. 可以 取得标注线上的两个特征点（其中一个是e10,另一个求出）。然后用循环
   
2. (ssget pt '((0 . "DIMENSION")))

复制代码

是的,还要判断和选到的dim在不在一直线上.
我写好了,其实没几行.
大家不知会不会象我一样出现这种选择方式,要的话我贴.

梦断江南

贴出来吧，让大家看看你怎么解决的

aeo

我贴,如果有更好的,也给我用用,好吗

2. 
   
3. (defun dxf(no e)(cdr(assoc no e)))
   
4. ;;;;;;;;;;;;*********************************
   
5. ;选集到实体表
   
6. (defun sel2lst( sel / n l)                        
   
7.   (repeat (setq n (sslength sel))
   
8.     (setq n (1- n) l (cons (ssname sel n) l))))
   
9. ;;;;;;;;;;*********************************
   
10. ;点到直线的垂足和距离
    
11. (defun point-line(px py pz / ang p4 px py pz p5  dis)
    
12. (setq ang(angle py pz)
    
13.          ang(+ ang (/ pi 2) )
    
14.          p4(polar px ang 1) )
    
15. (setq p5(inters px p4 py pz nil)
    
16.           dis(distance px p5))
    
17. (list p5 dis)
    
18. )
    
19. ;;;;;;;;;****************************
    
20. ;dim的角度,长度,文字位置
    
21. (DEFUN REAL-DIM (E / ANG DIS E0 P1 P2 P3 P4 TEXTPOSITION)
    
22.   (SETQ E0 (ENTGET E))
    
23.   (IF (not(member(DXF 70 E0) '(33 161)) )
    
24.     (SETQ ANG (DXF 50 E0))
    
25.     (SETQ ANG (ANGLE (DXF 13 E0) (DXF 14 E0)))
    
26.   )
    
27.   (SETQ P1 (DXF 10 E0)
    
28.         P2 (POLAR P1 ANG 100)
    
29.   )
    
30.   (SETQ P3 (CAR (POINT-LINE (DXF 13 E0) P1 P2))
    
31.         P4 (CAR (POINT-LINE (DXF 14 E0) P1 P2))
    
32.   )
    
33.   (SETQ DIS (DISTANCE P3 P4))
    
34.   (SETQ TEXTPOSITION (DXF 11 E0))
    
35.   (LIST ANG DIS TEXTPOSITION)
    
36. )
    
37. ;;;;;;;****************************
    
38. ;下面就是要的东西,返回是选到的dim实体的表
    
39. (DEFUN GET-DIM (E0 / LI-E GET-DIM1)
    
40.   (SETQ LI-E (LIST E0))
    
41.   (DEFUN GET-DIM1 (E0 / ANG DIS E LI-SS LI-SS-DEL P1 P2 SS)
    
42.     (SETQ E (REAL-DIM E0))
    
43.     (SETQ ANG (CAR E)
    
44.           DIS (CADR E)
    
45.     )
    
46.     (SETQ P1 (DXF 10 (ENTGET E0))
    
47.           P2 (POLAR P1 (+ ANG PI) DIS)
    
48.     )
    
49.     (SETQ SS (SSGET "F" (LIST P1 P2) '((0 . "DIMENSION"))))
    
50.     (SETQ LI-SS (SEL2LST SS)
    
51.           LI-SS-DEL '()
    
52.     )
    
53.     (FOREACH X LI-SS
    
54.       (IF (AND
    
55.             (NOT (MEMBER X LI-E))
    
56.             (< (ABS (CADR (POINT-LINE (DXF 10 (ENTGET X)) P1 P2))) 1E-3)
    
57.           )
    
58.         (SETQ LI-E (CONS X LI-E)
    
59.               LI-SS-DEL (CONS X LI-SS-DEL)
    
60.         )
    
61.       )
    
62.     )
    
63.     (IF (> (LENGTH LI-SS-DEL) 0)
    
64.       (FOREACH X LI-SS-DEL
    
65.         (GET-DIM1 X)
    
66.       )
    
67.     )
    
68.     LI-E
    
69.   )
    
70.   (GET-DIM1 E0)
    
71. )
    

<br /> (defun dxf(no e)(cdr(assoc no e)))<br /> ;;;;;;;;;;;;*********************************<br /> ;选集到实体表<br /> (defun sel2lst( sel / n l)                        <br />   (repeat (setq n (sslength sel))<br />     (setq n (1- n) l (cons (ssname sel n) l)))) <br /> ;;;;;;;;;;*********************************<br /> ;点到直线的垂足和距离<br /> (defun point-line(px py pz / ang p4 px py pz p5  dis)<br /> (setq ang(angle py pz) <br />          ang(+ ang (/ pi 2) ) <br />          p4(polar px ang 1) )<br /> (setq p5(inters px p4 py pz nil) <br />           dis(distance px p5))<br /> (list p5 dis)<br /> )<br /> ;;;;;;;;;****************************<br /> ;dim的角度,长度,文字位置<br /> (DEFUN REAL-DIM (E / ANG DIS E0 P1 P2 P3 P4 TEXTPOSITION)<br />   (SETQ E0 (ENTGET E))<br />   (IF (not(member(DXF 70 E0) '(33 161)) )<br />     (SETQ ANG (DXF 50 E0))<br />     (SETQ ANG (ANGLE (DXF 13 E0) (DXF 14 E0)))<br />   )<br />   (SETQ P1 (DXF 10 E0)<br />         P2 (POLAR P1 ANG 100)<br />   )<br />   (SETQ P3 (CAR (POINT-LINE (DXF 13 E0) P1 P2))<br />         P4 (CAR (POINT-LINE (DXF 14 E0) P1 P2))<br />   )<br />   (SETQ DIS (DISTANCE P3 P4))<br />   (SETQ TEXTPOSITION (DXF 11 E0))<br />   (LIST ANG DIS TEXTPOSITION)<br /> )<br /> ;;;;;;;****************************<br /> ;下面就是要的东西,返回是选到的dim实体的表<br /> (DEFUN GET-DIM (E0 / LI-E GET-DIM1)<br />   (SETQ LI-E (LIST E0))<br />   (DEFUN GET-DIM1 (E0 / ANG DIS E LI-SS LI-SS-DEL P1 P2 SS)<br />     (SETQ E (REAL-DIM E0))<br />     (SETQ ANG (CAR E)<br />           DIS (CADR E)<br />     )<br />     (SETQ P1 (DXF 10 (ENTGET E0))<br />           P2 (POLAR P1 (+ ANG PI) DIS)<br />     )<br />     (SETQ SS (SSGET "F" (LIST P1 P2) '((0 . "DIMENSION"))))<br />     (SETQ LI-SS (SEL2LST SS)<br />           LI-SS-DEL '()<br />     )<br />     (FOREACH X LI-SS<br />       (IF (AND<br />             (NOT (MEMBER X LI-E))<br />             (< (ABS (CADR (POINT-LINE (DXF 10 (ENTGET X)) P1 P2))) 1E-3)<br />           )<br />         (SETQ LI-E (CONS X LI-E)<br />               LI-SS-DEL (CONS X LI-SS-DEL)<br />         )<br />       )<br />     )<br />     (IF (> (LENGTH LI-SS-DEL) 0)<br />       (FOREACH X LI-SS-DEL<br />         (GET-DIM1 X)<br />       )<br />     )<br />     LI-E<br />   )<br />   (GET-DIM1 E0)<br /> )<br />

example:(get-dim (car(entsel))) ,点到红框那里,返回黄色这行的dim的表(上面的第二贴图)

梦断江南

ssget 用 "f" 会选到其它相交的不在一条线上的dim实体，因作判断

aeo

(< (ABS (CADR (POINT-LINE (DXF 10 (ENTGET X)) P1 P2))) 1E-3)