02.11.2012 09:06
UNSAL
|
arkadaÅŸlar merhaba
yuvarlakların merkezlerini polyline ile birleştiriyorum ancak yuvarlağın içinde ki çizginin görünmemesini istiyorlar böyle birşey mümkünmüdür
yani polyline merkezden geçtiği için tam ölçü çıkacak ancak görüntü olarak daire içi boş kalacak
yardımlarınızı bekliyorum
teşekkürler
|
02.11.2012 13:19
ehya
|
baskıda çıkmasını istemiyorsanız ayrı bir layer oluşturup, bu layer'ı layer tablosundan baskı alınmama seçeneğini işaretleyin.
Baskıda çıkmasını engellersiniz.
|
02.11.2012 14:29
UNSAL
|
yok ehya baskıda değil
zaten 1600 civarı daire var ayıramam
biryerde ayarı var diye hatırlıyorum ama çıkaramadım
|
03.11.2012 11:54
ehya
|
yaptığın çizimden bir resim çekip ekleyebilirmisin?
hangi çizginin kalkmasını istiyorsun? daha net yorum yapabiliriz.
|
03.11.2012 23:43
Travaci
|
Her dairenin çapının aynı olduğunu varsayaraktan bir öneri de buluncam
Çizimdeki daire den birtane çizip base point i merkezi olucak şekilde bir blok yapıp ismine daire veriyoruz.
Aşağıdaki lispi yüklüyoruz.
Kod:
(defun c:inst (/ *eror* ss tek ed1 pnt )
(command "undo" "group") (setq oosm (getvar "osmode"))
(defun *error* (er) (setvar "osmode" oosm) (command "undo" "e") (princ er))
(setvar "osmode" 0)
(setq ss (ssget (list (cons 0 "CIRCLE"))))
(if (= ss nil) (progn (princ "\nSeçim yok...")))
(progn
(setq c 0
say (sslength ss))
(while (< c say)
(setq tek (ssname ss c) ed1 (entget tek))
(setq pnt (cdr (assoc 10 ed1)))
(command "-insert" "daire" pnt 1 "" 0)
(setq c (+ c 1))
)
)
(setvar "osmode" oosm) (command "_.undo" "e")
)
1600 dairenin üstüne 1600 block u yerleştiricek daha sonra quick select ile eski circle ları seçip silicez.
Daha sonra yaptığımız block a tıklayıp block editore girip wipeout komutu ile görünmemesini istediğimiz kısmı belirleyip block editorden kaydedip çıkıcaz.Sanırım artık istedikleri gibi oldu : )
Travaci (03.11.2012 23:54 GMT)
|
05.11.2012 09:16
UNSAL
|
merhaba
resimdeki lacivert daire içinden geçen polyline ların daire içinde kalan kısmının görünmemesini istiyorum mümkünmüdür
datas/users/35192-foto.jpg
|
05.11.2012 10:15
ehya
|
bu görünmemeden kastınız.. çizgiler aynen ancak baskı da çıkmasın mı?
yoksa trimlemek mi?
|
05.11.2012 11:35
UNSAL
|
durum şu çıktı alırken daire içinde çizgi görünsün istenmiyor ancak polyline ı üzerine tıklandığında hattın ölçüsünü almak istiyorlar yani trim lersek polyline olmayacak ve hat ölçüsünü göremeyeceğiz
|
06.11.2012 09:07
ehya
|
Aşağıdaki lisp şimdilik işinizi görecektir.
Lispi kullandıktan sonra altta kalmasını istediğiniz çizgileri "draworder" komutu ile "Back" yapın.
Kod:
(defun c:cw1 (/)
(vl-load-com)
(setvar "WIPEOUTFRAME" 0)
(setq cw:sec (ssget (list (cons 0 "CIRCLE"))))
(if (= cw:sec nil)
(progn)
(progn
(setq c 0 cw:say (sslength cw:sec))
(while (< c cw:say)
(setq cw:tek (ssname cw:sec c)
cw:tek-data (vlax-ename->vla-object cw:tek)
cw:circum (vla-get-Circumference cw:tek-data)
cw:bol (/ cw:circum 30.0))
(setq cw:koor ())
(repeat 30
(setq cw:kr (vlax-curve-getpointatdist cw:tek-data cw:bol))
(setq cw:koor (append cw:koor (list cw:kr)))
(setq cw:bol (+ cw:bol (/ cw:circum 30.0))))
(setq pll_ (list
(cons 0 "LWPOLYLINE")
(cons 8 "0")
(cons 100 "AcDbEntity")
(cons 100 "AcDbPolyline")
(cons 90 (length cw:koor))
(cons 70 1)
(cons 43 0.0)
))
(foreach le cw:koor
(setq pll_ (append pll_ (list (cons 10 le)))))
(entmake pll_)
(setq lst (entlast))
(command "_.wipeout" "p" lst "y")
(setq ddd (entlast))
(command "_.draworder" ddd "" "")
(setq c (+ c 1))
)))
(princ))
|
06.11.2012 09:52
SENDUR
|
Hocam eline sağlık güzel bir lisp olmuş.
Denediğim kadarı ile seçilen dairelerin etrafına "wipeout" çizinen bir lisp.
Bu lispin içine dairelerden başka pline ve elips eklenebilir mi?
Birde seçilen blok objesinin etrafına wipeout çizdirmek mümkün müdür? ( tabi blokun dış yüzeyleri kapalı olacak:))
Saygılar
|
06.11.2012 10:06
ehya
|
pline yada elips nesnesine uygulanabilir ancak, blok nesnesi için bunu söyleyemem.. Blok nesnesinin dış hattına polyline döndürmek bildiğim kadarıyla mümkün değil...
|
06.11.2012 10:21
UNSAL
|
ehya çok teşekkür ederim
ben biryerden ayarı vardır diye düşünmüştüm uğraştırdım seni ellerine sağlık
|
09.05.2013 15:29
SENDUR
|
Eyha hocam bu lispe pline (içinde yay olan) ekleyebilir miyiz?
Saygılar
|
ehya
|
pline içine arc girince işler değişiyor. Köşelerde sıkıntı veriyor.
|