Topic: Trimming selection set

[hmspe]

I'm working on a generalized routine to automatically trim arcs drawn between symbols in electrical drawings.  The issue is that arc and circle components in the symbol block should be used as edges to trim to, but line and lwpolyline components should not.  I found code that explodes the symbol then gets all intersection points using:
 
    (setq 8list (vlax-invoke 8symbobj 'Explode))
    (foreach 8obj 8list
      (if (setq 8intpts (MyErrorCheck
                         'vlax-invoke
                         (list 8obj 'IntersectWith 8arcobj acExtendNone)
                       )
          )
        (progn        ....

8symbobj is the symbol block and 8arcobj is the intersecting arc.  A dump of 8list for a fluorescent strip block returns:

(#<VLA-OBJECT IAcadLine 033d8a24> #<VLA-OBJECT IAcadLine 033dd4a4> #<VLA-OBJECT
IAcadLine 033dd444> #<VLA-OBJECT IAcadCircle 033db304>)

I need to remove all the IAcadLine entities from 8list before calling the foreach loop.  I'm just getting started with the vl-/vla- end of lisp and don't have a clue how to do this.  Any guidance would be appreciated.

Martin   

[MP]

<coded blind>

If 8list needs to have a copy of every entity that results from exploding 8symbobj then this --

Code: [Select]

(setq filtered8list
    (vl-remove-if-not
       '(lambda (object)
            (member
                (vla-get-objectname object)
               '("AcDbArc" "AcDbCircle")
            )
        )
        8list
    )
)
Otherwise this should suffice --

Code: [Select]

(setq 8list
    (vl-remove-if-not
       '(lambda (object)
            (member
                (vla-get-objectname object)
               '("AcDbArc" "AcDbCircle")
            )
        )
        (vlax-invoke
            8symbobj
           'Explode
        )
    )
)
Warning -- I'm on my first coffee.

[MP]

Ack, should have had the entire first cup before responding.

I had assumed because of your 'dump' text that (vlax-invoke 8symbobj 'Explode) was returning a list, it doesn't, it returns a variant array. Hang on a second ..

[MP]

Talking to myself ...

DUH ME, just noticed you're employing vlax-invoke, rather than vlax-invoke-method. In that case it will return a list rather than a variant array, and my first post should work.

All I ask is that all the beans that gave up their life for my coffee today have the highest amount of caffeine, is that too much too ask?

 

[Fatty]

Talking to myself ...

DUH ME, just noticed you're employing vlax-invoke, rather than vlax-invoke-method. In that case it will return a list rather than a variant array, and my first post should work.

All I ask is that all the beans that gave up their life for my coffee today have the highest amount of caffeine, is that too much too ask?

 

Hi MP

Sorry I don't know your real name...

I think better yet you will drink beer instead coffee...

This likes me more:

Code: [Select]

(vl-member-if (function (lambda (x)
  (wcmatch (vla-get-objectname x)
  "AcDbArc,AcDbCircle")))
  (vlax-invoke (vlax-ename->vla-object (car (entsel))) 'Explode))

Regards,

Fatty

[MP]

Michael's the name, insomnia's the game.

Yeah, that would work too.

Cats, and the many ways to skin 'em.

REOW!

[Fatty]

Michael's the name, insomnia's the game.

Yeah, that would work too.

Cats, and the many ways to skin 'em.

REOW!

Michael, thanks

They are say in Russia no difference: across or along

Oleg

[MP]

Glad to make your acquaintance sir Oleg.

[Fatty]

Glad to make your acquaintance sir Oleg.

If I will be speak frankly, then I surmised, who you there is personally,
but I not was confident accurately of that.
Now I can say that you are an idol #1 for me and many other users
I do not know the reasons, which forced you not to appear at other forum (discussion.group) but this there is a large loss for them...

I remove my hat into the sign of respect for you
(Sorry for my bear English)

Fatty

[MP]

Whoa!

I don't deserve this praise, but I'm going to cherish it no less!

Thank you sir, you didn't need to say that -- you are obviously a man of great generousity, nothwithstanding your ability to quickly disect a problem and formulate an efficient and elegant solution.

Post.BookMarkNow ;

 

[Fatty]

Whoa!

I don't deserve this praise, but I'm going to cherish it no less!

Thank you sir, you didn't need to say that -- you are obviously a man of great generousity, nothwithstanding your ability to quickly disect a problem and formulate an efficient and elegant solution.

Post.BookMarkNow ;

 

I'm simple ex-worker and I know only simple words

I said only truth and nothing besides the truth...

I will memorize this day

Thanks Michael

[hmspe]

Thanks, guys.

Martin

[MP]

I will memorize this day

As will I, be assured! Thank you Oleg.

[Fatty]

I will memorize this day

As will I, be assured! Thank you Oleg.

Such difficult talking pulls my thick skin therefore today I will

make an escape from here

Regards

Oleg

[hyposmurf]

Now I can say that you are an idol #1 for me and many other users

Fatty

I'd second that, you come up with some great code, strive to help other members so much with their requests and at the same time its all done in a polite manner, makes you one cool bloke.

[CAB]

Martin,

If you have not already you may want to look into the clipit.lsp in the expresstools directory.

Oleg,
It sure is a privilege to have Micheal here and I learn from every post.

aka ab2draft

[Fatty]

Martin,

If you have not already you may want to look into the clipit.lsp in the expresstools directory.

Oleg,
It sure is a privilege to have Micheal here and I learn from every post.

aka ab2draft

Absolutely agree with you, CAB

Anyway all forums likes to me and on all of these forums many worthy and respected programmers

I don't remember who from the great people were said the following:
We will see further, because we are stands on the shoulders of our teachers
I know that pearls it falls not in each cockleshell

Oleg

[MP]

I say this with absolute sincerity --

In my career thus far I learned the most from a former boss named Ian -- more times than I can count he put me in positions where I had to become an expert overnight (I didn't even want to learn lisp -- I thought it goofy, clunky), the value of high intensity self directed study, that I had to be bold, even brazen about my skills or no one would take me seriously and that ultimately, I could make three times as much money by working for someone else.

As for these forums, I can honestly say the most learning occurs when you attempt to share the little bit of skill you have in a way that's meaningful to others. Want to learn? Try to teach. Unexpected side effect: It's plain fun and rewarding in a way I can't quite describe, but I love it. I wish I could do it full time and still afford to buy guitar toys and support my wife.

[MP]

I'd second that, you come up with some great code, strive to help other members so much with their requests and at the same time its all done in a polite manner, makes you one cool bloke.

Oleg, It sure is a privilege to have Micheal here and I learn from every post.

Man, thank you so much guys. One day I will be worthy praise like this. The kindnesses and generosity you guys shower upon me pushes me to try to attain that goal sooner, rather than later.

Thanks again.

<nodding.gif>