mahalin alan ve çevresini area ile alıp mahalin içine yazdırma

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Ziyaretçi: 424, Üye: 3
42FB1907, admin, macros55

Detaylar »

Forumlar > AutoCAD Acil Yardım > mahalin alan ve çevresini area ile alıp mahalin içine yazdırma

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

İleti	Yazar
18.01.2011 14:08 62128	civileng20 Girişimci 5 ileti inşaat mühendisliği denizli
bir mahali polyline komutuyla çizip alanı ve çevresini area komutundan buluyorum.bu bulduğum alan ve çevre değerlerini mahalin istediğim herhangi bir yerine yapıştırabilirmiyim yardımcı olursanız sevinirim

18.01.2011 15:11 62132	ProhibiT Yetkili 1612 ileti İnşaat Mühendisi Ankara
Kod: (defun c:NaLan () (command "undo" "group") (setvar "cmdecho" 0) (setq ob (car (entsel "\nAlanı ve Çevresi yazılacak objeyi seçiniz: "))) (command "_.area" "object" ob) (if (= tx nil) (setq btx (* (getvar "dimscale") (getvar "dimtxt")))) (setq aln (strcat (rtos (/ (getvar "area") 10000) 2 2) " m²") cvr (strcat (rtos (/ (getvar "perimeter") 100) 2 2) " m") tx (getreal (strcat "\nYazi yuksekligi <" (rtos btx) "> : "))) (if (= tx nil) (setq tx btx)) (setq pa (getpoint "\nAlanın yazılacağı yeri seçiniz : ") pc (polar pa (* 1.5 pi) (* (1+ (/ 1 (sqrt 2))) tx))) (entmake (list (cons 0 "TEXT") (cons 40 tx) (cons 1 aln) (cons 50 0) (cons 10 pa))) (entmake (list (cons 0 "TEXT") (cons 40 tx) (cons 1 cvr) (cons 50 0) (cons 10 pc))) (command "undo" "e") (prin1) ) verilen AutoLisp fonksiyonu nasıl yükleyip, nasıl kullanacağınızı bilmiyorsanız, sitede araştırıverin. Fonksiyon'un komut adı:NaLan. cm biriminde çizim yapıldığı kabul edilir, çevre m ve alan m2 biriminde yazdırılır. Farklı birimler kullanıyorsanız, kod içinde görülen faktör sayılarını değiştiriverin... Kolay gelsin. Beğenmek için anlamak lazım...

05.02.2011 17:34 62452	civileng20 Girişimci 5 ileti inşaat mühendisliği denizli
Teşekkürler ellerine sağlık. Ancak yazı boyutunu sabitleyebilirmiyiz yani sormasın kaç puntoyla yazılcağını 12 sabit olsun?

05.02.2011 18:08 62453	ProhibiT Yetkili 1612 ileti İnşaat Mühendisi Ankara
(if (= tx nil) (setq btx (* (getvar "dimscale") (getvar "dimtxt")))) satırını kaldırın (cons 40 tx) yazan yerlerde tx yerine istediğiniz yazı yüksekliğini yazın. kolay gelsin. Beğenmek için anlamak lazım...

05.02.2011 18:46 62455	civileng20 Girişimci 5 ileti inşaat mühendisliği denizli
Çok teşekkür ederim

05.02.2011 20:16 62457	ProhibiT Yetkili 1612 ileti İnşaat Mühendisi Ankara
Özür dilerim eksik yazmışım, (if (= tx nil) (setq tx btx)) satırını da silmelisiniz. (setq pa (getpoint "\nalanın yazılacağı yeri seçiniz : ") pc (polar pa (* 1. 5 pi) (* (1+ (/ 1 (sqrt 2))) tx))) satırında da tx yerine gene yazı yüksekliğini yazmalısınız. . . Beğenmek için anlamak lazım...

06.02.2011 01:14 62458	admin Üst Yönetici 613 ileti Proje Yöneticisi İstanbul
Text veya table içinde bulunan field objenin alanını veya çevresini otomatik olarak istediğiniz yere yazar. üstelik objenin şekli değiştiğinde regen yaptıktan sonra alan veya uzunluk bilgisini de günceller. Çizim Okulu Ekibi

06.02.2011 11:21 62460	civileng20 Girişimci 5 ileti inşaat mühendisliği denizli
Komutu giriyorum objeyi seçiyo fakat seçtikten sonra "error: bad argument type: numberp: nil" hatasını veriyo dün çalışıyodu bugün çalışmıyo yardımcı olurmusunuz?

06.02.2011 12:49 62461	ProhibiT Yetkili 1612 ileti İnşaat Mühendisi Ankara
Kod: (defun c:nalan () (command "undo" "group") (setvar "cmdecho" 0) (setq ob (car (entsel "\nalanı ve çevresi yazılacak objeyi seçiniz: "))) (command "_area" "object" ob) (setq aln (strcat (rtos (/ (getvar "area") 10000) 2 2) " m²") cvr (strcat (rtos (/ (getvar "perimeter") 100) 2 2) " m") tx 12) (setq pa (getpoint "\nalanın yazılacağı yeri seçiniz : ") pc (polar pa (* 1. 5 pi) (* (1+ (/ 1 (sqrt 2))) tx))) (entmake (list (cons 0 "text") (cons 40 tx) (cons 1 aln) (cons 50 0) (cons 10 pa))) (entmake (list (cons 0 "text") (cons 40 tx) (cons 1 cvr) (cons 50 0) (cons 10 pc))) (command "undo" "e") (prin1) ) bu fonksiyonu yükleyip tekrar deneyin. text height=12 olarak sabittir. bu arada, sorunun geliş şeklinden ben autolisp fonksiyona yönlendirmiş bulundum sizi. field komutununu mutlaka deneyin. büyük ihtimalle daha çok işinize yarayacaktır. sitemizde gerekli detayları bulabilirsiniz. . . kolay gelsin. ProhibiT (07.02.2011 07:19 GMT) Beğenmek için anlamak lazım...

06.02.2011 13:35 62464	civileng20 Girişimci 5 ileti inşaat mühendisliği denizli
Teşekkür ederim komut çalışıyo ama alanla uzunluğu üstüste bindiriyo

07.02.2011 07:24 62471	ProhibiT Yetkili 1612 ileti İnşaat Mühendisi Ankara
(setq pa (getpoint "\nalanın yazılacağı yeri seçiniz : ") pc (polar pa (* 1. 5 pi) (* (1+ (/ 1 (sqrt 2))) tx))) satırında işaretli yerdeki noktadan sonraki boşluğu silin. problemsiz çalışacaktır. Beğenmek için anlamak lazım...

> 1 <