Topic: dxf code change?

[ronjonp]

I can use this filter get all closed polylines in Acad 2004 but it does not work in 2005?

Code: [Select]

(setq s1 (ssget "x"'((0 . "LWPOLYLINE")(70 . 1))))

What is going on?

Thanks,

Ron

[MP]

Plinegen is encoded to group 70 (bit 7, value = 128) so you might try --

Code: [Select]

(ssget "x"
   '(   (0 . "LWPOLYLINE")
        (-4 . "&")
        (70 . 1)
    )
)

[Kerry]

ronjonp,
These work for me in AC2005

Code: [Select]


(setq s1-closed (ssget "x"'((0 . "LWPOLYLINE")(70 . 1))))
(setq s1-notClosed (ssget "x"'((0 . "LWPOLYLINE")(70 . 0))))
(setq s1-either (ssget "x" '((0 . "LWPOLYLINE"))))

[ronjonp]

MP,

That worked thanks

Kerry,

Still a no go in 2005??


Ron

[MP]

Great Ron. To be clear though, it's not a 2004/2005 issue. It's just coincidental that you happen to be using 2005 AND the lwpolylines you're currently dealing with have plinegen set. IOW, it would hold the same for 2004.

Cheers and have a great weekend.

:)

[Kerry]

Code: [Select]

Plinegen is encoded to group 70 (bit 7, value = 128) so you might try --


Michael

Thanks for the info. .. Most critical ..
I've been blisfully ignorant ..

[ronjonp]

Thanks for the info...

Where I'm going with this is:

User selects closed polylines in a drawing.
routine goes through each closed pline
grabs area of pline
inserts text with area in center of bounding box of object

Here is where I'm at....

Code: [Select]

(defun c:mareas (/ ss p selset)
(setq p 0)
(princ "\n Select closed polyines:")
(setq ss (ssget '((0 . "LWPOLYLINE")(-4 . "&")(70 . 1))))
(setq selset (sslength ss))

(repeat selset
  (setq ent (ssname ss p))
  (setq p (+ p 1))
  (command ".area" "object" ent)
  (setq txt (rtos (getvar "area") 2 2))
  (command ".text" "j" "mc" "0,0" ".125" "0" txt)
  (setq p (+ p 1))
)
)

I really suck at this lisp stuff  

[Jeff_M]

Ron, when you get tired of beating yourself up on this, I re-posted earlier today over at the AUGI.com forums a lisp originally written by Luis Esquival and modified by me that will do more than what you want. It would be real simple to reduce it down to only work with closed plines.

I must leave right now so if you can't find it over there (search for user 'miff') just let me know and I will re-post it here tomorrow or late tonight.

[MP]

Ain't this place great!

theswamp.org rocks.

[JohnK]

*lmao!*

[Mark]

I still say let them fish once in a while...................

[MP]

Who needs to fish, the fish are jumpin' in the boats!

[Mark]

hehehe.............  

[CAB]

Plinegen is encoded to group 70 (bit 7, value = 128) so you might try --

Code: [Select]

(ssget "x"
   '(   (0 . "LWPOLYLINE")
        (-4 . "&")
        (70 . 1)
    )
)

MP let me ask about your code.
Isn't the "&" implied? The reason I ask as I though they were the same.

Code: [Select]

'((0 . "LWPOLYLINE")(-4 . "&")(70 . 1))
 '((0 . "LWPOLYLINE")(70 . 1))
 
 You method is easer to read, but is it different?

[MP]

The (-4 . "&")(70 . 1) filter will be true if bit 0 (value 1) is set (bitwise logical and), thus (in this case) will be true for 70 group values of 1 or 129 (1 + 128), which is what we want: retrieve closed lwpolylines with no regard for the plinegen status.

The (70 . 1) filter by its lonesome is absolute: be true only if the 70 group value equals 1, so it will only retrieve closed lwpolylines that do not have plinegen set.

Does that clear it up?

:)