AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim
aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A
Forumlar > AutoCAD Acil Yardım > Dimension'da el ile müdahale edilmiş değerleri tespit etme
04.08.2015 09:03    
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.

04.08.2015 11:05    
alumina
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    
BLack|E
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.

04.08.2015 17:08    
Travaci
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    
alumina
Ortaya cikarmak yerine secili hale getirsin deseydin ya :)

05.08.2015 06:48    
BLack|E
Travaci. Emeğine sağlık, böyle lisp'lerle hep şaşırtıyorsunuz bizleri.

05.08.2015 15:24    
bud_0782
teşekkürler

06.08.2015 14:58    
BLack|E
Alıntı
alumina :
Ortaya cikarmak yerine secili hale getirsin deseydin ya :)
:]

> 1 <
Copyright © 2004-2022 SQL: 1.161 saniye - Sorgu: 63 - Ortalama: 0.01843 saniye