Topic: Need help with macro for 3 point arc

[TJAM51]

I need to draw a 3 point arc but I need to have the osmode set to nearest for the first point, the osmode set to zero for the second point and the osmode set back to nearest (512) for the third and last point......I know it possibly can be doen but how......


Thanks

[Mark]

will something like this work?

Code: [Select]


(defun c:a3 (/ osm p1 p2 p3)

  (setq osm (getvar 'osmode))
  (setvar 'osmode 0)


  (if (setq p1 (osnap (getpoint "\nPoint 1: ") "_near"))
    (if (setq p2 (osnap (getpoint p1 "\nPoint 2: ") "_none"))
      (if (setq p3 (osnap (getpoint p2 "\nPoint 3: ") "_near"))
(vl-cmdf "_arc" p1 p2 p3)
      )
    )
  )

  (setvar 'osmode osm)

  (princ)
)


[TJAM51]

Neat routine but I was hoping not to type in but simply pick the locations.



Thanks

[Mark]

type in what?

[ronjonp]

Here is another one:

Code: [Select]

(defun c:3arc (/ osm)
  (setq osm (getvar 'osmode))
  (setvar 'osmode 0)
  (command ".arc" "_near" pause "_none" pause "_near" pause)
  (setvar 'osmode osm)
  (princ)
)

[TJAM51]

I had to type in "NEAR" when it prompted me for point 1.


Thanks

[TJAM51]

I see now I realize now it did work.......thanks much....

[VerticalMojo]

Without LISP

osmode;0;_arc near;\_c;\near;\

[CAB]

Here is another one:

Code: [Select]

(defun c:3arc (/ osm)
  (setq osm (getvar 'osmode))
  (setvar 'osmode 0)
  (command ".arc" "_near" pause "_none" pause "_near" pause)
  (setvar 'osmode osm)
  (princ)
)

When you use the osmode override you don't need to set osmode to 0

Code: [Select]

(defun c:3arc ()
  (command ".arc" "_near" pause "_none" pause "_near" pause)
  (princ)
)

[CAB]

Without LISP

osmode;0;_arc near;\_c;\near;\

That is a good one, here without _c

Code: [Select]

^C^C_arc _near;\_non;\_near;\

[t-bear]

Man, you guys are havin' too much fun!  This stuff is cool!

[TJAM51]

Here would be a different type of 3 point arc.....first point and second point and the drag in the desired direction....here is a macr of a similar situation...how could this be put to lisp?

Thanks


arc;node,quad;\$M=E;node,quad;\;$(getvar,lastpoint);

[CAB]

Are you trying to do this? [macro]

Code: [Select]

^C^C_arc \e;\d;

[TJAM51]

How could this be put to lisp?

[CAB]

Code: [Select]

(command "._arc" pause "_e" pause "_d" pause)