+ Reply to Thread
Page 1 of 5 1 2 3 ... LastLast
Results 1 to 10 of 48

Thread: Mobius Strip?

  1. #1
    dangermouse
    Guest

    Default Mobius Strip?

    Hi everyboby,
    This is purely a sitting infront of autocad with nothing better to do question,is it possible to draw a "MOBIUS STRIP" with autocad.
    it would be cool to do, have fun trying its baffled me, but then again thats not hard .


    always smiling dangermouse

  2. #2
    Super Moderator fuccaro's Avatar
    Using
    AutoCAD 2006
    Join Date
    Nov 2002
    Location
    Romania, Marosvasarhely
    Posts
    3,543

    Default interesting question!

    Code:
    ;        MOEBIUS SURFACE   
    ;      mfuccaro@hotmail.com
    ;;;;;;;;;;;;- 21.05.2003 -;
    (defun c:mb()
      (setq xmax 200 ymax 11;you may change here the dimensions
        x 0 rad2 (/ xmax (* 2 PI))
        save (list (getvar "osmode") (getvar "cmdecho")))
      (setvar "cmdecho" 0)
      (setvar "osmode" 0)
      (command "3dmesh" (1+ xmax) ymax)
      (repeat (1+ xmax)
        (setq y (- (/ ymax 2)))
        (repeat ymax
          (setq ang1 (/ (* x PI) xmax)     ;twist along OY
            x1 x
            y1 (* y (cos ang1))
            z1 (* y (sin ang1)))
          (setq ang2 (/ (* x1 2 PI) xmax)  ;bend on OZ
            x2 (* rad2 (sin ang2))
            y2 y1
            z2 (* (+ rad2 z1) (cos ang2)))
          (command (list x2 y2 z2))
          (setq y (1+ y)))
        (setq x (1+ x)))
      (command "vpoint" (list 1 1 1))
      (setvar "osmode" (car save))
      (setvar "cmdecho" (cadr save))
      (princ)
      )
    You may change the xmax and ymax -with Notepad or with any other text editor- but keep the ymax impair.

    *** editing ***
    As I mentioned before (read bellow) the code must be cleaned before you can use it. Here it goes:
    Code:
    ;        MOBIUS SURFACE   
    ;      mfuccaro@hotmail.com
    ;;;;;;;;;;;;- 21.05.2003 -;
    (defun c:mb()
      (setq xmax 200 ymax 11;you may change here the dimensions
        x 0 rad2 (/ xmax (* 2 PI))
        save (list (getvar "osmode") (getvar "cmdecho")))
      (setvar "cmdecho" 0)
      (setvar "osmode" 0)
      (command "3dmesh" (1+ xmax) ymax)
      (repeat (1+ xmax)
        (setq y (- (/ ymax 2)))
        (repeat ymax
          (setq ang1 (/ (* x PI) xmax)     ;twist along OY
            x1 x
            y1 (* y (cos ang1))
            z1 (* y (sin ang1)))
          (setq ang2 (/ (* x1 2 PI) xmax)  ;bend on OZ
            x2 (* rad2 (sin ang2))
            y2 y1
            z2 (* (+ rad2 z1) (cos ang2)))
          (command (list x2 y2 z2))
          (setq y (1+ y)))
        (setq x (1+ x)))
      (command "vpoint" (list 1 1 1))
      (setvar "osmode" (car save))
      (setvar "cmdecho" (cadr save))
      (princ)
      )
    Last edited by fuccaro; 29th Nov 2011 at 09:21 pm. Reason: cleaning the character coding error
    It's nice to be nice, but sometimes is nicer to be evil!.
    Tip: Please do not PM or email me with CAD questions - use the forums, you'll get an answer sooner.

  3. #3
    dangermouse
    Guest

    Default MOBIUS STRIP

    Hi,
    absolutly superb, thank you very much indeed.

    always smiling dangermouse

  4. #4
    Super Moderator fuccaro's Avatar
    Using
    AutoCAD 2006
    Join Date
    Nov 2002
    Location
    Romania, Marosvasarhely
    Posts
    3,543

    Default

    And here is an image:

    It's nice to be nice, but sometimes is nicer to be evil!.
    Tip: Please do not PM or email me with CAD questions - use the forums, you'll get an answer sooner.

  5. #5
    Administrator CADTutor's Avatar
    Computer Details
    CADTutor's Computer Details
    Operating System:
    Windows 7 Home Premium 64bit
    Motherboard:
    Asus P7P55D-E PRO
    CPU:
    Intel Core i7-860
    RAM:
    4GB PC3-12800 C8 Corsair Dominator
    Graphics:
    NVIDIA Quadro FX 1800 768 MB
    Primary Storage:
    Intel X25-M SSD 160GB
    Secondary Storage:
    Samsung Spinpoint 320GB
    Monitor:
    BenQ FP241W 24" Wide
    Discipline
    Education
    CADTutor's Discipline Details
    Occupation
    Senior Lecturer (Digital Design), Landscape Architect & Web Designer
    Discipline
    Education
    Using
    AutoCAD 2015
    Join Date
    Aug 2002
    Location
    Hampshire, UK
    Posts
    3,685

    Default

    Fantastic! Is there no end to this mans talent?
    Tip: Please do not PM or email me with CAD questions - use the forums, you'll get an answer sooner.
    AutoCAD Tutorials | How to add images to your posts | How to register successfully | Forum FAQ

  6. #6
    Super Moderator fuccaro's Avatar
    Using
    AutoCAD 2006
    Join Date
    Nov 2002
    Location
    Romania, Marosvasarhely
    Posts
    3,543

    Default

    Thank you CADTutor! As always I feel good reading your appreciation. What did you find “fantastic” -the lisp or the image?
    The routine is not hard to understand -just a bit of math, especially trigonometry. About 30% of the program lines are for save and restore settings, comments and so. The point is: even a very short program can do the task, for the AutoCAD/AutoLisp it is almost a trivial one.
    About the image: The file-size is a bit over the 50k limit you set but as I know I am the first one who published animated images in the Forum. I will not abuse by this in the future. I created some screen-captures viewing the surface from different angles, I edited the images and I have put them together.
    It's nice to be nice, but sometimes is nicer to be evil!.
    Tip: Please do not PM or email me with CAD questions - use the forums, you'll get an answer sooner.

  7. #7
    Administrator CADTutor's Avatar
    Computer Details
    CADTutor's Computer Details
    Operating System:
    Windows 7 Home Premium 64bit
    Motherboard:
    Asus P7P55D-E PRO
    CPU:
    Intel Core i7-860
    RAM:
    4GB PC3-12800 C8 Corsair Dominator
    Graphics:
    NVIDIA Quadro FX 1800 768 MB
    Primary Storage:
    Intel X25-M SSD 160GB
    Secondary Storage:
    Samsung Spinpoint 320GB
    Monitor:
    BenQ FP241W 24" Wide
    Discipline
    Education
    CADTutor's Discipline Details
    Occupation
    Senior Lecturer (Digital Design), Landscape Architect & Web Designer
    Discipline
    Education
    Using
    AutoCAD 2015
    Join Date
    Aug 2002
    Location
    Hampshire, UK
    Posts
    3,685

    Default

    What is most fantastic is the through response to the request. I must admit that my first reaction was, "Mobius Strip in AutoCAD? Don't even go there!" Once again, your rather more pragmatic approach wins the day.
    Tip: Please do not PM or email me with CAD questions - use the forums, you'll get an answer sooner.
    AutoCAD Tutorials | How to add images to your posts | How to register successfully | Forum FAQ

  8. #8
    dangermouse
    Guest

    Default MOBIUS STRIP

    Hi,

    The mobius strip question was more of a challenge for the "BRAINS" and for mear mortals like me to gaze in wonder at the results.I must find out where they hand out thease brain things.joking aside i think the way you take a problem and find a solution is great.are there seperate courses for learning lisp routines or is it just a case of knowing computer programming.

    always smiling dangermouse.

    watch this space for the next challenge.

  9. #9
    Super Member Mr T's Avatar
    Using
    AutoCAD 2007
    Join Date
    Nov 2002
    Location
    Loch Oich SCOTLAND...
    Posts
    1,641

    Default

    Looks like a strip for about 2/3s then a twisted RULESURF ?????

    Nick
    http://www.flickr.com/photos/80049703@N00/ http://mtbnick.fotopic.net/
    http://s240.photobucket.com/albums/ff241/dyNick_Scots/
    http://designgraphicsshowcase.blogspot.com/

    High School Classroom - 21 AutoCAD 2007, Inventor 11, COREL Draw & Paint 11. Very Unreliable Network.

    Home - AMD 2.1GHZ - 512Ram, 64 Video,
    Laptop Inventor 7, Autocad 2004, Corel 11

  10. #10
    Super Moderator fuccaro's Avatar
    Using
    AutoCAD 2006
    Join Date
    Nov 2002
    Location
    Romania, Marosvasarhely
    Posts
    3,543

    Default

    Registered forum members do not see this ad.

    Nick
    The dimensions are not important. If the Mobius strip is not a commonly used concept: it looks like a ribbon twisted first around its longitudinal axis and than the ends are joined together.
    Show us your way to draw the Mobius strip. It will be not the first when you make just with AutoCAD things I created with Lisp.
    It's nice to be nice, but sometimes is nicer to be evil!.
    Tip: Please do not PM or email me with CAD questions - use the forums, you'll get an answer sooner.

Similar Threads

  1. Mobius Strip Solid
    By Moesian in forum AutoCAD 3D Modelling & Rendering
    Replies: 12
    Last Post: 7th Jun 2008, 03:39 pm
  2. mobius strip/ ellipse plan
    By fightchrisback in forum AutoLISP, Visual LISP & DCL
    Replies: 10
    Last Post: 13th Nov 2006, 09:25 pm
  3. strip light
    By lukas in forum AutoCAD 3D Modelling & Rendering
    Replies: 1
    Last Post: 10th Dec 2005, 08:02 pm
  4. want to creat helical strip
    By deepak1uw in forum AutoCAD General
    Replies: 1
    Last Post: 9th Nov 2005, 05:46 pm

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts