Hi guys!
Can you please help with a small issue?
I'm in need of a chamfer that makes the below shape (green line). Do you know if AutoCAD can do this or is there any free routine for this? Basically, except the chamfer distances there should be an additional question for the user to insert the "X" values.
Thanks!
That may be possible, but questions arise:
Always between things at right angles as in your image?
If not, should the "short legs" be perpendicular to the original edges [left below], or each parallel to the other edge [right]? Or something else?
Applicable to Lines only, or to adjacent line segments of a Polyline? Anything else?
Regards @SilentStrike24
Maybe this code helps something. The lines or polylines must be individual, enter appropriate geometric values within the permissible limits.
(defun c:chd (/ s s1 s2 pins cc pc1 pc1b pc2 pc2b pc1v pc2v x)
(setq
spm (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))
)
(setq dc (getreal "\nEnter Chamfer distance value: ")
x (getreal "\nEnter distance X: ")
)
(setq s (ssget '((0 . "*line"))))
(setq s1 (vlax-ename->vla-object (ssname s 0))
s2 (vlax-ename->vla-object (ssname s 1))
)
(setq pins (vla-intersectwith s1 s2 acextendnone))
(setq cc (vla-addcircle spm
pins
dc
)
)
(setq pc1 (vla-intersectwith cc s1 acextendnone)
pc1b (vlax-safearray->list (vlax-variant-value pc1))
)
(setq pc2 (vla-intersectwith cc s2 acextendnone)
pc2b (vlax-safearray->list (vlax-variant-value pc2))
)
(vla-erase cc)
(setq l1(vla-addline spm pc1 (setq pc1v (vlax-3d-point (polar pc1b pi x))))
l2(vla-addline spm
pc2
(setq pc2v (vlax-3d-point (polar pc2b (/ (* 3 pi) 2) x)))
)
l3(vla-addline spm pc1v pc2v))
(Foreach x (list l1 l2 l3)
(vla-put-color x 3))
)
Carlos Calderon G
>Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Thanks for replying @calderg1000!
Code looks ok, it "asks" the right questions, but there's an error as per below screenshot:
"error: no function definition: VLAX-ENAME->VLA-OBJECT"
Are you saying that CHAMFER doesn't trim the corners, and you are trying to make a routine that does?
If that's the issue, you probably just have the TRIMMODE System Variable set to 0, when it should be set to 1. Then ordinary CHAMFER will trim the corners.
If that's not the issue, explain in more detail. The code is hard to test, because it needs a lot of fixing [is it an AI effort? ChatGPT, for example, is notoriously bad at AutoLisp, so far]. But I notice a couple of things to start with:
The Chamfer distances should not be in a list. Do this instead:
(command "_.chamfer" "_distance" dc dc)
which in an AutoLisp (command) function concludes the command, so you need to start it again:
(command
"_.chamfer" "_distance" dc dc
"_.chamfer" s1 s2
)
But s1 and s2 there require just entity names, not VLA objects, and the same is true for some later usages. So you may need to store them in both forms under different variable names.
The TRIM commands near the end should be using 'line' as the first selection [cutting boundary] and 's1'/'s2' as the second, but that's going to need to be a location, not just the object, so it knows which part to Trim off. And they could be in one TRIM command, and they need to conclude it -- all signs of ChatGPT's ignorance of the details.
But all that may be irrelevant, if the only issue is the TRIMMODE setting.
