08.06.2008 14:46    

poliline cizgi cizerken köşeler notmalde dik olarak dönmekte fakat otomatik olarak 10 mm yarı capında yay cizen bir pıliline lispi varmı varsa kodunu yolarmısınız. teşekkürler.asagıdakı ornegın poliline olanı.

ornegin
ehya arkadasın dosyalar bolumunde verdıgı

Peşpeşe çizilen çizgileri fillet yapan lisp

(defun c:LY ()
(setvar "Modemacro" "Archme Design")
(setq nll_nok1 (getpoint "\nBirinci nokta:"))
(if (= nll_nok1 nil)
(progn
)
(progn
(setq nll_nok2 (getpoint nll_nok1 "\nİkinci nokta:"))
(if (= nll_nok2 nil)
(progn
)
(progn
(command "LINE" nll_nok1 nll_nok2 "")
(setq nll_sn (getvar "lastpoint"))
(setq nll_ent (entlast))
(setq nll_nok3 (getpoint nll_nok2 "\nDiğer nokta:"))
(if (= nll_nok3 nil)
(progn
)
(progn
(setq nll_sn1 (getvar "lastpoint"))
(setq nll_sn1 nll_nok3)
(command "LINE" "" nll_nok3 "")
(setq nll_ent1 (entlast))
(command "fillet" nll_ent nll_ent1)
(setq nll_e nil)
(while (= nll_e nil)
(setq nll_dig (getpoint nll_sn1 "\nDiğer nokta:"))
(if (= nll_dig nil)
(progn
(setq nll_e t)
)
(progn
(setq nll_sn1 (getvar "lastpoint"))
(command "LINE" "" nll_dig "")
(setq nll_ent2 (entlast))
(command "fillet" nll_ent1 nll_ent2)
(setq nll_ent1 nll_ent2)
(setq nll_sn1 nll_dig)
)
)
)
)
)
)
)
)
)
(princ)
)

09.06.2008 19:09    

tesekkurler miyatu
elne saglık autocad 2008 trial da vcalıstı fakat bende lisanslı intellicad var bunde problem oldu
3. noktada cızımı kesıyor ve rpl komutundan oncekı komutu calıstırıyor. bundan dlayıda cızıme devam edemıyor. Neden yapar.

asgıda kı gıbı command satırı

Command : rpl
ilk noktayı seç:
ikinci noktayı seç:
Command : line
Start of line: (-140.164 237.170 0.000000)
Angle/Length/<End point>: (123.262 234.587 0.000000)
Angle/Length/Follow/Undo/<End point>:
diğer noktayı seç:
Command : line
ENTER to use last point/Follow/<Start of line>: (123.262 234.587 0.000000)
Angle/Length/<End point>: (114.653 108.039 0.000000)
Angle/Length/Follow/Undo/<End point>:
Command : fillet
Command : Command :_appload
Command : pedit
Edit polyline: Edit vertices/Close/Decurve/Fit/Join/Linetype-mode/Reverse/Spline/Taper/Width/Undo/<eXit>: yerror: rejected function
(COMMAND "pedit" EN1 "y" "j" EN1 EN3 "" "" "")
(C:RPL)
Commond :