Autolisp Code verbessern (Autocad)

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • Autolisp Code verbessern (Autocad)

    Quellcode

    1. (defun C:dreh(/ x)
    2. (setq time 40)
    3. (command "_UCS" "_w")
    4. (setq xm 1000.0)
    5. (setq ym 500.0)
    6. (command "_.rectang" "975,475" "1025,525")
    8. (setq coor (list
    9. (list 950.0 500.0 )
    10. (list 1050.0 500.0)
    11. (list 1050.0 550.0)
    12. (list 1000.0 550.0)
    13. (list 1000.0 450.0)
    14. (list 950.0 450.0 )
    15. (list 950.0 550.0 )
    16. (list 1050.0 550.0)
    17. (list 1050.0 450.0)
    18. (list 1000.0 450.0)
    19. )
    20. )
    21. (setvar "clayer" "2")
    22. ;;Kann man das besser machen??????
    23. (command "_.pline")
    24. (foreach x coor
    25. (command x)
    26. )
    27. (command "")
    28. (setvar "clayer" "0")
    30. (setq ed (entget(entlast))) ;; grab polyline
    32. (setvar "clayer" "1")
    33. (command "_.rectang" (list xm ym) (list (+ xm 50.0) (+ ym 50.0)) )
    34. (setq big (entget(entlast)))
    35. (setvar "clayer" "0")
    38. (setq winkel (/ (* 1.0 PI) 180.0) )
    39. (setq y 1)
    41. ;;jetzt wird einmal im Kreis rotiert
    43. (while (<= y 360)
    44. (progn
    45. (setq ed (rotate xm ym winkel ed))
    46. (setq big (rotate xm ym winkel big))
    48. (setq small_ed ed)
    49. (setq y (1+ y))
    50. ;(entmod ed)
    51. (command "_delay" time)
    52. )
    53. )
    54. )
    56. (defun rotate (x1 y1 angle1 object)
    57. (setq small_ed object)
    58. (while (/= (assoc 10 small_ed) nil)
    59. (progn
    60. (setq x (cdr(assoc 10 small_ed)))
    62. (setq object (subst (list 10 (+ (* (- (car x) x1) (cos angle1)) (* -1.0 (- (cadr x) y1) (sin angle1)) x1)
    63. (+ (* (- (car x) x1) (sin angle1)) (* (- (cadr x) y1) (cos angle1)) y1)
    64. )
    65. (assoc 10 small_ed )
    66. object ))
    67. (setq small_ed (cdr (member (assoc 10 small_ed) small_ed)) )
    68. )
    69. )
    70. (entmod object)
    71. )
    Alles anzeigen


    Kann mir vielleicht jemand sagen wie ich meine Code verbessern könnte. Ich selber finde ihn nicht besonders schön, weiß aber auch nicht wie ich ihn verbessern könnte.
    Lg Apfelstrudl

    Ps.: Der Code erzeugt genau das:
    [Blockierte Grafik: http://farm3.static.flickr.com/2484/3612225246_813c7f5a63_o.gif]

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von Apfelstrudl ()