Topic: rectang angle..

[Andrea]

Hi,

I'm trying to have the orientation angle of a rectang.

any one know the dxf code ? or have another suggestion ?

thanks.

[daron]

Andrea, a rectangle isn't a defined object, it's a closed polyline. What you might try is getting the angle of the first and second points. You might look into curve parameters to get this or just the first and second group code 10.

[Andrea]

ok but how to have the other group 10..?

i have this code..

  (setq ent_sel1 (entsel "Select text to edit..."))
  (if (= ent_sel1 nil)(exit))  
  (setq ent_sel2 (entget (car ent_sel1)))
  (setq spt_p10 (cdr (assoc 10 ent_sel2)))

[daron]

Once you have a list of the pline, will this help you? Replace (setq spt_p10 (cdr (assoc 10 ent_sel2))) with code below and see what you get.

Code: [Select]

(foreach item ent_sel2 (if (= (car item) 10) (setq 10list (append
10list (list (cdr item))))))
That should return to you a list of all coordinates in the pline. You should then be able to compare the first two items in the list using angle.

[Andrea]

thanks Daron,..that will help me.

in fact...i'm trying to get the angle of the selected line frome a closed polyline.

so with all the endpoints I can't have this because they show me the
first point to the last created point and some time the closed polyline is not a rectangle.

see ?

[daron]

Eh. You might have more trouble with my method than it might be worth if you want more than the angle of the first two points. To get better results, you'd want to look into vlax-curve parameters. There're lots of them, but they're worth learning.

[CAB]

Extending an example given by Jeff M. to get this.

Code: [Select]

 (setq pline (entsel))
  (setq pick (cadr pline))
  (setq plObj (vlax-ename->vla-object (car pline)))
  (setq pick2 (vlax-curve-getclosestpointto plobj pick))
  (setq param (vlax-curve-getparamatpoint plObj pick2))
  (setq p1 (vlax-curve-getpointatparam plObj (fix param)))
  (setq p2 (vlax-curve-getpointatparam plObj (fix (1+ param))))
  (princ (angle p1 p2))

[Andrea]

CAB.....exacly what i need..

but where did you found the "vlax-curve-getclosestpointto"  ?
I have made this...

   (setq sitem (entsel "\nSélectionnez votre bâtisse : ")
             p1 (osnap (cadr sitem) "_near"))

Code: [Select]



it work also.....but maybe is better your's...

thanks.

[CAB]

Here is the commented code because most of the vla stuff confuses me.

Code: [Select]

;;  CAB added to code & comments to code by Jeff M. to get the angle of the segment
(defun c:geta ()
  (setq pline (entsel))
  (setq pick (cadr pline))
  ;;  convert ename into a vla object, although this is not needed with the
  ;;  vlax-curve is in keeping with the other methods using vla objects
  (setq plObj (vlax-ename->vla-object (car pline)))
  ;; get a point exactly on the object as entsel may not return the exact point needed
  (setq pick2 (vlax-curve-getclosestpointto plobj pick))
  ;; get parameter, it is vertex # plus percent to next vertex, that ia mu understanding of it
  ;; so a point mid way between vertex 3 & 4 would have a parameter of 3.5
  (setq param (vlax-curve-getparamatpoint plObj pick2))
  ;; get point at vertex, (fix 3.5) = 3
  (setq p1 (vlax-curve-getpointatparam plObj (fix param)))
  ; get point at next vertex, (fix (1+ 3.5)) = 4
  (setq p2 (vlax-curve-getpointatparam plObj (fix (1+ param))))
  ;;  I'm sure you figured this one out
  (princ (angle p1 p2))
  (princ)
)

To get information about commands available look at this picture of the VLIDE editor.
1. highlight the command or in this case part of the command
2. click on the apropos button to bring up the dialog box
3. Highlight the command you want info on
4. Click on the ? help button.

There you have it.

[daron]

Nice examples CAB. If you want to take fewer steps, place your cursor next to or highlight the function and hit help. You'll get the same results. The apropos is good to give more functions than are sometimes in the help files, though.

[Andrea]

CAB..

Your help is very appreciated.

thanks.

[Jeff_M]

Nice examples CAB. If you want to take fewer steps, place your cursor next to or highlight the function and hit help. You'll get the same results. The apropos is good to give more functions than are sometimes in the help files, though.

Daron, FWIW, back here in R2002 land the only way I can get the help to go to the desired function is through the apropos window. Pressing F1 while the function is highlighted in the editor merely brings up the general help.

[daron]

Thanks. I tend to forget that CAB's still in 2000 land.

[Andrea]

Hey,, By the way..

How can I post a screenshot like you did ?

 

[daron]

You see that little pulldown menu at the top right? Open that and select lily pond. When a new window opens up, you'll be prompted for username and password. It's the same as your account as a member of the swamp. Create a new folder called Andrea and in that folder upload your file. Then in the forums, call to it like [img ]path/of/file/here.jpg[/img ].

[CAB]

I think you want "Images" not Lilly Pond.
Lilly Pond is for storage requiring a password. The Image storage is for screen links & such.
So use the "Swamp links: pull down to get to Images. Create a new folder using your name.
Upload an image file, preferable a png or the smallest format you can.  When uploaded,
right click on the new file and 'Copy Link'. Then create your message and paste the link
between [img ] and [/img ].

[daron]

Oops. Silly me. Thanks CAB.

[Andrea]

just for testing...




heun !?   what i'm doing wrong ?

EDIT by MST
converted .bmp to .png and reinserted image

[CAB]

Looks like it should work.

[Andrea]

oh..i see..

thank you very much !
now i can explain better with image..

 

[Andrea]

Extending an example given by Jeff M. to get this.

Code: [Select]

 (setq pline (entsel))
  (setq pick (cadr pline))
  (setq plObj (vlax-ename->vla-object (car pline)))
  (setq pick2 (vlax-curve-getclosestpointto plobj pick))
  (setq param (vlax-curve-getparamatpoint plObj pick2))
  (setq p1 (vlax-curve-getpointatparam plObj (fix param)))
  (setq p2 (vlax-curve-getpointatparam plObj (fix (1+ param))))
  (princ (angle p1 p2))

CAB...your code working well...since re-installing AutoCAD 2005..

now, when using this..
(setq plObj (vlax-ename->vla-object (car pline)))

the conversion do not seem to work anymore..i got this error message.

Select object to offset: ; erreur: Le serveur ActiveX a renvoyé une erreur:
Erreur lors du chargement de la bibliothèque/DLL du type

(sorry cause we have all AutoCAD french here so i don'T know what is exactly the message in english)

do i need to load something before ? DLL ?

[Jeff_M]

Try issuing (vl-load-com)
If that works, add it to your acaddoc.lsp to ensure that it is always loaded.