AutoCad Lisp makroi

[ srdjanm3 @ 10.06.2008. 10:20 ] @

Da li neko moze da mi malo objasni kako da napravim LISP macro u autocadu koji bi mi crtao nesto sto mu zadam?

Posto ne znam kako se prave LISP fajlovi, da li ima neko ko moze da mi objasni red po red, recimo nekog LISP makroa koji bi za pocetak samo nacrtao neku liniju horizontalnu od jedne do druge tacke?

Ako neko ima nekih linkova sa objasnjenjima bio bih zahvalan da postavi. Ako mozete da me uputite i na neku literaturu iz ove oblasti bilo bi dobro.

Hvala unapred.

Pozdrav

[ srdjan milic @ 11.06.2008. 14:54 ] @

Pozdrav....

Nesto sam krenuo da ceprkam po tome...Ima u samom AutoCAD malo nekih objasnjenja.....

Primer linije....

;;;draws a horizontal line 100 units long
(defun c:line3 (/ pt)
(princ "Please pick a start point for line: ")
(setq pt (getpoint))
(command "_line" pt "@100,0")
(command "@0,1000")
(command "@-100,0")
(command "_close" )
(command "_circle" pt "300")
(command "_circle" pt "600")
)

Pozdrav

Milic Srdjan

p.s Nadam se da radi....

[ Dr. Jekyll and Mr. Hyde @ 12.06.2008. 00:16 ] @

AutoCAD 2009 ima alat Action Recorder. Zadas snimanje, odradis operaciju, zaustavis snimanje, sacuvas makro.
Mozes da doradjujes tako dobijene makroe, da zahtevas unos podataka u toku izvrsavanja, da kombinujes vise makroa, dodeljujes im skracenice...

Naravno, poznavanje LISP-a ima svoih prednosti, ali vecini korisnika je ovo vise nego dovoljno.

Evo primer:

http://www.teamcad.co.yu/index...view&id=728&Itemid=571

[ srdjanm3 @ 12.06.2008. 07:09 ] @

Citat:

srdjan milic: Pozdrav....

Nesto sam krenuo da ceprkam po tome...Ima u samom AutoCAD malo nekih objasnjenja.....

Primer linije....

;;;draws a horizontal line 100 units long
(defun c:line3 (/ pt)
(princ "Please pick a start point for line: ")
(setq pt (getpoint))
(command "_line" pt "@100,0")
(command "@0,1000")
(command "@-100,0")
(command "_close" )
(command "_circle" pt "300")
(command "_circle" pt "600")
)

Pozdrav

Milic Srdjan

p.s Nadam se da radi.... :)

Sta znaci ovo ( / pt)....i da li negde u helpu autolisp-a u cadu moze da se nadje sta znace te skracenice i koje postoje?

Kako bih mogao da napravim sledecu foru. Ovaj pravoguanoik sto crta ovaj lisp, samo da mu prvo unesem koordinate svih tacaka?

Hvala pozdrav

_{[Ovu poruku je menjao srdjanm3 dana 12.06.2008. u 08:40 GMT+1]}

[ shojab @ 13.06.2008. 07:14 ] @

(/pt) je naziv za parametar, u LISP-u postoje globali i lokalni parametri.

Mozes da crtas pravougaonik tako sto ces mu dati 4 tacke, pt1, pt2, pt3, pt4, pa komandom LINE u okviru programa ili makroa spajas tacke, na pr.
(command "LINE" pt1 pt2 "")
(command "LINE" pt2 pt3 "")
...

Slicno je i sa komandom PLINE.

[ srdjanm3 @ 13.06.2008. 07:24 ] @

Da...hvala...juce sam se malo posvetio tome pa sam nasao nekih tutoriala po netu i nesto sam uspeo..Sad mi jos samo ostaje da se posvetim tome ko covek i da napravim nesto ozbiljno...

Imam jos nekoliko pitanjaca. Hocu da napravim lisp koji ce nacrtati liniju izmedju dve tacke koje mu zadam. Tacke zadajem pomocu koordinata na komandnoj liniji ili tako sto kliknem na ekran negde. Takodje sam stavio da mi i crta tacke. I to sada radi. Evo koda:

(defun c:po (/ pt1 pt2)
(prompt "\nPlease enter a start point for line: ")
(setq pt1 (getpoint))
(command "point" pt1)
(prompt "\nPlease enter a end point for line: ")
(setq pt2 (getpoint))
(command "point" pt2)

(Command "line" pt1 pt2 "")
)
---------------------------------

Da li je moguce da lisp vuce podatke iz EXCEL-a? Znaci npr da u Excelu imam koordinate tacaka, a da mu u lispu zadajem linije i krugove koji ce koristiti te koordinate za crtanje.

Pozdrav

_{[Ovu poruku je menjao srdjanm3 dana 13.06.2008. u 09:41 GMT+1]}

_{[Ovu poruku je menjao srdjanm3 dana 13.06.2008. u 09:52 GMT+1]}