Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 10/11/2024 in all areas

  1. Another coming soon ChristmasTree4.lsp
    3 points
  2. Its a sleigh flying around it (I don't have that either but.. suspect it looks pretty good)
    1 point
  3. Happy new year my friends. Can someone help me by modifying this lisp, this code inserts a leader in one selected object and return the layer name. It would be nice this lisp could work on multiple objects at the same time, i don't mind if the leaders with the layer name are inserted on top of each, the main objective is to make a selection window and not have to pick one single object. Many Thanks MLabel.lsp
    1 point
  4. Ok, Steven. Just for you: I will try to redraw that mouse with higher precision. Sometime during the next week, probable.
    1 point
  5. Halloween is next holiday.
    1 point
  6. It's available in the first post.
    1 point
  7. So we get from cheese to Christmas. What next? How about changing that Lisp to put on the tree some pieces of chees instead of globes
    1 point
  8. Just do UCS OR, set a point as new 0,0 then I would do UCS S "MYUCS" then you can switch between your UCS and World, UCS W. Not sure how your doing the leaders, the X & Y value.
    1 point
  9. Try this written like 30 years ago. ; Fillets multi lines in one go ;By Alan H (defun AH:Fmulti ( / ss fpts num num2 x y) (alert "pick outside-inside-outside") (setq fpts '()) (setq fpts (cons (getpoint "Pick outside")fpts)) (setq fpts (cons (getpoint "Pick inside") fpts)) (setq fpts (cons (getpoint "Pick outside") fpts)) (setq ss (ssget "F" fpts (list (cons 0 "LINE")))) (setq num (sslength ss)) (setq num2 (/ num 2.0)) (if (= (- (fix num2) num2) 0.5) (progn (Alert "you have an odd number of lines please check") (exit) ) ) (setq x 0) (setq y (- num 1)) (setvar "filletrad" 0.0) (repeat (fix num2) ; not a real (setq obj1 (ssname ss x)) (setq obj2 (ssname ss y)) (command "fillet" obj1 obj2) (setq x (+ x 1)) (setq y (- y 1)) ) ) ; defun (AH:fmulti)
    1 point
  10. https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/fillet-multiple-polyline-all-at-once-by-lisp/td-p/6473119 Set the Fillet Radius to 0 Newer AutoCAD can use Multiple option. https://www.autodesk.com/support/technical/article/caas/sfdcarticles/sfdcarticles/FILLET-and-CHAMFER-multiple-sets-of-lines.html Maybe something here works for you.
    1 point
×
×
  • Create New...