Topic: Challenge ( Kind of ) Arc Entmake Data

[gile]

Its much more easy with .NET

Code: [Select]

private void MakeArc(Point3d p1, Point3d p2, Point3d p3)
{
    Database db = HostApplicationServices.WorkingDatabase;
    using (Transaction tr = db.TransactionManager.StartTransaction())
    {
        CircularArc3d arc = new CircularArc3d(p1, p2, p3);
        BlockTableRecord btr = (BlockTableRecord)tr.GetObject(db.CurrentSpaceId, OpenMode.ForWrite);
        Arc a = new Arc(arc.Center, arc.Radius, arc.StartAngle, arc.EndAngle);
        btr.AppendEntity(a);
        tr.AddNewlyCreatedDBObject(a, true);
        tr.Commit();
    }
}

[Lee Mac]

Where's the fun in that... 

See below on the bold letters, is there   

Code: [Select]

(de[b]fun[/b] c:arc3pts (/ p1 p2 p3)
(setq p1 (getpoint "\nStart point: ")
      p3 (getpoint "\nMid point: ")
      p2 (getpoint "\nEnd point: "))
(vl-cmdf "_.ARC" p1 p3 p2) (princ))

Haha, very funny 

[LE3]

forgot to use quote instead of code to show it right

I made in the way past 18 new method to draw arcs, if I get a permit will try to post them, but you guys are way to smart - that do not need anything  

Haha, very funny  

[Lee Mac]

but you guys are way to smart - that do not need anything  

Thanks Luis, but honestly - Gile is leaps and bounds ahead of me, I always learn a great deal from him.

[David Bethel]

Okay,  that makes sense now.  Thanks!  -David

[hermanm]

 if I get a permit will try to post them

What's this about a "permit," Luis?

Did I miss something?   

[LE3]

did those for someone else... was a paid stuff.

 if I get a permit will try to post them

What's this about a "permit," Luis?

Did I miss something?   

[CAB]

Another version using code from Evgeniy & Gile

Code: [Select]

;;  Points Start, along,& end of the arc
(defun Arc3pt (ps pm pe / r cen tmp)
  (defun clockwise-p (p1 p2 p3) ; gile
    (< (sin (- (angle p1 p3) (angle p1 p2))) -1e-14)
  )
  (if (clockwise-p ps pm pe)
    (setq tmp ps ps pe pe tmp)
  )
  (setq cen (polar pe  ; Evgeniy
              (+ (angle pe pm)
(setq r (- (angle ps pe) (angle ps pm)))
(* pi -0.5)
      )
              (setq r (/(distance pm pe) (sin r) 2.))
       ))
  (setq r  (abs r))

  (entmakex
    (list (cons 0 "ARC")
               (cons 6 "BYLAYER")
               ;(cons 8 "0")
               (cons 10 cen) ;*** Center point (in OCS)
               (cons 40 r) ;*** Radius
               (cons 50 (angle cen ps)) ;*** Start angle
               (cons 51 (angle cen pe)) ;*** End angle
               ))
  (princ)
  )

[gile]

There's a tool I don't know the English name wich use this property to draw radius and/or find the center of round pieces of wood or iron.
Here's how it looks and how it works:

[LE3]

There's a tool I don't know the English name

what's the name in French?

[gile]

the french name is: équerre à centrer it's mostly used by turners.

[LE3]

the french name is: équerre à centrer it's mostly used by turners.

maybe something like:
supported to the center... bracket to center



 
hmmm.... I see that it is an instrument
the square = équerre

[gile]

'bracket to center' is what google translator gives.

IMO litteral translation should rather be 'set-square to center'

[LE3]

'bracket to center' is what google translator gives.

IMO litteral translation should rather be 'set-square to center'

Yes, it makes sense.

That can be a good candidate for a custom object, btw. or maybe with these new parametric features or as a dynamic block.... don't know.

[gile]

Some other designs: