Dimension'da el ile müdahale edilmiş değerleri tespit etme

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Ziyaretçi: 382, Üye: 0

Detaylar »

Forumlar > AutoCAD Acil Yardım > Dimension'da el ile müdahale edilmiş değerleri tespit etme

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

İleti	Yazar
04.08.2015 09:03 81808	BLack\|E Kıdemli Uzman 151 ileti Kıdemli Teknik Ressam ANKARA
ölçülendirme yapılan projede. Bazı ölçüler gerçeği dışında teknik ressamın el ile müdahalesi ile değiştirilmiş ölçü değerleri mevcut. bunları tespit etmek için ölçülendirmeye tıklayıp properties'ten tek tek bakmak zaman alıyor. Herhangi bir komut ya da lisp ile ölçülendirmelerin içindeki bu el ile müdahale edilmiş ölçüleri ortaya çıkartabilir miyiz? Kolay gelsin. Ertan K Kıdemli Teknik Ressam

04.08.2015 11:05 81811	alumina Editör 769 ileti Insaat Muhendisi Istanbul
Alıntı BLack\|E : ölçülendirme yapılan projede. Bazı ölçüler gerçeği dışında teknik ressamın el ile müdahalesi ile değiştirilmiş ölçü değerleri mevcut. bunları tespit etmek için ölçülendirmeye tıklayıp properties'ten tek tek bakmak zaman alıyor. Herhangi bir komut ya da lisp ile ölçülendirmelerin içindeki bu el ile müdahale edilmiş ölçüleri ortaya çıkartabilir miyiz? Kolay gelsin. Kod: (defun c:dee (/ ss i) (vl-load-com) (defun error (msg) (if (not (wcmatch (strcase msg t) "cancel,exit")) (princ (strcat "\nError: " msg))) (setq error nil) (princ)) (if (setq ss (ssget '((0 . "dimension")))) (progn (repeat (setq i (sslength ss)) (vla-put-TextOverride (vlax-ename->vla-object (ssname ss (setq i (1- i)))) "")) ) ) (setq error* nil) (princ) )

04.08.2015 15:11 81817	BLack\|E Kıdemli Uzman 151 ileti Kıdemli Teknik Ressam ANKARA
Teşekkürler alumina güzel bir lisp bunuda kullanacağım fakat benim istediğim elle girilmiş ölçü değerini orjinaline çevirmeden bana o ölçü çizgisini seçsin ki ben müşteriye tekrar dönüş yapayım neden burayı elle değiştirdin diye. Ertan K Kıdemli Teknik Ressam

04.08.2015 17:08 81818	Travaci Editör 2392 ileti Teknik Ressam Konstantinopol
Kod: (defun c:scd (/ ss gr) (vl-load-com) (if (setq ss (ssget (list (cons 0 "*dimension")))) (progn (setq gr (ssadd)) (repeat (setq n (sslength ss)) (if (/= (vla-get-textoverride (vlax-ename->vla-object (ssname ss (setq n (1- n))))) "") (ssadd (ssname ss n) gr))) (if (> (sslength ss) 0) (sssetfirst nil gr)) ) ) (princ) )

05.08.2015 06:38 81819	alumina Editör 769 ileti Insaat Muhendisi Istanbul
Ortaya cikarmak yerine secili hale getirsin deseydin ya :)

05.08.2015 06:48 81821	BLack\|E Kıdemli Uzman 151 ileti Kıdemli Teknik Ressam ANKARA
Travaci. Emeğine sağlık, böyle lisp'lerle hep şaşırtıyorsunuz bizleri. Ertan K Kıdemli Teknik Ressam

05.08.2015 15:24 81837	bud_0782 Üstad 322 ileti Yapı Öğr.+Teknik Res. Antalya
teşekkürler ~~~~~~~~~~~~~~~~~~~~~~~~ Düşün , hisset, uygula… İşte hepsi bu… ~~~~~~~~~~~~~~~~~~~~~~~~

06.08.2015 14:58 81840	BLack\|E Kıdemli Uzman 151 ileti Kıdemli Teknik Ressam ANKARA
Alıntı alumina : Ortaya cikarmak yerine secili hale getirsin deseydin ya :) :] Ertan K Kıdemli Teknik Ressam

> 1 <