(defun c:rhomb ( / *error* rec recx gr p a b p1 p2 p3 p4 k )
(vl-load-com)
(defun *error* ( m )
(if m
(prompt m)
)
(princ)
)
(entmake
(list
(cons 0 "CIRCLE")
(list 10 0.0 0.0 0.0)
(cons 40 1.0)
)
)
(setq rec
(entmakex
(list
(cons 0 "LWPOLYLINE")
(cons 100 "AcDbEntity")
(cons 100 "AcDbPolyline")
(cons 90 4)
(cons 70 (1+ (* 128 (getvar 'plinegen))))
(cons 38 0.0)
(list 10 0.0 0.0)
(list 10 1.0 0.0)
(list 10 1.0 1.0)
(list 10 0.0 1.0)
(list 210 0.0 0.0 1.0)
)
)
)
(setq recx (entget rec))
(vla-zoomwindow (vlax-get-acad-object) (vlax-3d-point (list -2.0 -2.0)) (vlax-3d-point (list 2.0 2.0)))
(while (/= 3 (car (setq gr (grread t))))
(setq p (cadr gr))
(setq a (angle (list 0.0 0.0) p))
(setq aa (rem a (* 0.5 pi)))
(setq b (+ a (* 0.25 pi)))
(setq p1 (list 0.0 0.0))
(setq p3 (polar (list 0.0 0.0) b (+ (sqrt 2.0) (* (- 2.0 (sqrt 2.0)) (progn (if (> aa (* 0.25 pi)) (if (< (- (* 0.25 pi) (- aa (* 0.25 pi))) 0.0) (abs (- (* 0.25 pi) (- aa (* 0.25 pi)))) (- (* 0.25 pi) (- aa (* 0.25 pi)))) aa))))))
(setq p2 (polar (list (/ (car p3) 2.0) (/ (cadr p3) 2.0)) (- b (* 0.5 pi)) (- (/ (sqrt 2.0) 2.0) (* (/ (sqrt 2.0) 2.0) (progn (if (> aa (* 0.25 pi)) (if (< (- (* 0.25 pi) (- aa (* 0.25 pi))) 0.0) (abs (- (* 0.25 pi) (- aa (* 0.25 pi)))) (- (* 0.25 pi) (- aa (* 0.25 pi)))) aa))))))
(setq p4 (polar (list (/ (car p3) 2.0) (/ (cadr p3) 2.0)) (+ b (* 0.5 pi)) (- (/ (sqrt 2.0) 2.0) (* (/ (sqrt 2.0) 2.0) (progn (if (> aa (* 0.25 pi)) (if (< (- (* 0.25 pi) (- aa (* 0.25 pi))) 0.0) (abs (- (* 0.25 pi) (- aa (* 0.25 pi)))) (- (* 0.25 pi) (- aa (* 0.25 pi)))) aa))))))
(setq k nil)
(entupd (cdr (assoc -1 (entmod (setq recx (mapcar (function (lambda ( x ) (if (= (car x) 10) (progn (setq k (if (not k) 0 (1+ k))) (cons 10 (nth k (list p1 p2 p3 p4)))) x))) recx))))))
)
(*error* nil)
)
;;; Sta je starije, rhomb, square, rectangle ili jaje... Sunce ili svetionik, borac ili vekovnik...
;;; Pa naravno, odlucite sami, ali i pored toga postoje i others cudi...
;;; Sto se tice trojstva covek, pas, macka ili Bog, sin, znacka... Otkucaje povezuje i predskazuje godisnjak sveta svetova slave...
;;; E sad, ovo sa tornadima je egzibicija na ksi, pa posto je Bogu draza od psi, onda je i lambda sama kao fama, a gamma prazna kao tama...