Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 06/21/2025 in all areas

  1. Why not just get AutoCAD Mechanical? It is a FREE specialized toolset.
    1 point
  2. What do you mean by "rotate the object correctly"? You could use the 3D ROTATE command that allows the user to rotate objects around a defined axis in 3D space. Users can specify an axis by selecting two points, using an existing as an axis, or using the X, Y, and Z axes. You can also specify the angle of rotation. Try all methods and choose the one that you feel works best for you. As to your original question (four posts above this one) regarding the P-F instructions the angles are X, Y and Z not X, Y, and X.
    1 point
  3. @Steven P just a suggestion, take the circle and use it via polygon to select all objects within, CP, then copy the objects to clipboard, use bedit, paste objects use Extrim or cookiecutter to trim to circle. May need a second select circle in bedit ,save block. Can then insert anywhere. I just did manually and was reasonably quick. Will see if can find time to do it as lisp.
    1 point
  4. Not lisp, One approach would be to use a point monitor https://www.cadtutor.net/forum/topic/98349-use-a-point-monitor-to-add-items-to-the-hover-tooltip/ A draw jig might be also work depending on the context.
    1 point
  5. This might be a starting point https://www.lee-mac.com/grtext.html combine BIGAL and demo one?
    1 point
  6. I guess using GRREAD to pick a point in real time and behind the scenes do a search box looking for text and in particular a match say "ABC" in "ABCDEFGH" if yes then zoom in on that text. I am not good at GRREAD code so some one else may be able to help. Search box.part based on a pick point. (setq off 18) ; needs to be changed to suit a dwg. (while (setq pt (getpoint "\nPick point ")) (setq pt1 (polar pt (* 0.25 pi) off)) (setq pt2 (polar pt (* 0.75 pi) off)) (setq pt3(polar pt (* 1.25 pi) off)) (setq pt4 (polar pt (* 1.75 pi) off)) (setq pts (list pt1 pt2 pt3 pt4 pt1)) (setq ss (ssget "CP" pts '((0 . "TEXT")))) (if (= ss nil) (princ "\n nothing found ") (princ (strcat "\n" (cdr (assoc 1 (entget (ssname ss 0)))) " found")) ) )
    1 point
  7. My To do list is getting bigger, as I said before there are 3 choices a 45 line, a got to vertice or got to next segment. Will try to find some time look at image May 22, shows 2 possible solutions.
    1 point
×
×
  • Create New...