Leaderboard

I just find out that Inventor has a module for dynamic simulation. I built a simple mechanism and I started to learn by playing. I’ve got the some images like the ones I posted here before, showing the trace of the pen on the central disc. No Lisp or programming of any kind! I wish I knew this two years ago. However, I remember it was a pleasure to write those Lisp programs. Also I enjoyed discussing about it here in the forum. So, to make the short story even shorter: see here some screen captures.

You get more support here by having a go than a few here who just keep asking for others to do the work. This may be of help was a response to your prior questions forgot to hit Submit button. 1 check that radius is not more than the parallel width so stop. Sometimes when it gives a zero line length can cause problems. 2 You can draw arcs as part of a pline may be a better way to go, This is an example of a double arc arrangement in a pline. (command "pLINE" p2 "w" 0.0 0.0) (setq p3 (polar p2 ang1 d2)) (setq p4 (polar p3 ang1 d2)) (setq p5 (polar (polar p3 ang1 20)(+ ang1 4.71239) d3)) (setq p6 (polar p5 ang1 d2 )) (setq p7 (polar p6 ang1 d2)) (setq p8 (polar p4 ang1 d4)) ; now put pts 3,4,5,6 (command "a" "ce" p3 "a" "-180" "l" p5 "a" "ce" p6 p7 "l" p8) (command "")

@hanhphuc: You have: Td=2*R*sin(A/2) I would say this should be: Td=R*tan(A/2)

Quick test and setting the DIMBLK variable as pointed out by @eldon imports the appropriate block. Maybe something like this: (defun _importarrowheadblock (n) (or (tblobjname "block" n) (= 'str (type (vl-catch-all-apply 'setvar (list "DIMBLK" n))))) ) (if (_importarrowheadblock "_BOXFILLED") (vla-put-arrowsymbol newleaderstyle "_BOXFILLED") )

Set the layer before Mview the set back use (setvar 'clayer "mylayer")