ADeko Technologies
http://www.adeko.com/phpBB3/

4'de çizilmiş projeleri 6'ya dönüştürmek
http://www.adeko.com/phpBB3/viewtopic.php?f=6&t=1515		 1. sayfa (Toplam 1 sayfa)
Yazar:  Destek/Support [ 29 Eyl 2006 16:38 ]
Mesaj Başlığı:  4'de çizilmiş projeleri 6'ya dönüştürmek
4'de çizilmiş projeleri 6'ya dönüştürmek için aşağıdaki adımları takip edin:

<ol type="1">
<li>Aşağıdaki kodu kopyalayıp Windows not defterine yapıştırın.</li>
<li>Dosyayı <b>46.LSP</b> olarak kaydedin (Uzantının LSP olması önemlidir).</li>
<li>Dönüşüm gerektiren çizimi açın.</li>
<li><b>46.LSP</b> dosyasını sürükleyip çizimin üstüne bırakın.</li>
<li>Çalışmanıza normal şekilde devam edin.</li>
</ol id="1">

<b>Not:</b> 29 Eylül 2006 Cuma tarihinden sonra indirilmiş kurulumların içinde dönüşüm işlevi zaten mevcuttur. Dönüşüm gerektiğinde klavyeden <b>46</b> komutunun girilmesi yeterlidir.

<hr noshade size="1">
[code]
(defun c:46 (/ sset sslen i nmUnit tip en1 en2 yuk der der2)
(setq sset (ssget "x" '( (0 . "INSERT") (1001 . "A-DEKO")))) ;
(if (null sset)
(progn
(alert "Faal sürüme dönüştürülecek dolap bulamadım")
(exit)
)
)

(setq sslen (sslength sset))
(setq i 0)
(repeat sslen
(setq nmUnit (ssname sset i))

(setq tip (xfetch 0 nmUnit))
(setq en1 (xfetch 1 nmUnit))
(setq en2 (xfetch 2 nmUnit))
(setq yuk (xfetch 3 nmUnit))
(setq der (xfetch 4 nmUnit))
; (setq der2 (xfetch 5 nmUnit))

(set_MData nmUnit (list
(cons k:MTYP tip)
(cons k:WID en1)
(cons k:WID2 en2)
(cons k:HEI yuk)
(cons k:DEP der)
; (cons k:DEP2 der2)
)
)
(setq i (1+ i))
)
(alert (strcat "Toplam " (rtos i 2 0) " adet modül faal sürüme dönüştürüldü."))

(princ)
)

(defun xfetch (ic blk)
(cond ((equal 'ENAME (type blk)) (setq blk (entget blk '("A-DEKO"))))
((equal 'ENAME (type (car blk))) (setq blk (entget (car blk) '("A-DEKO"))))
((equal 'ENAME (type (cdar blk))) (setq blk (entget (cdar blk) '("A-DEKO"))))
(T (getstring (Xstr "\nBlk icre ENAME yok. Func: xfetch.")))
)
(if (assoc -3 blk)
(cdr (nth ic (cdadr (assoc -3 blk))))
)
)
(C:46)
[/code]
<hr noshade size="1">
1. sayfa (Toplam 1 sayfa) Tüm zamanlar UTC + 2 saat [ GITZ ]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/