Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defun c:figura2()
- (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) 50) (cadr kt1)))
- (setq kt3 (list (- (car kt2) 0) (-(cadr kt2)20)))
- (setq kt4 (list (+ (car kt2) 0) (+(cadr kt2)20)))
- (setq kt5 (list (+ (car kt2) 20) (cadr kt2)))
- (setq kt6 (list (+ (car kt5) 0) (+(cadr kt5)10)))
- (setq kt7 (list (- (car kt6) 10) (+(cadr kt6)0)))
- (setq kt8 (list (+ (car kt6) 10) (+(cadr kt6)0)))
- (setq kt9 (list (+ (car kt5) 20) (cadr kt5)))
- (setq kt10 (list (- (car kt9) 0) (-(cadr kt9)20)))
- (setq kt11 (list (+ (car kt9) 0) (+(cadr kt9)20)))
- (setq kt12 (list (+ (car kt9) 50) (cadr kt9)))
- (setq kt13 (list (+ (car kt6) 0) (cadr kt6)))
- (setq kt14 (list (+ (car kt13) 0) (+(cadr kt9)20)))
- (setq kt15 (list (- (car kt14) 5) (+(cadr kt14)0)))
- (setq kt16 (list (+ (car kt15) 5) (-(cadr kt15)-12.1356)))
- (setq kt17 (list (+ (car kt16) 5) (+(cadr kt16)-12.1356)))
- (setq kt18 (list (- (car kt17) 5) (+(cadr kt17)0)))
- (setq kt19 (list (- (car kt16) 5) (-(cadr kt16)-12.1356)))
- (setq kt20 (list (+ (car kt19) 5) (+(cadr kt19)0)))
- (setq kt21 (list (+ (car kt20) 5) (+(cadr kt20)0)))
- (setq kt22 (list (- (car kt21) 5) (+(cadr kt21)-12.1356)))
- (setq kt23 (list (+ (car kt19) 5) (+(cadr kt19)0)))
- (setq kt24 (list (+ (car kt23) 0) (+(cadr kt23)15)))
- (setq kt25 (list (+ (car kt24) 0) (+(cadr kt24)30)))
- (setq kt26 (list (+ (car kt25) 0) (+(cadr kt25)0)))
- (setq kt27 (list (- (car kt26) 2.5) (-(cadr kt26)4.3301)))
- (setq kt28 (list (- (car kt27) 2.5) (-(cadr kt27)4.3301)))
- (setq kt29 (list (+ (car kt25) 0) (+(cadr kt25)0)))
- (setq kt30 (list (+ (car kt29) 2.5) (+(cadr kt29)4.3301)))
- (setq kt31 (list (+ (car kt30) 2.5) (+(cadr kt30)4.3301)))
- (setq kt32 (list (+ (car kt31) 2.5) (+(cadr kt31)4.3301)))
- (command "PLINE" kt31 "w" 5 0 kt32 "")
- (command "CIRCLE" kt25 30 "")
- (command "CIRCLE" kt25 5 "")
- (command "LINE" kt1 kt2 kt3 kt4"")
- (command "LINE" kt30 kt31"")
- (command "LINE" kt27 kt28"")
- (command"LINE" kt9 kt12"")
- (command "LINE" kt23 kt24"")
- (command "LINE" kt16 kt19 kt20 kt21 kt22"")
- (command "LINE" kt13 kt14 kt15 kt16 kt17 kt18"")
- (command "LINE" kt5 kt9 kt10 kt11"")
- (command "LINE" kt2 kt5 kt6 kt7 kt8"")
- )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement