Prikazi cijelu temu 04.01.2011 13:08
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Ziva ograda
Geodetski prikaz zive ograde
PreuzmiIzvorni kôd (Lisp):
  1. *Ziva
  2. Ograda
  3. (command "Layer" "s" "Ograde" "")
  4. (setq pt1 (getpoint "Po
  5. etak linije: "))
  6. (setq pt2 (getpoint pt1 "Kraj linije: "))
  7. (setq ang (angle pt1 pt2))
  8. (setq pt3 (polar pt1 ang +10))
  9. (setq ang1 (+ ang 1.570796))
  10. (setq pt4 (polar pt3 ang1 +0.5))
  11. (setq duz1 (distance pt1 pt3))
  12. (setq duz (- (distance pt1 pt2) 20))
  13. (setq OSM (getvar "osmode"))
  14.  
  15. (command "LINE" pt1 pt2 "")
  16. (command "osmode" "0")
  17. (command "autosnap" 1)
  18. (command "circle" pt4 0.5)
  19. (while (< duz1 duz)
  20.   (setq pt3 (polar pt3 ang +10))
  21.   (setq pt4 (polar pt3 ang1 -0.5))
  22.   (setq duz1 (distance pt1 pt3))
  23.   (command "circle" pt4 0.5)
  24.  
  25.  
  26.   (setq pt3 (polar pt3 ang +10))
  27.   (setq pt4 (polar pt3 ang1 +0.5))
  28.   (setq duz1 (distance pt1 pt3))
  29.   (command "circle" pt4 0.5)
  30. )                                       ;While
  31.  
  32. (command "osmode" OSM)

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.