Flipping a line or curve label

Flipping a line or curve label

DWCouch123YGV8K
Explorer Explorer
506 Views
2 Replies
Message 1 of 3

Flipping a line or curve label

DWCouch123YGV8K
Explorer
Explorer

I am creating line and curve label in LISP.  I then need to flip  some of them.  I can't seem to get the "fliplabel" command to work.

 

(setq SelObj (nentsel "\nSelect Line or Arc to Label: "))

I've tried each of these option.
Option 1  (setq sellbl (cdr (assoc 330 (entget (car selOBJ)))))
Option 2  (setq sellbl (entget (car selOBJ)))
(command "labelflip" sellbl)

 

I previously used setting the label property 'flipped to -1 but I can't seem to get that working.

(setq lastlabel (vlax-ename->vla-object (entlast)))

(vlax-put-property lastlabel 'flipped -1)

 

Working in C3D 2021

It's been almost 10 years since I have been doing this kind of thing (LISP programming).  I have forgotten a lot.

0 Likes
Accepted solutions (1)
507 Views
2 Replies
Replies (2)
Message 2 of 3

Jeff_M
Consultant
Consultant
Accepted solution

Try this:

(vlax-put lastlabel 'flipped -1)

Jeff_M, also a frequent Swamper
EESignature
0 Likes
Message 3 of 3

DWCouch123YGV8K
Explorer
Explorer
I was sure I had tried that, but apparently not. It worked just fine.
Thank you Jeff.
0 Likes