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

meflying

都跟你说了，7楼的是三楼的完善程序，所以3楼会有很多问题，而7楼就少些了，所以你应该使用7楼的程序，

1. 至于选择方式，你可以自己修改一下，

复制代码

三楼的程序未做出错处理及系统变量处理，只是一个测试的程序，而且如果选择点不在线上，则会出错。。。

用7楼的！！！！！！！！！！！！！！！

wb0815

是斑竹
可是我试过了用getpoint和getterpoint取出的解过是一样的呀为什么就不行呢

无痕

非要写的这么复杂么？
测试下我的代码，我试了几个，反正没问题。

2. ;曲线在两交点处截断并缩短一定距离 by无痕.2004.1
   
3. ;用于 裁减 避让曲线。
   
4. (defun c:brklen ()
   
5.   (setq os  (getvar "osmode")
   
6.         nos (setvar "osmode" 32)
   
7.         el  (entsel "\n选则要避让的线条:")
   
8.         e1  (car el)
   
9.         elast(entlast)
   
10.         pt1 (getpoint "\n选则交点1:")
    
11.         pt2 (getpoint "\n选则交点2:"))
    
12.   (vl-cmdf ".break" e1 "f" pt1 pt2)
    
13.   (vl-cmdf ".lengthen" "DE" (- 0 100) (list e1 pt1)  ""
    
14.            ".lengthen" "DE" (- 0 100) (list (if (equal (entlast) elast) e1 (entlast)) pt2) "");;if处理封闭曲线;
    
15.   (setvar "osmode" os)
    
16.   (princ)
    
17. )
    

;曲线在两交点处截断并缩短一定距离 by无痕.2004.1<br /> ;用于 裁减 避让曲线。<br /> (defun c:brklen ()<br />   (setq os  (getvar "osmode")<br />         nos (setvar "osmode" 32)<br />         el  (entsel "\n选则要避让的线条:")<br />         e1  (car el)<br />         elast(entlast)<br />         pt1 (getpoint "\n选则交点1:")<br />         pt2 (getpoint "\n选则交点2:"))<br />   (vl-cmdf ".break" e1 "f" pt1 pt2)<br />   (vl-cmdf ".lengthen" "DE" (- 0 100) (list e1 pt1)  ""<br />            ".lengthen" "DE" (- 0 100) (list (if (equal (entlast) elast) e1 (entlast)) pt2) "");;if处理封闭曲线;<br />   (setvar "osmode" os)<br />   (princ)<br /> )<br />

龙龙仔

无痕发表于2004-1-10 11:23:00非要写的这么复杂么？
测试下我的代码，我试了几个，反正没问题。
;曲线在两交点处截断并缩短一定距离 by无痕.2004.1
;用于 裁减 避让曲线。
(defun c:brklen ()
   (setq os  (getva

你有用"polyline"測試嗎?
我好像都不能用??

meflying

7楼主函数这样改，则不需要getinterpoint函数
to:无痕，与我的意思有所不同，我中间的线是保留的，只是打断，不知道楼主要什么样的。。。

2. 
   
3. (defun c:Brk( / pt1 pt2 pt param1 param2 param ent entv ent2 ent2v)
   
4.   (setq errtmp *error*)
   
5.   (setq *error* err)
   
6.   (setq pt1 (getpoint "\n选择交点一:"))
   
7.   (setq pt2 (getpoint "\n选择交点二:"))
   
8. 
   
9.   (setq os (getvar "osmode"))
   
10.   (setvar "osmode" 0)
    
11.   (setvar "cmdecho" 0)
    
12.   (prompt "\n选择红线...")
    
13.   (setq ent (car (entsel)))
    
14.   (setq entv (vlax-ename->vla-object ent))
    
15.   (setq param1 (vlax-curve-getParamAtPoint entv pt1))
    
16.   (setq param2 (vlax-curve-getParamAtPoint entv pt2))
    
17.   (if (< param2 param1)
    
18.     (progn
    
19.       (setq pt pt2
    
20.      pt2 pt1
    
21.      pt1 pt)
    
22.       (setq param param2
    
23.      param2 param1
    
24.      param1 param)
    
25.     )
    
26.   )
    
27.   (setq pt1 (vlax-curve-getPointAtDist entv (- (vlax-curve-getDistAtParam entv param1) 0.5)))
    
28.   (setq pt2 (vlax-curve-getPointAtDist entv (+ (vlax-curve-getDistAtParam entv param2) 0.5)))
    
29.   (setcolor ent 4)
    
30.   (setvar "osmode" 0)
    
31.   (command "_.break" (list ent pt1) "f" pt1 "@")
    
32.   (setcolor (entlast) 1)
    
33.   (setq ent2 (entlast))
    
34.   (setq ent2v (vlax-ename->vla-object ent2))
    
35.   (command "_.break" (list ent2 pt2) "f" pt2 "@")
    
36.   (setcolor (entlast) 4)
    
37.   (setq *error* errtmp)
    
38.   (setvar "osmode" os)
    
39.   (princ)
    
40. )
    

<br /> (defun c:Brk( / pt1 pt2 pt param1 param2 param ent entv ent2 ent2v)<br />   (setq errtmp *error*)<br />   (setq *error* err)<br />   (setq pt1 (getpoint "\n选择交点一:"))<br />   (setq pt2 (getpoint "\n选择交点二:"))<br /> <br />   (setq os (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (setvar "cmdecho" 0)<br />   (prompt "\n选择红线...")<br />   (setq ent (car (entsel)))<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

无痕 的那种不适合我们用而且不能处理3d线

谢谢斑竹我就要你这个样子的

无痕

测试了一下15楼的，有bug

Command: brk
选择交点一:
选择交点二:
选择红线...
Select object: ; 错误: 参数类型错误: numberp: nil

我看前面的程序，好像对选点要求不高，不一定是“交点”，我又测试了一下我的程序在3d下的效果，确实有时候有bug，部分处理错误。因为设置了osmode为32，改为0或者512就好了 。不知楼上是怎么断定我的程序不能处理3d线的。我的操作步骤和me的只是选实体先后次序不同而已，不过你觉得不适合那就没的说了，呵呵。