Topic: Good Reactor Lisp

[deegeecees]

Here's one for Louis (and anyone else with reactor exp.),

Looking into attaching a text entity to a viewport so that the scale (eg. 1/8"=1'-0" etc.) is reflected in the text. I'm going to start it, but I have a feeling I won't even get half of it done before someone else *cough*<Louis> posts something. I'm new to reactors, so this is more of a learning event for me. 

[ronjonp]

Degeecees,

Take a look at the field command:

Under field names list highlight object.
Select viewport..property custom scale and format how you need

HTH

Ron

[Crank]

You don't need reactors for this. Try the FIELD-command.

[Crank]

To slow... :doa:

[deegeecees]

At work, 2004's the latest AutoCAD, and does not have that capability...  Does it?

Edit: Nope. I wanted to learn about reactors anyway. 

[whdjr]

I think Fields started in 2005.

[ronjonp]

Something to start with....uses 2005 field codes....

Code: [Select]

(defun c:feeld (/ a s1 index ent obj obj_ID txt)
  (setq a 0)
  (command ".undo" "begin")
  (vl-load-com)
  (if (setq sl (ssget ":S" '((0 . "VIEWPORT"))

       )
      )
    (progn
      (setq index -1)
      (while (< (setq index (1+ index)) (sslength sl))
(setq ent    (ssname sl index)
      obj    (vlax-ename->vla-object ent)
      obj_ID (vlax-get-property obj 'ObjectID)
      txt    (strcat "%<\\AcObjProp Object(%<\\_ObjId "
     (rtos obj_ID)
     ">%).CustomScale \\f \"%lu2%qf2816:1\">%"
     )
)
(command "text"
"j"
"mc"
pause
(* (getvar "dimscale") 0.15)
"0"
txt
)
      )
    )
  )
  (command ".undo" "end")
)

[deegeecees]

Something to start with....uses 2005 field codes....

Ronjonp, look up at my previous post. I could use that code at home though.

[CAB]

ron,
How much faster is your system,
HP xw4200 CMT Intel Pentium 4 3.2GHz (HT) / 2GB DDR2 / GeForce 6800 GT 256MB
than say a 1.4ghz system? Is the speed increase just a little snapper or does
it knock your sock off?


As for your lisp, If you use this it won't crash when the textsize is switched
between 0 and >0

 

Code: [Select]

(if (= (cdr (assoc 40 (tblsearch "style" (getvar "textstyle")))) 0)
   (command "text" pt "" "0" txt)
   (command "text" pt "0" txt)
 )

[ronjonp]

CAB,

The machine I have now is smokin . We have a couple 2ghtz machines in the office and this one blows them outta the water.

You thinking about getting a new machine?

Thanks for the textstyle tip.

Ron

[CAB]

Yes, with all the stuff I have loaded & more added the machine seems a little slow at times.
Maybe time to upgrade my 1.2ghz AMD

[ronjonp]

Probably opening a can of worms but...for what it's worth

From my experience...the Pentium 4's I've used seem to run AutoCAD faster than AMD's

[deegeecees]

Hey thanks for the code guys...


Still workin on it.


I need a 30 hr day.

[CAB]

Probably opening a can of worms but...for what it's worth

From my experience...the Pentium 4's I've used seem to run AutoCAD faster than AMD's

Thanks for the tip.