AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim
aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A
Forumlar > AutoCAD Acil Yardım > Ölçü değerlerini değişme
21.07.2015 15:46    
alper0629
mrb arkadaşlar benm elimde yaklasık olarak 300 tane ölçü var bu ölçülerin uzunluklarını değişcem fakat değerlerinin değişmesini istemiyorum hepsinide tek tek elle girmek zor oluyo kolay bi yolu varmı acaba örnek dosya yükledim. 235222-drawing2.dwg

22.07.2015 10:06    
Travaci
Kod:

(defun c:cdt (/ ss n ob) (vl-load-com)
  (if (setq ss (ssget (list (cons 0 "*dimension"))))
    (progn
      (vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))
      (repeat (setq n (sslength ss))
        (setq ob (vlax-ename->vla-object (ssname ss (setq n (1- n)))))
        (vla-put-textoverride ob (rtos (vla-get-Measurement ob) 2 0)))
      (vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))
    )
  ) (princ)
)
23.07.2015 10:41    
alper0629
çok teşşekkür ederim ya tam istediğim gibi olmuş çok sağolun :)

> 1 <
Copyright © 2004-2022 SQL: 1.625 saniye - Sorgu: 50 - Ortalama: 0.03249 saniye