[求助]求凹倒角的方法

damu007

如图,我想了好久,不知道用什么方法.

BDYCAD

用LISP 应是比较容易实现,刚写的,请参考!

3. ;;;功能:倒反角
4. ;;;编写:包达勇
5. ;;;时间:2007-03-07
6. (defun c:test (/ BASRAD DXF EA ENAME1 ENAME2 ENLAST1 ENLAST2 RAD SA VL)
7.   (setq ename1 (entsel)
8. ename2 (entsel)
9. rad    (getreal "\n请输入半径:")
10.   )
11.   (if (and rad ename1 ename2 (not (eq ename1 ename2)))
12.     (progn
13.       (setq basrad(getvar"filletrad"))
14.       (setvar"filletrad"rad)
15.       (setq enlast1 (entlast))
16.       (command ".fillet" ename1 ename2)
17.       (setq enlast2 (entlast))
18.       (if (not (eq enlast1 enlast2))
19. (progn
20.    (setq vl  (vlax-ename->vla-object enlast2)
21.   dxf (entget enlast2)
22.   sa  (vla-get-startangle vl)
23.   ea  (vla-get-endangle vl)
24.   dxf (subst (CONS 50 ea) (assoc 50 dxf) dxf)
25.   dxf (subst (CONS 51 sa) (assoc 51 dxf) dxf)
26.    )
27.    (entmod dxf)
28. )
29.       )
30.       (setvar"filletrad"basrad)
31.     )
32.   )
33.   (princ)
34. )

;;;功能:倒反角 ;;;编写:包达勇 ;;;时间:2007-03-07 (defun c:test (/ BASRAD DXF EA ENAME1 ENAME2 ENLAST1 ENLAST2 RAD SA VL)   (setq ename1 (entsel) ename2 (entsel) rad    (getreal "\n请输入半径:")   )   (if (and rad ename1 ename2 (not (eq ename1 ename2)))     (progn       (setq basrad(getvar"filletrad"))       (setvar"filletrad"rad)       (setq enlast1 (entlast))       (command ".fillet" ename1 ename2)       (setq enlast2 (entlast))       (if (not (eq enlast1 enlast2)) (progn    (setq vl  (vlax-ename->vla-object enlast2)   dxf (entget enlast2)   sa  (vla-get-startangle vl)   ea  (vla-get-endangle vl)   dxf (subst (CONS 50 ea) (assoc 50 dxf) dxf)   dxf (subst (CONS 51 sa) (assoc 51 dxf) dxf)    )    (entmod dxf) )       )       (setvar"filletrad"basrad)     )   )   (princ) )

BDYCAD

还发现有两种效果,

3. ;;;功能:倒反角对称效果
4. ;;;编写:包达勇
5. ;;;时间:2007-03-07
6. (defun c:test (/ BASRAD DXF EA ENAME1 ENAME2 ENLAST1 ENLAST2 RAD SA VL)
7.   (setq ename1 (entsel)
8. ename2 (entsel)
9. rad    (getreal "\n请输入半径:")
10.   )
11.   (if (and rad ename1 ename2 (not (eq ename1 ename2)))
12.     (progn
13.       (setq basrad(getvar"filletrad"))
14.       (setvar"filletrad"rad)
15.       (setq enlast1 (entlast))
16.       (command ".fillet" ename1 ename2)
17.       (setq enlast2 (entlast))
18.       (if (not (eq enlast1 enlast2))
19. (progn
20.    (setq vl (vlax-ename->vla-object enlast2)
21.   SPT(vlax-curve-getstartpoint enlast2)
22.   EPT(vlax-curve-getendpoint enlast2))
23.    (vla-mirror vl(vlax-3d-point spt)(vlax-3d-point ept))
24.    (entdel enlast2)
25. )
26.       )
27.       (setvar"filletrad"basrad)
28.     )
29.   )
30.   (princ)
31. )

;;;功能:倒反角对称效果 ;;;编写:包达勇 ;;;时间:2007-03-07 (defun c:test (/ BASRAD DXF EA ENAME1 ENAME2 ENLAST1 ENLAST2 RAD SA VL)   (setq ename1 (entsel) ename2 (entsel) rad    (getreal "\n请输入半径:")   )   (if (and rad ename1 ename2 (not (eq ename1 ename2)))     (progn       (setq basrad(getvar"filletrad"))       (setvar"filletrad"rad)       (setq enlast1 (entlast))       (command ".fillet" ename1 ename2)       (setq enlast2 (entlast))       (if (not (eq enlast1 enlast2)) (progn    (setq vl (vlax-ename->vla-object enlast2)   SPT(vlax-curve-getstartpoint enlast2)   EPT(vlax-curve-getendpoint enlast2))    (vla-mirror vl(vlax-3d-point spt)(vlax-3d-point ept))    (entdel enlast2) )       )       (setvar"filletrad"basrad)     )   )   (princ) )

damu007

BDYCAD

感謝經常給我難題的人，讓我可以不斷學習！

3. ;;;编写:包达勇
4. ;;;时间:2007-03-08
5. (defun c:test
6.        (/ AN1 AN2 ARC C1 C1I C2I ENAME1 ENAME2 INP RAD VL1 VL2 VL3)
7.   (setq ename1 (entsel)
8. ename2 (entsel)
9. rad    (getreal "\n请输入半径:")
10.   )
11.   (if (and rad ename1 ename2 (not (eq ename1 ename2)))
12.     (progn
13.       (SETQ vl1 (vlax-ename->vla-object (CAR ename1))
14.      vl2 (vlax-ename->vla-object (CAR ename2))
15.      INP (VLAX-SAFEARRAY->LIST
16.     (VLAX-VARIANT-VALUE
17.       (VLA-INTERSECTWITH VL1 VL2 ACEXTENDBOTH)
18.     )
19.   )
20.       )
21.       (entmake (APPEND '((0 . "CIRCLE")
22.     (100 . "AcDbEntity")
23.     (100 . "AcDbCircle")
24.     (8 . "0")
25.    )
26.          (LIST (CONS 40 rad) (CONS 10 INP))
27.         )
28.       )
29.       (SETQ C1 (ENTLAST)
30.      VL3 (vlax-ename->vla-object C1)
31.       )
32.       (SETQ C1I (VLAX-SAFEARRAY->LIST
33.     (VLAX-VARIANT-VALUE
34.       (VLA-INTERSECTWITH VL3 VL1 ACEXTENDNONE)
35.     )
36.   )
37.      C2I (VLAX-SAFEARRAY->LIST
38.     (VLAX-VARIANT-VALUE
39.       (VLA-INTERSECTWITH VL3 VL2 ACEXTENDNONE)
40.     )
41.   )
42.       )
43.       (IF (AND C1I C2I)
44. (PROGN
45.    (SETQ AN1 (ANGLE INP C1I)
46.   AN2 (ANGLE INP C2I)
47.    )
48.    (IF (> AN1 AN2)
49.      (ENTMAKE (APPEND '((0 . "ARC")
50.           (100 . "AcDbEntity")
51.           (100 . "AcDbCircle")
52.           (210 0.0 0.0 1.0)
53.          )
54.         (LIST (CONS 10 INP)
55.        (CONS 40 rad)
56.        (CONS 50 AN2)
57.        (CONS 51 AN1)
58.         )
59.        )
60.      )
61.      (ENTMAKE (APPEND '((0 . "ARC")
62.           (100 . "AcDbEntity")
63.           (100 . "AcDbCircle")
64.           (210 0.0 0.0 1.0)
65.          )
66.         (LIST (CONS 10 INP)
67.        (CONS 40 rad)
68.        (CONS 50 AN1)
69.        (CONS 51 AN2)
70.         )
71.        )
72.      )
73.    )
74.    (SETQ ARC (ENTLAST))
75.    (COMMAND ".TRIM"
76.      (LIST ARC C1I)
77.      ""
78.      (LIST (CAR ename1) INP)
79.      (LIST (CAR ename2) INP)
80.      ""
81.    )
82.    (ENTDEL C1)
83. )
84.       )
85.     )
86.   )
87.   (princ)
88. )

;;;编写:包达勇 ;;;时间:2007-03-08 (defun c:test        (/ AN1 AN2 ARC C1 C1I C2I ENAME1 ENAME2 INP RAD VL1 VL2 VL3)   (setq ename1 (entsel) ename2 (entsel) rad    (getreal "\n请输入半径:")   )   (if (and rad ename1 ename2 (not (eq ename1 ename2)))     (progn       (SETQ vl1 (vlax-ename->vla-object (CAR ename1))      vl2 (vlax-ename->vla-object (CAR ename2))      INP (VLAX-SAFEARRAY->LIST     (VLAX-VARIANT-VALUE       (VLA-INTERSECTWITH VL1 VL2 ACEXTENDBOTH)     )   )       )       (entmake (APPEND '((0 . "CIRCLE")     (100 . "AcDbEntity")     (100 . "AcDbCircle")     (8 . "0")    )          (LIST (CONS 40 rad) (CONS 10 INP))         )       )       (SETQ C1 (ENTLAST)      VL3 (vlax-ename->vla-object C1)       )       (SETQ C1I (VLAX-SAFEARRAY->LIST     (VLAX-VARIANT-VALUE       (VLA-INTERSECTWITH VL3 VL1 ACEXTENDNONE)     )   )      C2I (VLAX-SAFEARRAY->LIST     (VLAX-VARIANT-VALUE       (VLA-INTERSECTWITH VL3 VL2 ACEXTENDNONE)     )   )       )       (IF (AND C1I C2I) (PROGN    (SETQ AN1 (ANGLE INP C1I)   AN2 (ANGLE INP C2I)    )    (IF (> AN1 AN2)      (ENTMAKE (APPEND '((0 . "ARC")           (100 . "AcDbEntity")           (100 . "AcDbCircle")           (210 0.0 0.0 1.0)          )         (LIST (CONS 10 INP)        (CONS 40 rad)        (CONS 50 AN2)        (CONS 51 AN1)         )        )      )      (ENTMAKE (APPEND '((0 . "ARC")           (100 . "AcDbEntity")           (100 . "AcDbCircle")           (210 0.0 0.0 1.0)          )         (LIST (CONS 10 INP)        (CONS 40 rad)        (CONS 50 AN1)        (CONS 51 AN2)         )        )      )    )    (SETQ ARC (ENTLAST))    (COMMAND ".TRIM"      (LIST ARC C1I)      ""      (LIST (CAR ename1) INP)      (LIST (CAR ename2) INP)      ""    )    (ENTDEL C1) )       )     )   )   (princ) )

damu007

 感谢版主对我问题的一直关注，我还想要完善一点，如图：

顺便问一下，如果要重复同一个命令，开一个R50的圆，应该如何编？

byghbcx

试试下段代码，符不符合你的要求，ang也可以不通过倒圆求。

(DEFUN TEST( / ename1 ename2 rad basrad enlast PT1 PT2 ang ang1 ang2 ptc)
   (setq ename1 (entsel "\n请选择对象1")
  ename2 (entsel "\n请选择对象2")
  rad    (getreal "\n请输入半径:")
   )
  (if (and rad ename1 ename2 (not (eq ename1 ename2)))
     (progn
       (setq basrad (getvar"filletrad"))
       (setvar "filletrad" 1)
       (command ".fillet" ename1 ename2)
       (setq enlast (entlast) DXF (ENTGET ENLAST))
       (if (= "ARC" (CDR (ASSOC 0 DXF)))
  (PROGN
    (SETQ PT1 (POLAR (CDR (ASSOC 10 DXF)) (CDR (ASSOC 50 DXF)) (CDR (ASSOC 40 DXF))))
    (SETQ PT2 (POLAR (CDR (ASSOC 10 DXF)) (CDR (ASSOC 51 DXF)) (CDR (ASSOC 40 DXF))))
    (command "_.erase" enlast "")
    (setq ang1 (CDR (ASSOC 50 DXF)) ang2 (CDR (ASSOC 51 DXF)))
    (if (> ang1 ang2)
      (setq ang1 (- ang1 (* pi 2.0)))
    )
    (setq ang (/ (- ang2 ang1) 2))
    (setvar "filletrad" (/ rad (/ (sin ang) (cos ang))))
    (command ".fillet" ename1 ename2)
           (setq enlast (entlast) DXF (ENTGET ENLAST))
    (SETQ PT1 (POLAR (CDR (ASSOC 10 DXF)) (CDR (ASSOC 50 DXF)) (CDR (ASSOC 40 DXF))))
    (SETQ PT2 (POLAR (CDR (ASSOC 10 DXF)) (CDR (ASSOC 51 DXF)) (CDR (ASSOC 40 DXF))))
    (setq ptc (POLAR (CDR (ASSOC 10 DXF)) (+ ang1 ang) (/ (CDR (ASSOC 40 DXF)) (cos ang))))
    (command "_.arc" "c" ptc pt2 pt1)
    (command "_.erase" enlast "")
  )
       (setvar "filletrad" basrad)
       )
     )
    )
  (princ)
   )

BDYCAD

楼主不要光提出问题,也要自已试着解决自已提出的问题啊!自已动手丰衣足食 !!!

byghbcx

对,楼主不要光提出问题,也要自已试着解决自已提出的问题啊!现在好多人都在提问题,不想方法解决问题,只有思考了才会有进步,共同学习,共同进步,才是论坛的初衷!!!

damu007

好的,谢谢各位的帮助