Shaft _chamfer help!

[liuhaixin88]

Hey guys,

This lisp have some defects, Below:

 

And It's only support "Line" But I want support "Pline" .

 

Thanks you all for what ever advice or help you can spare.

hsc.dcl

hsc.LSP

[liuhaixin88]

I think choose two lines can't do, May need to choose three lines.

[ymg3]

maybe, select only line 3, then use it as a fence to select the other two.

[liuhaixin88]

maybe, select only line 3, then use it as a fence to select the other two.

 

Thank you for your reply! ymg3, can you can you help me modify it ?

[ymg3]

Don't have time but it is pretty simple so you should e OK

[ymg3]

(defun c:test ()
  (setq line1 (car (entsel))
        data1 (entget line1)
        
  )
  (setvar 'chamfera 5)
  (setvar 'chamferb 5)
  (if (= (cdr (assoc 0 data1)) "LINE")
     (progn
         (setq end10 (cdr (assoc 10 data1))
               end11 (cdr (assoc 11 data1))
               ss    (ssget "_F" (list end10 end11))
         )      
         (command "_pedit" line1 "_Y" "_J"  ss "" "")
         (vl-cmdf "_chamfer" "_P" (entlast))
      )
   )
   (princ)
)

[liuhaixin88]

(defun c:test ()
  (setq line1 (car (entsel))
        data1 (entget line1)
        
  )
  (setvar 'chamfera 5)
  (setvar 'chamferb 5)
  (if (= (cdr (assoc 0 data1)) "LINE")
     (progn
         (setq end10 (cdr (assoc 10 data1))
               end11 (cdr (assoc 11 data1))
               ss    (ssget "_F" (list end10 end11))
         )      
         (command "_pedit" line1 "_Y" "_J"  ss "" "")
         (vl-cmdf "_chamfer" "_P" (entlast))
      )
   )
   (princ)
)

 

 

Thank you ! ymg3 ,It's nice,what about pline? and what about hole chamfer.

[ymg3]

liuhaixin,

 

I don't intend to write the program for you.

 

Only showing you techniques that might help you.

 

For polylines study the vlax-curve functions. From your point

of selection you can determine which segment is the end of

your shaft and work out the rest of the geometry.

 

ymg

[liuhaixin88]

liuhaixin,

 

I don't intend to write the program for you.

 

Only showing you techniques that might help you.

 

For polylines study the vlax-curve functions. From your point

of selection you can determine which segment is the end of

your shaft and work out the rest of the geometry.

 

ymg

 

ok,ymg,Still thank you!

[liuhaixin88]

I think this is an interesting topic, for mechanical Industry. but it Sink into the deep sea.