24.08.2011 14:56    

TR-hathor
Merhaba çizim içerisindeki kapalı polyline çizimleri 3d face e çevirmek istiyorum. nasıl yapabilirim... sitede de arattırdım fakat tam tersi 3d yüzeyleri 2d polyline a çeviren lisp dışında yakın bişey bulamadım. yardımcı olursanız sevinirim. iyi günler herkese.

24.08.2011 20:20    

ehya
Kapalı bir polyline nesnesini 3dface yapmak mümkün değil. sebebi ise, 3dface nesneleri 4 köşeden oluşan bir nesnedir. ancak polyline nesnesinde ise nokta sayısının sınırı yoktur. böyle bir nesneyi 3dface nesnesine çevirmenin bir yolu yok.

25.08.2011 05:52    

TR-hathor
Hocam benimde polyline ların hepsi dikdörtgen yani dört köşe noktası var. 3d face komutuyla üzerlerinden elimle gidip çiziyorum. fakat çok sayıda bu birbirinden farklı ölçülerdeki dörtgenlerden bulunmakta çok çok var.... çok çok.

25.08.2011 07:01    

ProhibiT
Kod:

;;; Prepared by: M. Şahin Güvercin (ProhibiT) 25/08/2011
(defun c:pL2Face (/ pLns Nks L n PvT)
  (setvar "cmdecho" 0) (command "_.undo" "group")
  (setvar "modemacro" "www.autocadokulu.com")
  (princ "\nSelect PoLyLine(s) to be converted 3DFace: ")
  (setq pLns (ssget (list (cons 0 "LWPOLYLINE") (cons 90 4)))
        L (sslength pLns) n -1)
  (while (< (setq n (1+ n)) L)
    (setq PvT (entget (ssname pLns n)) Nks nil)
    (while (assoc 10 PvT)
      (setq Nks (append Nks (list (cdr (assoc 10 PvT))))
            PvT (vl-remove (assoc 10 PvT) PvT)))
    (entmake (list (cons 0 "3DFACE") (assoc 8 PvT) (assoc 410 PvT)
        (if (assoc 62 Pvt) (assoc 62 PvT) (cons 62 256))
        (cons 10 (nth 0 Nks)) (cons 11 (nth 1 Nks))
        (cons 12 (nth 2 Nks)) (cons 13 (nth 3 Nks))))
    (entdel (cdr (assoc -1 PvT))))
  (princ (strcat "\n " (itoa L) " Polyline(s) converted 3DFace(s)"))
  (setvar "modemacro" "") (command "_.undo" "e") (princ)
)
Seçeceğiniz obje gurubu içinde 4 nokta ile tanımlı polyline objelerini sırasıyla işleme alarak, polyline ile aynı space (model/paper), Layer ve Color özellikllerine sahip 3DFace oluşturup, Polyline objesini siler.

ProhibiT (25.08.2011 09:19 GMT)

> 1 <
Copyright © 2004-2022 SQL: 1.53 saniye - Sorgu: 53 - Ortalama: 0.02886 saniye