修改F命令 Z轴归0倒角

weiqi

画图的时候 得用到捕捉 ，如果一个图块 Z轴不为0的话，对象捕捉和这个块有关的点（端点，中点，交点。。。）都会有个Z坐标，如果用F命令的话，会出现 两直线不共面的情况。

1. 
   
2. (defun c:ff()
   
3.    (setvar "cmdecho" 0)
   
4.    (setvar "blipmode" 0)
   
5.    (graphscr)
   
6.    (prompt "倒角 Z轴归零:") (terpri)
   
7. 
   
8.    (princ "选择第一条线")
   
9. (setq s (ssget))
   
10.    (setq len (sslength s))
    
11.    (setq index 0)
    
12. 
    
13.    (repeat len
    
14.       (setq a (entget (ssname s index)))
    
15. 
    
16.       (setq b10 (assoc 10 a))
    
17.       (setq b11 (assoc 11 a))
    
18. 
    
19.       (setq x10 (cadr b10))
    
20.       (setq y10 (caddr b10))
    
21. 
    
22.       (setq x11 (cadr b11))
    
23.       (setq y11 (caddr b11))
    
24. 
    
25.       (setq b101 (cons 10 (list x10 y10 0)))
    
26.       (setq b111 (cons 11 (list x11 y11 0)))
    
27. 
    
28.       (setq a (subst b101 b10 a))
    
29.       (entmod a)
    
30.       (setq a (subst b111 b11 a))
    
31.       (entmod a)
    
32. 
    
33.       (setq index (+ index 1))
    
34.    )
    
35.    (princ "第一条线Z轴已归0")
    
36.    (princ "选择第二条线")
    
37. (setq s2 (ssget))
    
38.    (setq len2 (sslength s2))
    
39.    (setq index2 0)
    
40. 
    
41.    (repeat len2
    
42.       (setq a2 (entget (ssname s2 index2)))
    
43. 
    
44.       (setq b10 (assoc 10 a2))
    
45.       (setq b11 (assoc 11 a2))
    
46. 
    
47.       (setq x10 (cadr b10))
    
48.       (setq y10 (caddr b10))
    
49. 
    
50.       (setq x11 (cadr b11))
    
51.       (setq y11 (caddr b11))
    
52. 
    
53.       (setq b101 (cons 10 (list x10 y10 0)))
    
54.       (setq b111 (cons 11 (list x11 y11 0)))
    
55. 
    
56.       (setq a2 (subst b101 b10 a2))
    
57.       (entmod a2)
    
58.       (setq a2 (subst b111 b11 a2))
    
59.       (entmod a2)
    
60. 
    
61.       (setq index2 (+ index2 1))
    
62.    )
    
63.    (princ "第二条线Z轴已归0")
    
64.    (princ "倒角成功")
    
65. (command "FILLET" s s2)
    
66. 
    
67.    (princ)
    
68. )
    

<br /> (defun c:ff()<br />    (setvar "cmdecho" 0)<br />    (setvar "blipmode" 0)<br />    (graphscr)<br />    (prompt "倒角 Z轴归零:") (terpri)<br /> <br />    (princ "选择第一条线")<br /> (setq s (ssget))<br />    (setq len (sslength s))<br />    (setq index 0)<br /> <br />    (repeat len<br />       (setq a (entget (ssname s index)))<br /> <br />       (setq b10 (assoc 10 a))<br />       (setq b11 (assoc 11 a))<br /> <br />       (setq x10 (cadr b10))<br />       (setq y10 (caddr b10))<br /> <br />       (setq x11 (cadr b11))<br />       (setq y11 (caddr b11))<br /> <br />       (setq b101 (cons 10 (list x10 y10 0)))<br />       (setq b111 (cons 11 (list x11 y11 0)))<br /> <br />       (setq a (subst b101 b10 a))<br />       (entmod a)<br />       (setq a (subst b111 b11 a))<br />       (entmod a)<br /> <br />       (setq index (+ index 1))<br />    )<br />    (princ "第一条线Z轴已归0")<br />    (princ "选择第二条线")<br /> (setq s2 (ssget))<br />    (setq len2 (sslength s2))<br />    (setq index2 0)<br /> <br />    (repeat len2<br />       (setq a2 (entget (ssname s2 index2)))<br /> <br />       (setq b10 (assoc 10 a2))<br />       (setq b11 (assoc 11 a2))<br /> <br />       (setq x10 (cadr b10))<br />       (setq y10 (caddr b10))<br /> <br />       (setq x11 (cadr b11))<br />       (setq y11 (caddr b11))<br /> <br />       (setq b101 (cons 10 (list x10 y10 0)))<br />       (setq b111 (cons 11 (list x11 y11 0)))<br /> <br />       (setq a2 (subst b101 b10 a2))<br />       (entmod a2)<br />       (setq a2 (subst b111 b11 a2))<br />       (entmod a2)<br /> <br />       (setq index2 (+ index2 1))<br />    )<br />    (princ "第二条线Z轴已归0")<br />    (princ "倒角成功")<br /> (command "FILLET" s s2)<br /> <br />    (princ)<br /> )<br />

代码十分丑陋，望高手出手。。。

   (princ "选择第一条线")
(setq s (ssget))

想用
entsel  代替，用不了噢？得怎么写才对

ZZXXQQ

1. (defun c:ff()
   
2. (setvar "cmdecho" 0)
   
3. (setvar "blipmode" 0)
   
4. (graphscr)
   
5. (princ "倒角 Z轴归零:")
   
6. (setq s (entsel "\n选择第一条线"))
   
7. (setq s2 (entsel "\n选择第二条线"))
   
8. (command "_.MOVE" s s2 "" "0,0,0" "0,0,1e99")
   
9. (command "_.MOVE" s s2 "" "0,0,0" "0,0,-1e99")
   
10. (princ "二条线Z轴已归0\n倒角成功")
    
11. (command "FILLET" s s2)
    
12. (princ)
    
13. )
    

(defun c:ff()<br /> (setvar "cmdecho" 0)<br /> (setvar "blipmode" 0)<br /> (graphscr)<br /> (princ "倒角 Z轴归零:")<br /> (setq s (entsel "\n选择第一条线"))<br /> (setq s2 (entsel "\n选择第二条线"))<br /> (command "_.MOVE" s s2 "" "0,0,0" "0,0,1e99")<br /> (command "_.MOVE" s s2 "" "0,0,0" "0,0,-1e99")<br /> (princ "二条线Z轴已归0\n倒角成功")<br /> (command "FILLET" s s2)<br /> (princ)<br /> )<br />

millermin

这两种归零方法我都用过，感觉效果不彻底。试用一小段时间就会发现失败的案例。所以后来我还是用flatten程序。这是et工具，你很容易获得他的源码。有兴趣可以看我的贴。
http://bbs.mjtd.com/thread-99491-1-1.html

kwok

millermin 发表于 2013-1-1 13:14
这两种归零方法我都用过，感觉效果不彻底。试用一小段时间就会发现失败的案例。所以后来我还是用flatten程序 ...

可以把用flatten后来倒角的码贴上来学习一下么
.

ygp820601

归零：
沿Z轴平移1E99,再平移-1E99,搞定。

millermin

kwok 发表于 2013-1-1 15:59
可以把用flatten后来倒角的码贴上来学习一下么
.

供参考，仅适合我自己，所以你自己再调整。

(defun c:ppl( )
(vl-load-com)
(setvar "cmdecho" 0)  

  (setq sal "\nENTER DRAWINGS SCALE")
  (setq rad(* 0.6 sal))

  (setq pln1-data(entsel "\nCHOOSE the 1st LINE:"))
  (setq pln1(car pln1-data))
  (setq pt1(cadr pln1-data) )   ; osnap ***  "nea"
  
(setq pln1 (flt pln1))

(while (/= "")
  
     (setq pln2-data (entsel "\nCHOOSE the 2nd LINE:"))
     (setq pln2(car pln2-data))
     (setq pln2 (flt pln2))
     (command "EXPLODE" pln2 )      
     (setq pln2 (entlast))
     (setq pt2(cadr pln2-data) )

     (setvar "osmode" 0)
     (command "fillet" "r" rad )
     (command  "fillet" (list pln1 pt1) (list pln2 pt2) )
     (setq pt1 pt2)
     (setvar "osmode" 15359)  
  )

(princ)
)


(defun flt(ob)
(acet-autoload2 '("FLATTENSUP.LSP" (acet-flatn ss hide)))
(setq ss (ssadd))
(ssadd ob ss)
(setq ss (acet-flatn ss t))
(setq ob (ssname ss 0))
)

weiqi

ygp820601 发表于 2013-1-1 19:36
归零：
沿Z轴平移1E99,再平移-1E99,搞定。

但是 如果是 大于1E99貌似就不行了。我画图中，就用LE99这个F还是经常出现 不行了。