交点快速标注

Nico

请教交点快速标注
指定第一点，
指定第二点，（与虚线相交对象的交点标注）
指定标注的位置
指定引线的位置点

请高手编个程序


结果如下图:

Linhay

张大锤 发表于 2018-6-1 16:33
我比较感兴趣 提问中提到的 交点 如何得到~ 俩个线相交 如何得到交点

inters     

taoyi0727

我也不怎么会这个也是我前天刚搞出来的，用会的函数硬怼出来的，凑合用吧！
坐标转换 trans 这个是试出来的 不知道怎么用
那位大大 能写几个简单的trans例子给我学习下

2. ;;;===选择集实体外矩形框(左下角点与右上角点)
   
3. ;;;示例 (GetssBox (ssget))
   
4. (defun GetssBox (ss / i L l1 l2 ll ur)
   
5.   (setq L (sslength ss))
   
6.   (repeat (setq i L)
   
7.     (vla-getBounDingBox (vlax-ename->vla-object (ssname ss (setq i (1- i)))) 'll 'ur)
   
8.     (setq l1 (cons (vlax-safearray->list ll) l1)
   
9.       l2 (cons (vlax-safearray->list ur) l2)
   
10.     )
    
11.   )
    
12.   (mapcar '(lambda (a b) (apply 'mapcar (cons a b))) '(min max) (list l1 l2))
    
13. )
    
14. 
    
15. ;;说明:四舍五入
    
16. ;;参数:n:要四舍五入的数
    
17. ;;参数:m:保留的小数位数
    
18. ;;返回:数值
    
19. (defun sswr (n m)   
    
20.   (read (rtos n 2 m))
    
21. )
    
22. 
    
23. (defun c:asdf ()
    
24.   (setq jl 100)
    
25.   (setq jl1 (+ jl 10000))
    
26.   (setq dxf210 (getvar 'VIEWDIR))
    
27.   (setq ss_q (ssget "x"));选择所有的图元
    
28.   (setq ss (ssget '((0 . "LINE"))))
    
29.   (setq pt (getpoint "\n请点取一个点"))
    
30.   (setq aa (list (trans (car (GetssBox ss)) dxf210 1) (trans (cadr (GetssBox ss)) dxf210 1)))
    
31.   (setq max_x (max (car (cadr aa)) (car (car aa))))
    
32.   (setq min_x (min (car (cadr aa)) (car (car aa))))
    
33.   (setq max_y (max (cadr (car aa)) (cadr (cadr aa))))
    
34.   (setq min_y (min (cadr (car aa)) (cadr (cadr aa))))
    
35.   (cond
    
36.     ((< (cadr pt) min_y);判断pt是否在下
    
37.       (setq ptt (list (car pt) (- min_y jl1)))
    
38.       (setq pd "下")
    
39.     )
    
40.     ((> (cadr pt) max_y);判断pt是否在上
    
41.       (setq ptt (list (car pt) (+ max_y jl1)))
    
42.       (setq pd "上")
    
43.     )
    
44.     ((< (car pt) min_x);判断pt是否在左
    
45.       (setq ptt (list (- min_x jl1) (cadr pt)))
    
46.       (setq pd "左")
    
47.     )
    
48.     ((> (car pt) max_x);判断pt是否在右
    
49.       (setq ptt (list (+ max_x jl1) (cadr pt)))
    
50.       (setq pd "右")
    
51.     )
    
52.   )
    
53.   (vl-cmdf "._QDIM" ss "" ptt)
    
54.   (setq ss_h (ssget "x"));选择所有的图元
    
55.   (setq xh 0)
    
56.   (repeat (sslength ss_q);最后一批新的标注
    
57.     (ssdel (ssname ss_q xh) ss_h)
    
58.     (setq xh (1+ xh))
    
59.   )
    
60.   (cond
    
61.     ((= pd "下")
    
62.       (vl-cmdf "._MOVE" ss_h "" '(0 0) '(0 10000))
    
63.       (setq xh 0)
    
64.       (repeat (sslength ss_h);最后一批新的标注
    
65.         (setq dxf (entget (ssname ss_h xh)))
    
66.         (if (= (sswr (cdr (assoc 42 dxf)) 0) 18)
    
67.           (entdel (ssname ss_h xh))
    
68.           (progn
    
69.             (setq dxf (entmod (subst (cons 13 (trans (list (car (trans (cdr (assoc 13 dxf)) dxf210 1)) min_y) 1 dxf210)) (assoc 13 dxf) dxf)))
    
70.             (entmod (subst (cons 14 (trans (list (car (trans (cdr (assoc 14 dxf)) dxf210 1)) min_y) 1 dxf210)) (assoc 14 dxf) dxf))
    
71.           )
    
72.         )
    
73.         (setq xh (1+ xh))
    
74.       )
    
75.     )
    
76.     ((= pd "上")
    
77.       (vl-cmdf "._MOVE" ss_h "" '(0 0) '(0 -10000))
    
78.       (setq xh 0)
    
79.       (repeat (sslength ss_h);最后一批新的标注
    
80.         (setq dxf (entget (ssname ss_h xh)))
    
81.         (if (= (sswr (cdr (assoc 42 dxf)) 0) 18)
    
82.           (entdel (ssname ss_h xh))
    
83.           (progn
    
84.             (setq dxf (entmod (subst (cons 13 (trans (list (car (trans (cdr (assoc 13 dxf)) dxf210 1)) max_y) 1 dxf210)) (assoc 13 dxf) dxf)))
    
85.             (entmod (subst (cons 14 (trans (list (car (trans (cdr (assoc 14 dxf)) dxf210 1)) max_y) 1 dxf210)) (assoc 14 dxf) dxf))
    
86.           )
    
87.         )
    
88.         (setq xh (1+ xh))
    
89.       )
    
90.     )
    
91.     ((= pd "左")
    
92.       (vl-cmdf "._MOVE" ss_h "" '(0 0) '(10000 0))
    
93.       (setq xh 0)
    
94.       (repeat (sslength ss_h);最后一批新的标注
    
95.         (setq dxf (entget (ssname ss_h xh)))
    
96.         (if (= (sswr (cdr (assoc 42 dxf)) 0) 18)
    
97.           (entdel (ssname ss_h xh))
    
98.           (progn
    
99.             (setq dxf (entmod (subst (cons 13 (trans (list min_x (cadr (trans (cdr (assoc 13 dxf)) dxf210 1))) 1 dxf210)) (assoc 13 dxf) dxf)))
    
100.             (entmod (subst (cons 14 (trans (list min_x (cadr (trans (cdr (assoc 14 dxf)) dxf210 1))) 1 dxf210)) (assoc 14 dxf) dxf))
     
101.           )
     
102.         )
     
103.         (setq xh (1+ xh))
     
104.       )
     
105.     )
     
106.     ((= pd "右")
     
107.       (vl-cmdf "._MOVE" ss_h "" '(0 0) '(-10000 0))
     
108.       (setq xh 0)
     
109.       (repeat (sslength ss_h);最后一批新的标注
     
110.         (setq dxf (entget (ssname ss_h xh)))
     
111.         (if (= (sswr (cdr (assoc 42 dxf)) 0) 18)
     
112.           (entdel (ssname ss_h xh))
     
113.           (progn
     
114.             (setq dxf (entmod (subst (cons 13 (trans (list max_x (cadr (trans (cdr (assoc 13 dxf)) dxf210 1))) 1 dxf210)) (assoc 13 dxf) dxf)))
     
115.             (entmod (subst (cons 14 (trans (list max_x (cadr (trans (cdr (assoc 14 dxf)) dxf210 1))) 1 dxf210)) (assoc 14 dxf) dxf))
     
116.           )
     
117.         )
     
118.         (setq xh (1+ xh))
     
119.       )
     
120.     )
     
121.   )
     
122. )

;;;===选择集实体外矩形框(左下角点与右上角点)<br /> ;;;示例 (GetssBox (ssget))<br /> (defun GetssBox (ss / i L l1 l2 ll ur)<br />   (setq L (sslength ss))<br />   (repeat (setq i L)<br />     (vla-getBounDingBox (vlax-ename->vla-object (ssname ss (setq i (1- i)))) 'll 'ur)<br />     (setq l1 (cons (vlax-safearray->list ll) l1)<br />       l2 (cons (vlax-safearray->list ur) l2)<br />     )<br />   )<br />   (mapcar '(lambda (a b) (apply 'mapcar (cons a b))) '(min max) (list l1 l2))<br /> )<br /> <br /> ;;说明:四舍五入<br /> ;;参数:n:要四舍五入的数<br /> ;;参数:m:保留的小数位数<br /> ;;返回:数值<br /> (defun sswr (n m)    <br />   (read (rtos n 2 m))<br /> )<br /> <br /> (defun c:asdf ()<br />   (setq jl 100)<br />   (setq jl1 (+ jl 10000))<br />   (setq dxf210 (getvar 'VIEWDIR))<br />   (setq ss_q (ssget "x"));选择所有的图元<br />   (setq ss (ssget '((0 . "LINE"))))<br />   (setq pt (getpoint "\n请点取一个点"))<br />   (setq aa (list (trans (car (GetssBox ss)) dxf210 1) (trans (cadr (GetssBox ss)) dxf210 1)))<br />   (setq max_x (max (car (cadr aa)) (car (car aa))))<br />   (setq min_x (min (car (cadr aa)) (car (car aa))))<br />   (setq max_y (max (cadr (car aa)) (cadr (cadr aa))))<br />   (setq min_y (min (cadr (car aa)) (cadr (cadr aa))))<br />   (cond <br />     ((< (cadr pt) min_y);判断pt是否在下<br />       (setq ptt (list (car pt) (- min_y jl1)))<br />       (setq pd "下")<br />     )<br />     ((> (cadr pt) max_y);判断pt是否在上<br />       (setq ptt (list (car pt) (+ max_y jl1)))<br />       (setq pd "上")<br />     )<br />     ((< (car pt) min_x);判断pt是否在左<br />       (setq ptt (list (- min_x jl1) (cadr pt)))<br />       (setq pd "左")<br />     )<br />     ((> (car pt) max_x);判断pt是否在右<br />       (setq ptt (list (+ max_x jl1) (cadr pt)))<br />       (setq pd "右")<br />     )<br />   )<br />   (vl-cmdf "._QDIM" ss "" ptt)<br />   (setq ss_h (ssget "x"));选择所有的图元<br />   (setq xh 0)<br />   (repeat (sslength ss_q);最后一批新的标注<br />     (ssdel (ssname ss_q xh) ss_h)<br />     (setq xh (1+ xh))<br />   )<br />   (cond<br />     ((= pd "下")<br />       (vl-cmdf "._MOVE" ss_h "" '(0 0) '(0 10000))<br />       (setq xh 0)<br />       (repeat (sslength ss_h);最后一批新的标注<br />         (setq dxf (entget (ssname ss_h xh)))<br />         (if (= (sswr (cdr (assoc 42 dxf)) 0) 18)<br />           (entdel (ssname ss_h xh))<br />           (progn<br />             (setq dxf (entmod (subst (cons 13 (trans (list (car (trans (cdr (assoc 13 dxf)) dxf210 1)) min_y) 1 dxf210)) (assoc 13 dxf) dxf)))<br />             (entmod (subst (cons 14 (trans (list (car (trans (cdr (assoc 14 dxf)) dxf210 1)) min_y) 1 dxf210)) (assoc 14 dxf) dxf))<br />           )<br />         )<br />         (setq xh (1+ xh))<br />       )<br />     )<br />     ((= pd "上")<br />       (vl-cmdf "._MOVE" ss_h "" '(0 0) '(0 -10000))<br />       (setq xh 0)<br />       (repeat (sslength ss_h);最后一批新的标注<br />         (setq dxf (entget (ssname ss_h xh)))<br />         (if (= (sswr (cdr (assoc 42 dxf)) 0) 18)<br />           (entdel (ssname ss_h xh))<br />           (progn<br />             (setq dxf (entmod (subst (cons 13 (trans (list (car (trans (cdr (assoc 13 dxf)) dxf210 1)) max_y) 1 dxf210)) (assoc 13 dxf) dxf)))<br />             (entmod (subst (cons 14 (trans (list (car (trans (cdr (assoc 14 dxf)) dxf210 1)) max_y) 1 dxf210)) (assoc 14 dxf) dxf))<br />           )<br />         )<br />         (setq xh (1+ xh))<br />       )<br />     )<br />     ((= pd "左")<br />       (vl-cmdf "._MOVE" ss_h "" '(0 0) '(10000 0))<br />       (setq xh 0)<br />       (repeat (sslength ss_h);最后一批新的标注<br />         (setq dxf (entget (ssname ss_h xh)))<br />         (if (= (sswr (cdr (assoc 42 dxf)) 0) 18)<br />           (entdel (ssname ss_h xh))<br />           (progn<br />             (setq dxf (entmod (subst (cons 13 (trans (list min_x (cadr (trans (cdr (assoc 13 dxf)) dxf210 1))) 1 dxf210)) (assoc 13 dxf) dxf)))<br />             (entmod (subst (cons 14 (trans (list min_x (cadr (trans (cdr (assoc 14 dxf)) dxf210 1))) 1 dxf210)) (assoc 14 dxf) dxf))<br />           )<br />         )<br />         (setq xh (1+ xh))<br />       )<br />     )<br />     ((= pd "右")<br />       (vl-cmdf "._MOVE" ss_h "" '(0 0) '(-10000 0))<br />       (setq xh 0)<br />       (repeat (sslength ss_h);最后一批新的标注<br />         (setq dxf (entget (ssname ss_h xh)))<br />         (if (= (sswr (cdr (assoc 42 dxf)) 0) 18)<br />           (entdel (ssname ss_h xh))<br />           (progn<br />             (setq dxf (entmod (subst (cons 13 (trans (list max_x (cadr (trans (cdr (assoc 13 dxf)) dxf210 1))) 1 dxf210)) (assoc 13 dxf) dxf)))<br />             (entmod (subst (cons 14 (trans (list max_x (cadr (trans (cdr (assoc 14 dxf)) dxf210 1))) 1 dxf210)) (assoc 14 dxf) dxf))<br />           )<br />         )<br />         (setq xh (1+ xh))<br />       )<br />     )<br />   )<br /> )

Andyhon

;;;QDIM v1.0    01.20.93
;;;by Raymond Bradley, CIS 71165,2764
;;;c/o Fitschen & Associates
;;;1855 Gateway Blvd., Ste 370
;;;Concord, CA  94520
;;;510 686 2400

taoyi0727

这个就是和QDIM差不多  端点标

张大锤

我比较感兴趣 提问中提到的 交点 如何得到~ 俩个线相交 如何得到交点

Nico

张大锤 发表于 2018-6-1 16:33
我比较感兴趣 提问中提到的 交点 如何得到~ 俩个线相交 如何得到交点

搜索一下有很多相交得交点的lisp

CAD小神

求大神出现~~~

young-yi

张大锤

Linhay 发表于 2018-6-1 16:40
inters

感谢感谢 每次到用的时候总是找不到