Topic: Challenge: Dim Reactor

[T.Willey]

5. almost forgot.... so where are the swamp lispers ?

I was looking at one way while trying to get my work done, need to keep my job and all.  I haven't figured it out yet, but I think it will work sweet when I get it there.  Hopefully tomorrow.

[Kerry]

5. almost forgot.... so where are the swamp lispers ?

Some of us have real work that needs doing ...

and other languages to study 

[Spike Wilbury]

I only asked where there were..... 

[CAB]

Luis,
I decided to make a major revision in the commandended routine.

See if you can break it.

<edit: renamed lisp file>

[Spike Wilbury]

Luis,
I decided to make a major revision in the commandended routine.

See if you can break it.

That's the right way..... Cheers!

[TimSpangler]

so where are the swamp lispers ?

Working....... 

[Chuck Gabriel]

Some of us have real work that needs doing ...

Get your priorities straight Kerry.

[T.Willey]

Here is one that seems to be working.  It has two variables that you can control which dims get edited.  There is the 'MinLength' and the 'IgnoreDimStyleList'.  Let me know.  I know if can be cleaned up a bit, but for now it works.   

Code: [Select]

(or
    GlbVarReactObjectAdded
    (setq GlbVarReactObjectAdded (vlr-acdb-reactor "DimObjectReactor" '((:vlr-objectAppended . ObjectAppenedReact))))
)
(defun ObjectAppenedReact (react objList / CorrectionList EntData tempList tempSubList tempList2)
   
    (setq CorrectionList
        (list
            -3
            (list
                "ACAD"
                '(1000 . "DSTYLE")
                '(1002 . "{")
                '(1070 . 3)
                '(1000 . "\"")
                '(1070 . 277)
                '(1070 . 2)
                '(1002 . "}")
            )
        )
    )
    (foreach i objList
        (if
            (and
                (equal (type i) 'ENAME)
                (= (cdr (assoc 0 (setq EntData (entget i '("*"))))) "DIMENSION")
                (not (member (cdr (assoc 3 EntData)) IgnoreDimStyleList))
            )
            (progn
                (if (< (cdr (assoc 42 EntData)) MinLength)
                    (if (setq tempList (assoc -3 EntData))
                        (if (setq tempSubList (assoc (caadr CorrectionList) (cdr tempList)))
                            (if (not (equal (cadr CorrectionList) tempSubList))
                                (entmod
                                    (subst
                                        (subst (cadr CorrectionList) tempSubList tempList)
                                        tempList
                                        EntData
                                    )
                                )
                            )
                            (entmod (subst (cons -3 (append (cadr tempList) (cadr CorrectionList))) tempList EntData))
                        )
                        (entmod (append EntData (list CorrectionList)))
                    )
                    (if (setq tempList (assoc -3 EntData))
                        (progn
                            (foreach i (cdr tempList)
                                (if (equal (cadr CorrectionList) i)
                                    (setq tempList2 (cons (list (car i)) tempList2))
                                    (setq tempList2 (cons i tempList2))
                                )
                            )
                            (entmod (subst (cons -3 (reverse tempList2)) tempList EntData))
                        )
                    )
                )
                (if react
                    (vlr-pers
                        (vlr-object-reactor
                            (list (vlax-ename->vla-object i))
                            "DimObjectReactor"
                            '(
                                (:vlr-objectClosed . ObjectModifiedDone)
                                (:vlr-erased . ObjectEraseReactor)
                            )
                        )
                    )
                )
            )
        )
    )
    (and
        GlbVarDimReactCommandEnded
        (vlr-remove GlbVarDimReactCommandEnded)
    )
    (setq GlbVarDimReactCommandEnded nil)
    (setq GlbVarDimReactEntList nil)
    (princ)
)
(defun ObjectModifiedDone (ownObj react tempList)
   
    (setq GlbVarDimReactEntList (cons (vlax-vla-object->ename ownObj) GlbVarDimReactEntList))
    (or
        GlbVarDimReactCommandEnded
        (setq GlbVarDimReactCommandEnded (vlr-command-reactor "tempDimReactCommandEnded" '((:vlr-commandEnded . DimReactCommandEnded))))
    )
    (princ)
)
(defun DimReactCommandEnded (react cmdNames)
   
    (foreach i GlbVarDimReactEntList
        (ObjectAppenedReact nil (list i))
    )
    (princ)
)
(defun ObjectEraseReactor (Obj React NotSure)
   
    (vlr-pers-release React)
    (vlr-remove React)
)


[whdjr]

so where are the swamp lispers ?

Some of us have no clue about reactors. 

[Alan Cullen]

Hey...I'm a Swamp Lisper....

What is a reactor?

Sorry...I was asleep that day.

[Spike Wilbury]

so where are the swamp lispers ?

Some of us have no clue about reactors. 

no problema, it was just a 'tag' to get more attention to this thread/topic.

i had a lot of clues, but most of them are now lost... there are many samples posted here 'about reactors'

[Spike Wilbury]

What is a reactor?

many autocad commands are made with reactors, like leaders, dimensions, etc. to mention a few... with the intro of vital lisp (later renamed to visual lisp) reactors were available for autolisp to make more intelligent alike routines... in example the ability to place automatic dimensions on one or multiple entities, right after a modification or when an specific command ended, or right before closing a drawing to be able to make last corrections before closing it,  etc. etc etc.

now, there are the 'fields' objects, so many things can be used with these objects...

hth.