|
14.01.2014 07:44
mikemoon
|
|
tüm deliklere tek seferde centermark atabiliyormuyuz
|
|
14.01.2014 09:58
 ehya
|
aşağıdaki linkte bulunan lisp işini görür sanırım...
Linkleri görebilmek için ÜYE olmalısınız.
|
|
14.01.2014 10:01
mikemoon
|
Alıntı
ehya :
aşağıdaki linkte bulunan lisp işini görür sanırım...
Linkleri görebilmek için ÜYE olmalısınız.
orada birçok lisp bulunmaktadır hangisidir ve komutsatırına ne olarak girmemiz gerekiyor
|
|
14.01.2014 10:26
ehya
|
|
linke tıkladığınızda karşınıza gelen ilk lisp.
(defun c:dec () ile başlıyor....
|
|
14.01.2014 11:49
 Travaci
|
mikemoon
Kod:
(defun c:Cma (/ crc n dmc cnt n1 n2)
(setvar "cmdecho" 0) (command "_.undo" "begin")
(if (= (getvar "dimcen") 0) (setvar "dimcen" 5))
(setq crc (ssget (list (cons 0 "circle"))) n 0 dmc (getvar "dimcen"))
(if crc (repeat (sslength crc)
(setq cnt (cdr (assoc 10 (entget (ssname crc n)))) n (1+ n)
n1 (polar cnt 3.14159 dmc) n2 (polar cnt 4.71239 dmc))
(entmake (list (cons 0 "Line") (cons 10 n1)
(cons 11 (polar n1 0 (* 2 dmc)))))
(entmake (list (cons 0 "Line") (cons 10 n2)
(cons 11 (polar n2 1.5708 (* 2 dmc)))))))
(command "_.undo" "end") (princ)
)
Travaci (14.01.2014 22:29 GMT)
|
|
14.01.2014 12:48
mikemoon
|
|
bir teşekkür butonu eklerseniz çok iyi olur.
|
|
14.01.2014 12:57
mikemoon
|
Alıntı
Travaci :
süper olmuş fakat delik çapına göre centermark attırma imkanımız varmıdır. delik küçük olunca centermarklar bazen dairenin dışına taşıyor büyük olursada çok küçük kalıyor
ehya (14.01.2014 13:22 GMT)
|
|
14.01.2014 13:05
Travaci
|
|
Kodlar aynı Dimcenter komutunda olduğu gibi yazıldı. Marka boyunu dimcen ile ayarlıyabilirsiniz.
Sizin isteğinizi ozaman ehya hocamın yazdığı kodlar karşılıyor, buna gerek yokmuş. İstekler ya eksik yada taxit taxit söyleniyor :)
|
|
14.01.2014 22:29
Travaci
|
mikemoon
süper olmuş fakat delik çapına göre centermark attırma imkanımız varmıdır. delik küçük olunca centermarklar bazen dairenin dışına taşıyor büyük olursada çok küçük kalıyor
Buda çeşit olsun ozaman
Kod:
(defun c:Cma2 (/ crc n obj cnt n1 n2)
(setvar "cmdecho" 0) (command "_.undo" "begin")
(setq crc (ssget (list (cons 0 "circle"))) n 0)
(if crc (repeat (sslength crc)
(setq obj (entget (ssname crc n)) cnt (cdr (assoc 10 obj))
rad (cdr (assoc 40 obj)) n (1+ n)
n1 (polar cnt 3.14159 (/ rad 2)) n2 (polar cnt 4.71239 (/ rad 2)))
(entmake (list (cons 0 "Line") (cons 10 n1)
(cons 11 (polar n1 0 rad))))
(entmake (list (cons 0 "Line") (cons 10 n2)
(cons 11 (polar n2 1.5708 rad))))))
(command "_.undo" "end") (princ)
)
|
|
15.01.2014 06:14
mikemoon
|
|
teşekkürler
|
|
15.05.2020 11:23
 SENDUR
|
|
Arkadaşlar merhaba,
Autocad yeni sürümlerinde bu "centermark" komutunu bayağı güzelleştirmiş. Yalnız çoklu "centermark" yapamadım.
-Bir çok daireyi seçip hepsinin merkezine "centermark" yakmak mümkün müdür? ("Properties" de "centermark" olarak görecek)
-Birde bu "centermark" ların hepsini birden düzenlememize imkan veren bir bölüm var mı? ( Boşluk ve uzama çizgisi için)
Teşekkürler
|
 halilozcakir
|
Alıntı
mikemoon :
tüm deliklere tek seferde centermark atabiliyormuyuz
Merhaba aynı sorunun farklısı var tüm paralel giden iki çizgiye "borulara" centerline çizebilir mi..
|
