一个关于3d线的问题请大家解决

wb0815

谢谢大家

meflying

有几个问题：
1、是距离黄线，还是与黄线的交点，直线距离还是沿红色线的距离。
2、交点是否用红线与黄线相交来获得比较好？

meflying

(defun setcolor(sname color / sinf)
  (setq sinf (entget sname))
  (if (assoc 62 sinf)
    (setq sinf (subst (cons 62 color) (assoc 62 sinf) sinf))
    (setq sinf (append sinf (list (cons 62 color))))
  )
  (entmod sinf)
)

(defun c:Brk( / pt1 pt2 pt param1 param2 param ent entv ent2 ent2v)
  (setq pt1 (getpoint "\n选择交点一:"))
  (setq pt2 (getpoint "\n选择交点二:"))
  (prompt "\n选择红线...")
  (setq ent (car (entsel)))
  (setq entv (vlax-ename->vla-object ent))
  (setq param1 (vlax-curve-getParamAtPoint entv pt1))
  (setq param2 (vlax-curve-getParamAtPoint entv pt2))
  (if (< param2 param1)
    (progn
      (setq pt pt2
            pt2 pt1
            pt1 pt)
      (setq param param2
            param2 param1
            param1 param)
    )
  )
  (setq pt1 (vlax-curve-getPointAtDist entv (- (vlax-curve-getDistAtParam entv param1) 0.5)))
  (setq pt2 (vlax-curve-getPointAtDist entv (+ (vlax-curve-getDistAtParam entv param2) 0.5)))
  (setcolor ent 4)
  (command "_.break" (list ent pt1) "f" pt1 "@")
  (setcolor (entlast) 1)
  (setq ent2 (entlast))
  (setq ent2v (vlax-ename->vla-object ent2))
  (command "_.break" (list ent2 pt2) "f" pt2 "@")
  (setcolor (entlast) 4)
  (princ)
)

wb0815

1、是距离黄线，还是与黄线的交点，直线距离还是沿红色线的距离。
答是：黄线的交点是沿红色线的距离为0.5


2、交点是否用红线与黄线相交来获得比较好？
就是红线与黄线的交点

飞哥刚才我那您的程序试了一下有执行错的时候
黄线两边的线上点的距离都应该为0.5
也就是说不管这0.5中有多少个点方向如何只要是距我们选的交点都距离0.5就好了



这种情况用您的程序就不好是了

wb0815

飞哥和龙大侠都出手了
惊动的人不少呀
谢谢了

meflying

其实并不是出什么错了，就是捕捉交点的问题。由于离得太近，而捕捉功能又是打开的，所以就这样了。。。

2. 
   
3. (vl-load-com)
   
4. 
   
5. (defun err(msg)
   
6.   (princ msg)
   
7.   (setq *error* errtmp)
   
8.   (setvar "osmode" os)
   
9.   (princ)
   
10. )
    
11. 
    
12. 
    
13. (defun setcolor(sname color / sinf)
    
14.   (setq sinf (entget sname))
    
15.   (if (assoc 62 sinf)
    
16.     (setq sinf (subst (cons 62 color) (assoc 62 sinf) sinf))
    
17.     (setq sinf (append sinf (list (cons 62 color))))
    
18.   )
    
19.   (entmod sinf)
    
20. )
    
21. 
    
22. ;函数:GetInterPOint
    
23. ;功能:返回两个对象的所有交点
    
24. ;参数:        ent1、ent2        均为ename对象
    
25. 
    
26. (defun GetInterPoint (ent1 ent2 / ax_ent_1 ax_ent_2 intpoints points i)
    
27.   (setq ax_ent_1 (vlax-ename->vla-object ent1)
    
28.         ax_ent_2 (vlax-ename->vla-object ent2)
    
29.   )
    
30.   (setq intpoints (vla-intersectwith ax_ent_1 ax_ent_2 acextendnone))
    
31.   (setq intpoints (vlax-variant-value intpoints))
    
32.   (setq i 0)
    
33.   (if (> (vlax-safearray-get-u-bound intpoints 1) 0)
    
34.     (repeat (/ (+ 1
    
35.               (- (vlax-safearray-get-u-bound intpoints 1)
    
36.                  (vlax-safearray-get-l-bound intpoints 1)
    
37.               )
    
38.            )
    
39.            3
    
40.         )
    
41.       (setq points (append points (list (list
    
42.                       (vlax-safearray-get-element intpoints i)
    
43.                       (vlax-safearray-get-element intpoints (+ i 1))
    
44.                       (vlax-safearray-get-element intpoints (+ i 2))
    
45.                     )))
    
46.       )
    
47.       (setq i (+ 3 i))
    
48.     )
    
49.   )
    
50.   points
    
51. )
    
52. 
    
53. 
    
54. (defun c:Brk( / pt1 pt2 pt param1 param2 param ent entv ent2 ent2v)
    
55.   ;(setq pt1 (getpoint "\n选择交点一:"))
    
56.   ;(setq pt2 (getpoint "\n选择交点二:"))
    
57.   (setq errtmp *error*)
    
58.   (setq *error* err)
    
59.   (setq os (getvar "osmode"))
    
60.   (setvar "osmode" 0)
    
61.   (setvar "cmdecho" 0)
    
62.   (prompt "\n选择线...");这里就是选择两条线,怎么提示我也不清楚,你自己改吧.  
    
63.   (setq ss (ssget '((0 . "polyline"))))  
    
64.   (prompt "\n选择红线...")
    
65.   (setq ent (car (entsel)))
    
66.   (setq pt1 (car (getinterpoint (ssname ss 0) ent)))
    
67.   (setq pt2 (car (getinterpoint (ssname ss 1) ent)))
    
68.   (setq entv (vlax-ename->vla-object ent))
    
69.   (setq param1 (vlax-curve-getParamAtPoint entv pt1))
    
70.   (setq param2 (vlax-curve-getParamAtPoint entv pt2))
    
71.   (if (< param2 param1)
    
72.     (progn
    
73.       (setq pt pt2
    
74.             pt2 pt1
    
75.             pt1 pt)
    
76.       (setq param param2
    
77.             param2 param1
    
78.             param1 param)
    
79.     )
    
80.   )
    
81.   (setq pt1 (vlax-curve-getPointAtDist entv (- (vlax-curve-getDistAtParam entv param1) 0.5)))
    
82.   (setq pt2 (vlax-curve-getPointAtDist entv (+ (vlax-curve-getDistAtParam entv param2) 0.5)))
    
83.   (setcolor ent 4)
    
84.   (setvar "osmode" 0)
    
85.   (command "_.break" (list ent pt1) "f" pt1 "@")
    
86.   (setcolor (entlast) 1)
    
87.   (setq ent2 (entlast))
    
88.   (setq ent2v (vlax-ename->vla-object ent2))
    
89.   (command "_.break" (list ent2 pt2) "f" pt2 "@")
    
90.   (setcolor (entlast) 4)
    
91.   (setq *error* errtmp)
    
92.   (setvar "osmode" os)
    
93.   (princ)
    
94. )
    

<br /> (vl-load-com)<br /> <br /> (defun err(msg)<br />   (princ msg)<br />   (setq *error* errtmp)<br />   (setvar "osmode" os)<br />   (princ)<br /> )<br /> <br /> <br /> (defun setcolor(sname color / sinf)<br />   (setq sinf (entget sname))<br />   (if (assoc 62 sinf)<br />     (setq sinf (subst (cons 62 color) (assoc 62 sinf) sinf))<br />     (setq sinf (append sinf (list (cons 62 color))))<br />   )<br />   (entmod sinf)<br /> )<br /> <br /> ;函数:GetInterPOint<br /> ;功能:返回两个对象的所有交点<br /> ;参数:        ent1、ent2        均为ename对象<br /> <br /> (defun GetInterPoint (ent1 ent2 / ax_ent_1 ax_ent_2 intpoints points i)<br />   (setq ax_ent_1 (vlax-ename->vla-object ent1)<br />         ax_ent_2 (vlax-ename->vla-object ent2)<br />   )<br />   (setq intpoints (vla-intersectwith ax_ent_1 ax_ent_2 acextendnone))<br />   (setq intpoints (vlax-variant-value intpoints))<br />   (setq i 0)<br />   (if (> (vlax-safearray-get-u-bound intpoints 1) 0)<br />     (repeat (/ (+ 1<br />               (- (vlax-safearray-get-u-bound intpoints 1)<br />                  (vlax-safearray-get-l-bound intpoints 1)<br />               )<br />            )<br />            3<br />         )<br />       (setq points (append points (list (list<br />                       (vlax-safearray-get-element intpoints i)<br />                       (vlax-safearray-get-element intpoints (+ i 1))<br />                       (vlax-safearray-get-element intpoints (+ i 2))<br />                     )))<br />       )<br />       (setq i (+ 3 i))<br />     )<br />   )<br />   points<br /> )<br /> <br /> <br /> (defun c:Brk( / pt1 pt2 pt param1 param2 param ent entv ent2 ent2v)<br />   ;(setq pt1 (getpoint "\n选择交点一:"))<br />   ;(setq pt2 (getpoint "\n选择交点二:"))<br />   (setq errtmp *error*)<br />   (setq *error* err)<br />   (setq os (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (setvar "cmdecho" 0)<br />   (prompt "\n选择线...");这里就是选择两条线,怎么提示我也不清楚,你自己改吧.  <br />   (setq ss (ssget '((0 . "polyline"))))  <br />   (prompt "\n选择红线...")<br />   (setq ent (car (entsel)))<br />   (setq pt1 (car (getinterpoint (ssname ss 0) ent)))<br />   (setq pt2 (car (getinterpoint (ssname ss 1) ent)))<br />   (setq entv (vlax-ename->vla-object ent))<br />   (setq param1 (vlax-curve-getParamAtPoint entv pt1))<br />   (setq param2 (vlax-curve-getParamAtPoint entv pt2))<br />   (if (< param2 param1)<br />     (progn<br />       (setq pt pt2<br />             pt2 pt1<br />             pt1 pt)<br />       (setq param param2<br />             param2 param1<br />             param1 param) <br />     )<br />   )<br />   (setq pt1 (vlax-curve-getPointAtDist entv (- (vlax-curve-getDistAtParam entv param1) 0.5)))<br />   (setq pt2 (vlax-curve-getPointAtDist entv (+ (vlax-curve-getDistAtParam entv param2) 0.5)))<br />   (setcolor ent 4)<br />   (setvar "osmode" 0)<br />   (command "_.break" (list ent pt1) "f" pt1 "@")<br />   (setcolor (entlast) 1)<br />   (setq ent2 (entlast))<br />   (setq ent2v (vlax-ename->vla-object ent2))<br />   (command "_.break" (list ent2 pt2) "f" pt2 "@")<br />   (setcolor (entlast) 4)<br />   (setq *error* errtmp)<br />   (setvar "osmode" os)<br />   (princ)<br /> )<br />

wb0815

哦原来如此

麻烦您了
举出这么多的例子
太感谢了

wb0815

飞哥第3楼
的程序有一点bug有的时候运行返回nil

meflying

不可能，除非是出错了，而以前你覆盖了出错函数。。。。

为什么不用7楼的？就是3楼改进版，稍微完善些。唯一不同就是选择方交点的方法不同，你可以自己改过。
7楼的选择是先选两条线，然后选那条红线。注意，先的两条线选中后回车表示确认，而红线的选择就是单击

wb0815

嘿嘿
因为我喜欢3楼的那个很有特点
我们现在在试生产特别忙天天都不在自己的位子坐
您用这个dwg试一下我用了这个就不好使了