Código fuente del subprograma de recompensa
(Tuxing1()
(setq Rd (getdist "\n R=:"))
(setq Rx ( getdist "\n r =:"))
(setq p0 (getPoint "\nIngrese el centro del círculo"))
(setq p 1(list(car P0)(+(+ ( cadr P0)Rd)5)))
(setq p2(lista(-(--(car p0) Rd) 5) (cadr p0)))
(setq p3 (lista(car p0) (- (- (cadr p0) Rd) 5)))
(setq p4 (lista(+ (+(car p0) Rd) 5)(car p0)) )
(Línea de comando " p1 p3 " ")
(Línea de comando " p2 p4 " ")
(Comando "círculo" p0 Rd)
(Comando "círculo" P0 RX)
)
(2)
(defun c:tuxing2()
(setq Rd (getdist "\n R=:"))
(setq Rx (getdist "\n r=:"))
(setq p0 (getPoint "\ nInput el centro del círculo"))
(setq a 1(list(+(car P0)(*(cos(/pi 4))Rx))(+(cadr P0)(*(cos (/ pi 4))Rx)))
(setq a2 (list(-(car P0)(*(cos(/pi 4))Rx))(cadr a 1)))
(setq a3(lista(coche a2)(-(cadr P0)(*(cos(/pi 4))Rx))))
(setq a4(lista(coche a1 ) ( cadr a3)))
(setq b 1(list(+(car P0)(*(cos(/pi 4))Rd))(+(cadr P0)(*(cos( /pi 4))Rd)))
(setq b2 (list(-(car P0)(*(cos(/pi 4))Rd))(cadr b 1)))
(setq B3(lista(coche B2)(-(cadr P0)(*(cos(/pi 4))Rd))))
(setq b4(lista(coche b1) (cadr b3)))
(Comando "línea" a1 a2 a3 a4 a1 " ")
(Comando línea " b1 b2 b3 b4 b1 " ")
(Comando "círculo" p0 Rd)
(Comando "círculo" P0 RX)
)
(3)
(Feng alemán c:tux 3()
(setq r (getdist "\n r=:"))
(setq p0 (getPoint "\nIngrese el centro del círculo" ))
(setq p1(lista(-(coche p0) (* r 2))(coche p0)))
setq p2(lista(+(coche p0) ( * r 2)) (coche p0))
((Comando "círculo" p0r)
(Comando "círculo" p1 r)
(Comando " círculo" p2 r)
)
(4)
(Tefu c:tuxing4()
(setq r (getdist " \n r=: "))
(setq p0 (getPoint "\n
Introduce el centro del círculo"))
(setq a 1(list(+(car P0)(*(cos(/pi 4))r))(+(cadr P0)(*( cos(/pi 4))r)))
(setq a2 (list(-(car P0)(*(cos(/pi 4))r)(cadr a 1)))
(setq a3(lista(coche a2)(-(cadr P0)(*(cos(/pi 4))r))))
(setq a4(lista(coche a1 ) (cadr a3 )))
(Comando "línea" a1 a2 a3 a4 a1 " ")
(Comando "círculo" p0 r)
)
Vale, pruébalo