Circle'a Texti Ortalama | Forumlar - Çizim Okulu


Forum	Download	Galeri	AboneOl

Üye Ol veya Giriş Yap

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Ziyaretçi: 590, Üye: 1
nidadrms

Forumlar > AutoLISP > Circle'a Texti Ortalama

Bu başlığı inceleyenler : 1 ziyaretçi, 0 üye : ---

İleti	Yazar
24.04.2017 14:11 84931	alper0629 Kıdemli Girişimci 38 ileti Köprü ve Sanat Yapıları Teknik Ressamı ankara
İyi Günler benim elimde Bi çok poz var, bu pozları numaralarını circlelın ortasında taşımak istiyorum ama bunu tek tek yapmak zor oluyor basit bi işlem gibi ama tam olarak lisp bilgim olmadığı için yapamadım örnek dwge yi ekte yüklüyorum. Şimdiden teşekkürler. 235222-drawing2.dwg

24.04.2017 15:28 84932	ehya Yönetici 3554 ileti Teknik Ressam Ankara
Aşağıdaki kod işinizi görecektir. Öyle kaliteli bir lisp değildir. Bu yüzden seçeneceğinz nesne sayısı toplam 2 olmalı. Bir tanesi yazı diğeri circle.. Komutu çalıştırın. yazıyı ve daireyi seçip enter'a basın. Komut ismi 123 Kod: (defun c:123 () (if (setq ss (ssget '((-4 . "<OR") (0 . "TEXT") (0 . "CIRCLE") (-4 . "OR>")))) (progn (command "_.select" ss "") (setq c 0) (repeat 2 (setq nn (ssname ss c)) (if (= (cdr (assoc 0 (entget nn))) "CIRCLE") (progn (setq mrkz (cdr (assoc 10 (entget nn)))) (ssadd nn (setq ds (ssadd))) (setq c (1+ c)) ) (progn (setq yz (cdr (assoc 10 (entget nn)))) (ssadd nn (setq ys (ssadd))) (setq c (1+ c)) ))) (vla-put-TextAlignmentPoint (vlax-ename->vla-object (ssname ys 0)) (vlax-3d-point mrkz)) ))(princ))

24.04.2017 15:40 84933	alper0629 Kıdemli Girişimci 38 ileti Köprü ve Sanat Yapıları Teknik Ressamı ankara
Sağolun çok teşekkürler bu işimi gördü fazlasıyla :)

> 1 <

Copyright © 2004-2022 | Tüm Hakları Saklıdır | 2404 | Site haritası | İstatistikler | Hakkımızda | Kadromuz | Gizlilik | Reklam | İletişim
SQL: 1.415 saniye - Sorgu: 49 - Ortalama: 0.02888 saniye