• luser
  • Восстановленный участник
  • На форуме с 27 сентября 2006г.
  • Сообщений: 14
  • Спасибо: 0

Тема: 8(6)точек=3dsolid

Есть 8(6)точек, возможно ли построить (или модифицировать) 3dsolid в VLISP?

  • scj
  • Восстановленный участник
  • На форуме с 1 сентября 2006г.
  • Сообщений: 19
  • Спасибо: 0

Re: 8(6)точек=3dsolid

Да возможно. Можно построить такие 3DSOLIDs [rus]iz otdel'nyx tetraedrov. A tetraedr (4 tochki) delajut tak:
[/rus]

(defun tetra(pt1 pt2 pt3 pt4)
  (command "_box" (car bbox) (cadr bbox))
  (command "_slice" "_L" "" "_3P" pt1 pt2 pt3 pt4)
  (command "_slice" "_L" "" "_3P" pt2 pt3 pt4 pt1)
  (command "_slice" "_L" "" "_3P" pt3 pt4 pt1 pt2)
  (command "_slice" "_L" "" "_3P" pt4 pt1 pt2 pt3)
)
;-------------------------------------------------
(defun C:tetra1(/ p1 p2 p3 p4 pt1 pt2 pt3 pt4 pliste)
; scj.schulz, www.black-cad.de
; May 2006
(alert "To create a TETRAHEDRON -
 pick the 4 points.")
  (setq p1 (getpoint "\npick P1") p2 (getpoint "\npick P2")    
    p3 (getpoint "\npick P3") p4 (getpoint "\npick P4"))        
    
    
  (setq osmode_alt (getvar "osmode"))
  (command "_osmode" 0)
; Bounding box (thanks to Axel Zettler-Struwe)
  (setq pliste (list p2 p3 p4))
  (setq bbox (list (mapcar'(lambda(s)(apply'min(mapcar s pliste)))'(car cadr caddr))
           (mapcar'(lambda(s)(apply'max(mapcar s pliste)))'(car cadr caddr))
         )
  )
  (tetra p1 p2 p3 p4)
  (command "_osmode" osmode_alt)    
)

Много успехов
Jochen
www.black-cad.de

  • luser
  • Восстановленный участник
  • На форуме с 27 сентября 2006г.
  • Сообщений: 14
  • Спасибо: 0

Re: 8(6)точек=3dsolid

Спасибо Jochen!
Немного разовью тему.
Дано: ряд последовательных поперечных сечений (3dpline closed), возможно ли построить по ним
3dsolid (loft это делает неприемлимо)
Спасибо!

  • scj
  • Восстановленный участник
  • На форуме с 1 сентября 2006г.
  • Сообщений: 19
  • Спасибо: 0

Re: 8(6)точек=3dsolid

[rus]Po principu jeto vozmozhno (radio Erevan wink)
- no k sozhaleniju inogda [/rus]UNION [rus] javljaetsja prichinoj oshibok...
Pojetomu dumaju, chto [/rus]ACAD 007[rus] luchshe...
Privet [/rus]Jochen