强力系列之三：增强型绘制圆柱断面线

luoguoqianga

特别注意：本程序绿色非源码，下载需花1个明经币，看清楚才下载。

LLL2011

又收币，贪财的家伙！！！

yjr111

这个应该不难哦，看看谁来模仿你了

sen.sam

我来贴一个源码，支持圆弧，样条，不过不支持多段线，截断的形状跟选线的顺序有关，算是一个bug吧，因为现在工作没用到这种东西，也没去修改了，有心人可以完善一下

2. (defun dra_line  (p1 p2 / pp)
   
3.   (setq pp (mapcar '* (mapcar '+ p1 p2) '(0.5 0.5 0.5)))
   
4.   (entmake (list '(0 . "LWPOLYLINE")
   
5.      '(100 . "AcDbEntity")
   
6.      '(100 . "AcDbPolyline")
   
7.      '(90 . 4)
   
8.      (cons 10 p1)
   
9.      '(42 . 0.414214)
   
10.      (cons 10 pp)
    
11.      '(42 . -0.414214)
    
12.      (cons 10 p2)
    
13.      '(42 . -0.414214)
    
14.      (cons 10 pp)
    
15.      '(42 . -1.75126)
    
16.      )
    
17.   )
    
18. )
    
19. ;;支持所有曲线
    
20. (defun c:yzjd ()
    
21.   (vl-load-com)
    
22.   (setq  enp1 (entsel)
    
23.   en1  (car enp1)
    
24.   p1   (cadr enp1)
    
25.   )
    
26.   (setq  enp2 (entsel)
    
27.   en2  (car enp2)
    
28.   p2   (cadr enp2)
    
29.   )
    
30.   (setq  p1 (vlax-curve-getClosestPointTo en1 p1 t)
    
31.   p2 (vlax-curve-getClosestPointTo en2 p2 t)
    
32.   )
    
33.   (setq  p3 (vlax-curve-getClosestPointTo en2 p1 t)
    
34.   p4 (vlax-curve-getClosestPointTo en1 p2 t)
    
35.   )
    
36.   (dra_line p1 p3)
    
37.   (setq l1 (entlast))
    
38.   (dra_line p2 p4)
    
39.   (setq l2 (entlast))
    
40.   (setq en1_pa1 (vlax-curve-getParamAtPoint en1 p1))
    
41.   (setq en1_pa2 (vlax-curve-getParamAtPoint en1 p4))
    
42.   (setq
    
43.     trimp1 (vlax-curve-getPointAtParam en1 (/ (+ en1_pa1 en1_pa2) 2))
    
44.   )
    
45.   (setq en2_pa1 (vlax-curve-getParamAtPoint en2 p2))
    
46.   (setq en2_pa2 (vlax-curve-getParamAtPoint en2 p3))
    
47.   (setq
    
48.     trimp2 (vlax-curve-getPointAtParam en2 (/ (+ en2_pa1 en2_pa2) 2))
    
49.   )
    
50.   (command "trim"
    
51.      l1
    
52.      l2
    
53.      ""
    
54.      (list en1 trimp1)
    
55.      (list en2 trimp2)
    
56.      ""
    
57.   )
    
58.   (princ)
    
59. )
    
60. 
    
61. 
    
62. (defun c:X1 ( / @lay en1 en1_pa1 en1_pa2 en2 en2_pa1 en2_pa2 l1 l2 olderr p1 p2 p3 p4 trimp1 trimp2)
    
63. (vl-load-com)
    
64. (setvar "osmode" 641)
    
65. (command "_.undo" "be")
    
66. (setq p1 (getpoint "\n指定第一条线上的点:")
    
67. en1 (ssname (ssget p1) 0))
    
68. (setq p2 (getpoint "\n指定第二条线上的点:")
    
69. en2 (ssname (ssget p2) 0))
    
70. (setq p1 (vlax-curve-getClosestPointTo en1 p1 t)
    
71. p2 (vlax-curve-getClosestPointTo en2 p2 t)
    
72. )
    
73. (setq p3 (vlax-curve-getClosestPointTo en2 p1 t)
    
74. p4 (vlax-curve-getClosestPointTo en1 p2 t)
    
75. )
    
76. (dra_line p1 p3)
    
77. (setq l1 (entlast))
    
78. (if (or (equal p1 p3 0.001)(equal p2 p3 0.001))
    
79. (princ "\n绘制单一管道剖断线。")
    
80. (progn
    
81. (dra_line p2 p4)
    
82. (setq l2 (entlast))
    
83. )
    
84. )
    
85. (if (and l1 l2)
    
86. (progn
    
87. (setq en1_pa1 (vlax-curve-getParamAtPoint en1 p1)
    
88. en1_pa2 (vlax-curve-getParamAtPoint en1 p4))
    
89. (setq
    
90. trimp1 (vlax-curve-getPointAtParam en1 (/ (+ en1_pa1 en1_pa2) 2))
    
91. )
    
92. (setq en2_pa1 (vlax-curve-getParamAtPoint en2 p2)
    
93. en2_pa2 (vlax-curve-getParamAtPoint en2 p3))
    
94. (setq
    
95. trimp2 (vlax-curve-getPointAtParam en2 (/ (+ en2_pa1 en2_pa2) 2))
    
96. )
    
97. (command "trim" l1 l2 "" (list en1 trimp1) (list en2 trimp2) "")))
    
98. (command "undo" "e")
    
99. (princ)
    
100. )
     
101. 
     
102. 
     

(defun dra_line  (p1 p2 / pp)<br />   (setq pp (mapcar '* (mapcar '+ p1 p2) '(0.5 0.5 0.5)))<br />   (entmake (list '(0 . "LWPOLYLINE")<br />      '(100 . "AcDbEntity")<br />      '(100 . "AcDbPolyline")<br />      '(90 . 4)<br />      (cons 10 p1)<br />      '(42 . 0.414214)<br />      (cons 10 pp)<br />      '(42 . -0.414214)<br />      (cons 10 p2)<br />      '(42 . -0.414214)<br />      (cons 10 pp)<br />      '(42 . -1.75126)<br />      )<br />   )<br /> )<br /> ;;支持所有曲线<br /> (defun c:yzjd ()<br />   (vl-load-com)<br />   (setq  enp1 (entsel)<br />   en1  (car enp1)<br />   p1   (cadr enp1)<br />   )<br />   (setq  enp2 (entsel)<br />   en2  (car enp2)<br />   p2   (cadr enp2)<br />   )<br />   (setq  p1 (vlax-curve-getClosestPointTo en1 p1 t)<br />   p2 (vlax-curve-getClosestPointTo en2 p2 t)<br />   )<br />   (setq  p3 (vlax-curve-getClosestPointTo en2 p1 t)<br />   p4 (vlax-curve-getClosestPointTo en1 p2 t)<br />   )<br />   (dra_line p1 p3)<br />   (setq l1 (entlast))<br />   (dra_line p2 p4)<br />   (setq l2 (entlast))<br />   (setq en1_pa1 (vlax-curve-getParamAtPoint en1 p1))<br />   (setq en1_pa2 (vlax-curve-getParamAtPoint en1 p4))<br />   (setq<br />     trimp1 (vlax-curve-getPointAtParam en1 (/ (+ en1_pa1 en1_pa2) 2))<br />   )<br />   (setq en2_pa1 (vlax-curve-getParamAtPoint en2 p2))<br />   (setq en2_pa2 (vlax-curve-getParamAtPoint en2 p3))<br />   (setq<br />     trimp2 (vlax-curve-getPointAtParam en2 (/ (+ en2_pa1 en2_pa2) 2))<br />   )<br />   (command "trim"<br />      l1<br />      l2<br />      ""<br />      (list en1 trimp1)<br />      (list en2 trimp2)<br />      ""<br />   )<br />   (princ)<br /> )<br /> <br /> <br /> (defun c:X1 ( / @lay en1 en1_pa1 en1_pa2 en2 en2_pa1 en2_pa2 l1 l2 olderr p1 p2 p3 p4 trimp1 trimp2)<br /> (vl-load-com)<br /> (setvar "osmode" 641)<br /> (command "_.undo" "be") <br /> (setq p1 (getpoint "\n指定第一条线上的点:")<br /> en1 (ssname (ssget p1) 0))<br /> (setq p2 (getpoint "\n指定第二条线上的点:")<br /> en2 (ssname (ssget p2) 0))<br /> (setq p1 (vlax-curve-getClosestPointTo en1 p1 t)<br /> p2 (vlax-curve-getClosestPointTo en2 p2 t)<br /> )<br /> (setq p3 (vlax-curve-getClosestPointTo en2 p1 t)<br /> p4 (vlax-curve-getClosestPointTo en1 p2 t)<br /> )<br /> (dra_line p1 p3)<br /> (setq l1 (entlast))<br /> (if (or (equal p1 p3 0.001)(equal p2 p3 0.001)) <br /> (princ "\n绘制单一管道剖断线。")<br /> (progn <br /> (dra_line p2 p4)<br /> (setq l2 (entlast))<br /> )<br /> ) <br /> (if (and l1 l2)<br /> (progn<br /> (setq en1_pa1 (vlax-curve-getParamAtPoint en1 p1)<br /> en1_pa2 (vlax-curve-getParamAtPoint en1 p4))<br /> (setq<br /> trimp1 (vlax-curve-getPointAtParam en1 (/ (+ en1_pa1 en1_pa2) 2))<br /> )<br /> (setq en2_pa1 (vlax-curve-getParamAtPoint en2 p2)<br /> en2_pa2 (vlax-curve-getParamAtPoint en2 p3))<br /> (setq<br /> trimp2 (vlax-curve-getPointAtParam en2 (/ (+ en2_pa1 en2_pa2) 2))<br /> ) <br /> (command "trim" l1 l2 "" (list en1 trimp1) (list en2 trimp2) "")))<br /> (command "undo" "e") <br /> (princ) <br /> ) <br /> <br /> <br />

kwok

支持2楼的......

357785513

sen.sam真强悍.服了

669423907

luoguoqianga，楼主你好，我一直在用你的程序，但每次点出来的断截面的距离都不一样，不知楼主是否方便改善一下呢，把两截面的距离设定为圆柱直径的  四分之一。非常期待楼主能够更新。

hdlyt11

哈哈，多谢多谢，

cabinsummer

luoguoqianga，罗锅前嘎？？？