topic autodim-dimangular-problem in Visual LISP, AutoLISP and General Customization Forum

autodim-dimangular-problem

marko_ribar — Sun, 26 May 2024 14:44:30 GMT

Hi all,

I have problem with "dimangular" auto dimensioning...

Have a look at picture...

I wrote "autodim.lsp" posted here : https://www.cadtutor.net/forum/files/file/54-autodimlsp/

and when I tried to apply it on closed straight-arced lwpolyline, dimangular almost finished correctly the task, but on one portion of arced segment it didn't measured angle bigged than 180 degree...

My question is, can this be fixed to work as desired... I'll attach picture and *.DWG... *.lsp can be downloaded from link I provided at cadtutor download section...

Thanks, M.R.

Re: autodim-dimangular-problem

marko_ribar — Sun, 26 May 2024 17:07:33 GMT

I haven't noticed, but on 2 places it didn't processed dimangular... I managed to add those manually, but now I have overlapping of dimradial with dimangular... That one with bigger angle than 180 degree I somehow manually managed to fix... So, all I can tell is that my code is buggy... Can someone see and try to fix lacks... I'll post here another picture and corresponding *.dwg...

Re: autodim-dimangular-problem

CodeDing — Sun, 26 May 2024 17:26:24 GMT

@marko_ribar ,

You need to change your method from...

(vla-adddimangular ...)

...to...

(vla-adddim3pointangular ...)

[you can keep your same input parameters]

It's a different method for adding the angular type of dimension.

Reference here:

https://help.autodesk.com/view/ACDLT/2025/ENU/?guid=GUID-16DBF5D3-5D7B-4302-9363-43827C9ACFDF

Best,

~DD

Re: autodim-dimangular-problem

CodeDing — Sun, 26 May 2024 17:35:33 GMT

Also,

When I run your code, my linear dims show up INSIDE the shape, where your show up outside. Not sure if that's worth looking into or not, but cool routine!

Re: autodim-dimangular-problem

CodeDing — Sun, 26 May 2024 17:42:16 GMT

@marko_ribar ,

To your Second issue, you need to add a dimangular dimension inside the "true" condition of your IF statement:

(if (< (distance c p1) (distance c (trans (vlax-curve-getclosestpointto lwi p1) 0 1))) (progn (vla-adddimarc spc (vlax-3d-point c) (vlax-3d-point p1) (vlax-3d-point p3) (vlax-3d-point (polar p2 (angle p2 c) d))) ;; vvv You are missing this line of code vvv (setq dimang (vla-adddim3pointangular spc (vlax-3d-point c) (vlax-3d-point p1) (vlax-3d-point p3) (vlax-3d-point (polar p2 (angle p2 c) (* 3.0 d))))) ;; ^^^ You are missing this line of code ^^^ (setq dimrad (vla-adddimradial spc (vlax-3d-point c) (vlax-3d-point pp) (* 2.0 d))) (vla-put-textposition dimrad (vlax-3d-point (polar pp (angle pp c) (* 2.0 d)))) ) (progn (vla-adddimarc spc (vlax-3d-point c) (vlax-3d-point p1) (vlax-3d-point p3) (vlax-3d-point (polar p2 (angle c p2) d))) (setq dimang (vla-adddim3pointangular spc (vlax-3d-point c) (vlax-3d-point p1) (vlax-3d-point p3) (vlax-3d-point (polar p2 (angle c p2) (* 3.0 d))))) (setq dimrad (vla-adddimradial spc (vlax-3d-point c) (vlax-3d-point pp) (* 5.0 d))) (vla-put-textposition dimrad (vlax-3d-point (polar pp (angle c pp) (* 5.0 d)))) ) )

Re: autodim-dimangular-problem

marko_ribar — Sun, 26 May 2024 18:25:13 GMT

I haven't tested it yet, but I believe you are right... So I copied code snippet in my routine and reuploaded it at cadtutor...