Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defun c:masina()
- (setq ptaskas (getpoint "\nIveskite piesinio apatinio kairiojo kampo
- koordinates (x,y):") )
- (command "osnap" "off" )
- (setq ptx (car ptaskas) )
- (setq pty (cadr ptaskas) )
- (setq kt1 (list (+ ptx 0) (+ pty 0)))
- (setq kt2 (list (+ (car kt1) 20) (cadr kt1)))
- (setq kt3 (list (+ (car kt2) 5.8545) (+(cadr kt2) 13.8103)))
- (setq kt4 (list (+ (car kt3) 11.7089) (+(cadr kt3) -27.6207)))
- (setq kt5 (list (+ (car kt4) 11.7089) (+(cadr kt4) 27.6207)))
- (setq kt6 (list (+ (car kt5) 11.7089) (+(cadr kt5) -27.6207)))
- (setq kt7 (list (+ (car kt6) 11.7089) (+(cadr kt6) 27.6207)))
- (setq kt8 (list (+ (car kt7) 11.7089) (+(cadr kt7) -27.6207)))
- (setq kt9 (list (+ (car kt8) 5.8545) (+(cadr kt8) 13.8103)))
- (setq kt10 (list (+ (car kt9) 20) (cadr kt9)))
- (setq kt11 (list (+ (car kt10) 20) (cadr kt10)))
- (setq kt12 (list (+ (car kt11) 0) (-(cadr kt11)20)))
- (setq kt13 (list (+ (car kt12) 0) (-(cadr kt12)20)))
- (setq kt14 (list (+ (car kt11) 20) (cadr kt11)))
- (setq kt15 (list (+ (car kt14) 20) (cadr kt14)))
- (setq kt16 (list (+ (car kt15) 5.8545) (+(cadr kt15) 13.8103)))
- (setq kt17 (list (+ (car kt16) 11.7089) (-(cadr kt16) 27.6207)))
- (setq kt18 (list (+ (car kt17) 11.7089) (+(cadr kt17) 27.6207)))
- (setq kt19 (list (+ (car kt18) 11.7089) (-(cadr kt18) 27.6207)))
- (setq kt20 (list (+ (car kt19) 11.7089) (+(cadr kt19) 27.6207)))
- (setq kt21 (list (+ (car kt20) 11.7089) (-(cadr kt20) 27.6207)))
- (setq kt22 (list (+ (car kt21) 5.8545) (+(cadr kt21) 13.8103)))
- (setq kt23 (list (+ (car kt22) 20) (cadr kt22)))
- (setq kt24 (list (+ (car kt11) 0) (+(cadr kt11)5)))
- (setq kt25 (list (+ (car kt24) 0) (+(cadr kt24)5)))
- (setq kt26 (list (+ (car kt24) 5) (+(cadr kt24)0)))
- (command "ARC" kt25 kt26 kt24)
- (command "CIRCLE" kt11 20 "")
- (command "LINE" kt1 kt2 kt3 kt4 kt5 kt6 kt7 kt8 kt9 kt10 "")
- (command "LINE" kt24 kt11 kt25"")
- (command "LINE" kt12 kt13 "")
- (command "LINE" kt14 kt15 kt16 kt17 kt18 kt19 kt20 kt21 kt22 kt23"")
- )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement