[es] - AutoCad Lisp makroi

srdjanm3

Član broj: 68298
Poruke: 491
*.static.sbb.rs.

+60 Profil

^{10.06.2008. u 10:20 - pre 193 meseci}

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

Odgovor na temu

srdjan milic

Član broj: 44406
Poruke: 148
*.khis.de.

+1 Profil

Re: AutoCad Lisp makroi

^{11.06.2008. u 14:54 - pre 193 meseci}

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....

MB GigaByte 7N400L * AMD 1800+ * HDD WD80GB * Kingston 3*256 MB DC* Asus ATI 9550GE *
WinXPSp2

Odgovor na temu

Dr. Jekyll and Mr. Hyde
Autodesk MSD Application Engineer

Član broj: 117594
Poruke: 140
*.dynamic.sbb.rs.

+6 Profil

Re: AutoCad Lisp makroi

^{12.06.2008. u 00:16 - pre 193 meseci}

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

Odgovor na temu

srdjanm3

Član broj: 68298
Poruke: 491
*.static.sbb.rs.

+60 Profil

Re: AutoCad Lisp makroi

^{12.06.2008. u 07:09 - pre 193 meseci}

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]}

Odgovor na temu

shojab
Branko Šojić

Član broj: 149513
Poruke: 41
*.ADSL.neobee.net.

Profil

Re: AutoCad Lisp makroi

^{13.06.2008. u 07:14 - pre 193 meseci}

(/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.

Odgovor na temu

srdjanm3

Član broj: 68298
Poruke: 491
*.static.sbb.rs.

+60 Profil

Re: AutoCad Lisp makroi

^{13.06.2008. u 07:24 - pre 193 meseci}

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]}

Odgovor na temu