CAD内外螺纹的3维制图的应用程序.docVIP

;------------------------------------------------------------------- ; THREAD.LSP Creates 3D solid (ACIS) threads. 01/9/1999 ; ; Corrected ; ; written by: Robbert Teggelove ; ;------------------------------------------------------------------- ; ; This is a way to make 3D solid external threads in ; AutoCAD R13 and R14. ; You can make threads according to: ; - ISO 228 (equal to DIN 228 and NEN 176) ; - Gas thread straight inside thread only, ISO 7-1 (equal to DIN 2999 and NEN 3258) ; - Metric inside and outside thread, NEN 81 and NEN 1870, geometrically 100% correct ; ; There is no error trapping or anything like that. ; ; The program works by creating a single thread ; and then arraying it out to the proper length. The threads are ; drawn a little longer and then sliced off to the correct length. ; This program only draws the thread, youre on your own drawing ; the rest of the screw or internal thread. ; ; Note, the threads created by this can make for some rather big files, ; so make sure your system is up to it. Also, it might take a while ; to union all of the single threads together so be patient. ; ;------------------------------------------------------------------- (defun myerror (s) (if (/= s function cancelled) (princ (strcat \nError: s))) (setvar cmdecho ocmd) (setvar osmode osm) (setq *error* olderr) (princ) ) (defun c:ISO228 (/ nom pitch length threadangle cpt inout minordiafactor nom1 nom2 size n s olderr) ;;;;(setq olderr *error* ;;;; *error* myerror) (setq osm (getvar osmode)) (setq ocmd (getvar cmdecho)) (setq minordiafactor 1.6666666667) (Princ \nThread according to DIN ISO 228, NEN 176) (initget 1 I E) (setq inout (getkword \n内螺纹al or External thread (I/E): )) (initget 1/16 1/8 1/4 3/8 1/2 5/8 3/4 7/8 1 1-1/8 1-1/4 1-1/2 1-3/4 2 2-1/4 2-1/2 2-3/4 3 3-1/2 4 4-1/2 5 5-1/2 6) (setq size (getkword \nNominal size, 1/16 to 6 (for example: 1/8 or 1-1/4): )) (se