Jump to content

Leaderboard

  1. ronjonp

    ronjonp

    Trusted Members


    • Points

      2

    • Content Count

      1,782


  2. Berzerker

    Berzerker

    Community Members


    • Points

      2

    • Content Count

      244


  3. f700es

    f700es

    Moderators


    • Points

      1

    • Content Count

      3,635


  4. nukecad

    nukecad

    Community Members


    • Points

      1

    • Content Count

      789



Popular Content

Showing content with the highest reputation on 04/21/2021 in all areas

  1. 1 point
    Tomorrow I will try it. Thank you so much for everything.
  2. 1 point
    Glad to help Here is a version to rotate all objects with a rotation property: (defun c:foo (/ a e o s) (if (and (setq e (car (entsel "\nPick something to match rotation: "))) (setq a (cdr (assoc 50 (entget e)))) (setq s (ssget ":L")) ) (foreach e (vl-remove-if 'listp (mapcar 'cadr (ssnamex s))) (if (vlax-property-available-p (setq o (vlax-ename->vla-object e)) 'rotation) (vla-put-rotation o a) ) ) ) (princ) )
  3. 1 point
    @ronjonp & @tombu many thanks to both of you and your valuable contributions ... both of your suggestions work perfectly ! thanks again
  4. 1 point
    Now I'll agree there might need to be some testing on ink and type of paper. My thought was ink costs more than paper.
  5. 1 point
    This has nothing to do with a higher power, but it will match the ANGLE of a picked block to a selection. (defun c:foo (/ a e s) (if (and (setq e (car (entsel "\nPick a block to match rotation: "))) (setq a (cdr (assoc 50 (entget e)))) (setq s (ssget ":L" '((0 . "INSERT")))) ) (foreach e (vl-remove-if 'listp (mapcar 'cadr (ssnamex s))) (vla-put-rotation (vlax-ename->vla-object e) a) ) ) (princ) )
  • Newsletter

    Want to keep up to date with all our latest news and information?
    Sign Up
×
×
  • Create New...