Sabendo que tenho 5'', divide o valor ao meio 2,5.
Dividindo os 2.5 ao meio, tendo assim 1.25
Sabendo que metade de 1/4 é igual 0.25
Sabendo que quero criar 5 linhas que correspondem a quarto metades da medida.
Ao meter o meu offset 1.25 para obter o 1.75 fui fazendo experiencias de ir acrescentado sempre 0.25 + 0.25 até a medida bater mais ou menos com a do meu desenho e ter uma simetria.
experimentando 1.50 e o traço não ficar simétrico.
http://home.fa.ulisboa.pt/~20130346/pdv.lsp
(defun c:pdv ()
(setq p1 (getpoint " Marcar p1 no canto inferior direito do rectangulo: "))
(setq p2 (getpoint " Marcar p2 no canto inferior esquerdo do rectangulo: "))
(setq p3 (getpoint " Marcar p3 no canto superior direito do rectangulo: "))
(command "line" p1 p3 "")
(command "offset" (/ (distance p1 p2) 5) p1 p3 "")
(command "offset" (/ (distance p1 p2) 2.5) p1 p3 "")
(command "offset" (/ (distance p1 p2) 1.75) p1 p3 "")
(command "offset" (/ (distance p1 p2) 1.25) p1 p3 "")
)
