Beginner question

[Lt Dan's legs]

Perpendicular?

 

 

Command: numinc

[C]urve Aligned, [] Rotate CW, [T]oggle Count

[Tab] = Rotate 90, [shift] + [Tab] = Mirror Rotation, [R]eplace,

Select Curve to Align :

>

[Lee Mac]

Oh, I just add (/ pi 2.) to the rotation

[Lee Mac]

I searched for acer [sic]-ss-drag-move and could not find it anywhere in that program.

 

Thats because I didn't use it. But it does offer OSnap capability, which is a drawback when using a GrRead loop without significant coding to imitate ObjectSnap functionality.

[Lt Dan's legs]

Thats because I didn't use it. But it does offer OSnap capability, which is a drawback when using a GrRead loop without significant coding to imitate ObjectSnap functionality.

 

This is a code Alan wrote a while back. I have a some notes on acet-ss-drag-move (thanks alan for that! ) but I do not understand how to apply it. If it's not too difficult or time consuming, would you mind explaining where it goes?

 

(defun c:1 (/ blockname p1 p2)
;; Alan J. Thompson, 05.05.10
;; Modified by Reid B.
(vl-load-com)
 (setq blockname "PANEL")
 (if (and (or (tblsearch "block" blockname)
              (findfile (strcat blockname ".dwg"))
              (alert (strcat blockname " cannot be found!"))
          )
          (setq p1 (getpoint "\nSpecify block insertion point: "))
          (setq p2 (getpoint p1 "\nSpecify block end point: "))
     )
   ((lambda (block)
      (foreach x (vlax-invoke block 'GetDynamicBlockProperties)
        (cond ((eq (vla-get-propertyname x) "Panel Length")
               (vla-put-value
                 x
                 (cond
                   ("1")
                 )
               )
              )
        )
      )
    )
     (vla-insertblock
       (if
         (or (eq acmodelspace
                 (vla-get-activespace
                   (cond (*AcadDoc*)
                         ((setq *AcadDoc* (vla-get-activedocument (vlax-get-acad-object))))
                   )
                 )
             )
             (eq :vlax-true (vla-get-mspace *AcadDoc*))
         )
          (vla-get-modelspace *AcadDoc*)
          (vla-get-paperspace *AcadDoc*)
       )
       (vlax-3d-point (trans p1 1 0))
       blockname
       1.
       1.
       1.
       (angle (trans p1 1 0) (trans p2 1 0))
     )
   )
 )
 (princ)
)

 

 

 

------

forgive my misspelled words. I was typing from my phone

[Lt Dan's legs]

New question.

 

How do I turn back on user settings with polar or ortho? I have a LISP that turns ortho on but I want to turn user settings back on when lisp is done.

 

I found an example but I must be doing something wrong because ortho stays on after the routine.

[Lt Dan's legs]

Nevermind! I'm an idiot!

[alanjt]

New question.

 

How do I turn back on user settings with polar or ortho? I have a LISP that turns ortho on but I want to turn user settings back on when lisp is done.

 

I found an example but I must be doing something wrong because ortho stays on after the routine.

 

ORTHOMODE and AUTOSNAP variables.

[Lt Dan's legs]

ORTHOMODE and AUTOSNAP variables.

 

I don't even want to admit what I did wrong. Sometimes it's better to take your eyes off of something for 5 minutes.

[alanjt]

I don't even want to admit what I did wrong. Sometimes it's better to take your eyes off of something for 5 minutes.

I do it all the time. I work out a lot of things on my drive home.