Scripturi in LISP AutoLISP

[advex]

                  John Doe: multumim pentru programe!

Iti recomand o vizita la http://www.asmitools.com/Files/Programs.html" target="_blank">http://www.asmitools.com/Files/Programs.html unde gasesti solutii si idei interesante in acest domeniu.

http://www.imagehost.ro/pict/161040294a5ed96d72781.gif" alt="" border="0" align="top">

_______________________________________
http://info-topograf.blogspot.ro/" target="_blank">http://info-topograf.blogspot.ro/


               

[John Doe]

                  Da, o sa ma uit. Ce am postat pana acum sunt chestiuni simple, le-am facut pentru mine si exact pentru ce-mi trebuia la un moment dat. Toate functioneaza, si sunt testate inainte de postare, merg cam pe orice AutoCAD pana la 2007 inclusiv, mai departe nu am. Am adaugat si comentarii, ca sa se poata modifica diverse chestiuni. Si nu sunt imbricate prea mult, tocmai ca sa fie mai usor de înteles.
O sa vina si lucruri mai complicate, dar sunt mai greu de explicat. Sa vedem daca e nevoie.
Sunt si pe Net o groaza de lispuri, dar nu toate merg, nu fac chiar ce vreau eu, nu pricep eu bine engleza sau nu s-a pierdut timpul cu explicatii la ele. Partea buna e ca sunt gratis.


               

[kod]

                  cine ma ajuta cu un lisp, program de facut profile, nu vreau sa aud de profLT, si altele de genu pe care trebuie sa le platesc, ca sa fac cate un profil din an in pasti`.
Pana acum am mai incercat cateva programele, lispuri, dar fara rezultat.

Am mai auzit discutandu-se de ceva program PROF.exe, sau cam asa ceva, "merge" e bun de ceva ?, sau alta solutie, este binevenita.

Numai bine !


               

[John Doe]

                  Prof.exe e sub DOS, merge binisor; iti trebuie un fisier   <numepunct> <X> <Y> <Z>   , îi spui prin ce puncte vrei profilul si poti exporta un DXF cu profilul. Spune-mi ce adresa de mail ai.


               

[scootergts]

                  prof.exe e tot profLT dar e o versiune mai veche, sub dos. oricum e tot de Bujorel facuta, iti faci treaba cu el. daca te intereseaza da msg si rezolvam

_______________________________________
It's nice to be important, but is more important to be nice !


               

[kod]

                  am rezolvat cu profilele, multumesc !


               

[diagodose2009]

                  vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv

Modificat de diagodose2009 (04-12-2009 21:18:55)

_______________________________________
http://we.tl/D8HOKFyTJ7" target="_blank">http://we.tl/D8HOKFyTJ7


               

[John Doe]

                  Un utilitar micut pentru schimbarea stilului textului. Merge sub orice AutoCAD, se poate adapta usor la nevoile fiecaruia. Probabil sunt multe altele asemenea, sper sa va fie de folos.


;;;MODIFICA STILUL TEXTULUI SELECTAT LA "ARIAL" , SI LE MUTA PE URMA.

;;;========definim nout stil ARIAL; merge si daca exista deja=======
(command "-style"
    "Arial"        ;;;numele stilului
    "arial.ttf"    ;;;numele fontului, cu extensie
    0.00        ;;;height
    1        ;;;width factor
    0        ;;;obliquing angle
    N        ;;;backwards
    N)        ;;;upside-down


;;;========comanda propriu-zisa

(setq s_text '"Arial" )
(defun C:SX()
(setq a (entget(car(entsel "\nSelectati textul de modificat: " ))))   
   (progn
    (setq a (subst (cons 7 s_text) (assoc 7 a) a))
        (entmod a)
    )        ;;;de la PROGN

(command "move"  (cdr (car a)) "" )   
        )    ;;;DEFUN

(princ "\nLansare cu comanda SX" )


               

[John Doe]

                  Utilitar care transforma cate una suprafetele scrise de TopoLT din "123.00mp" în "S=0.0123Ha" ; daca faceti parcelari cu TopoLT e destul de util. Nu am reusit sa configurez TopoLT sa faca singur asta.


;;;MODIFICA toate textele din "1000.00mp" in "S=0.1000Ha"
;;;Se selecteaza câte unul

(defun C:MD()


(setq a (entget(car(entsel))))
(setq txt (cdr (assoc 1 a)))        ;;;assoc 1 = textul
(setq txt (atof txt))
(setq txt (/ txt 10000))
(setq supraf (rtos txt 2 4))        ;;;2=modul de transformare, 4=nr. zecimale
(setq tmod (strcat "S=" supraf "Ha" ))

(setq a (subst (cons 1 tmod) (assoc 1 a) a))
(entmod a)


        )
(princ "\nLansare cu comanda MD" )


               

[John Doe]

                  Si inca unul, daca vreti sa scrieti suprafata unui contur inchis sub forma "S=xxxmp", prin pick in interiorul conturului, alegeti punctul de start pt. text si unghiul de rotatie (cu stilul curent):


;;;Se selecteaza un contur, calculeaza aria lui
;;;si o scrie sub forma S=xxxmp
(defun C:A ()

(command "-boundary" "A" "I" "N" "" "" pause "" )
(command "area" "e" "last" )    ;;;calculam aria ei
(setq sup1 (getvar "area" ))    ;;;si o extragem cu numele SUP1
(command "erase" "l" "" )       
           

(setq sint (fix sup1))
(setq dif (- sup1 sint))
(if (>= dif 0.5) (setq sint (+ 1 sint)))

(setq rez (strcat "S=" (rtos sint 2 0) "mp" ))

(setq pct (getpoint "Punct start text:" ))
(command "text" pct "" pause rez "" )

        );;;DEFUN

(princ "\nLansare cu comanda A" )


               

[radian2009]

                  puneti topolt-ul aici bucata cu bucata?

 http://www.3xforum.ro/img/smilies/rotfl.png">


               

[John Doe]

                  Sunt aplicatii simple, facute de mine, postate in ideea ca pot fi de ajutor si altora uneori. Contin codul sursa cu comentarii, nu sunt imbricate prea tare, pentru a putea fi si modificate dupa nevoia fiecaruia.


               

[radian2009]

                  john Doe, de ce nu te apuci de facut ceva mai complex daca tot te pricepi?


               

[toporas]

                  Reiau si aici ideea scrisa in topicul topolt. De ce nu face cineva un site cu scopul declarat de a construi un program cu contributia oricui vrea sa vina cu idei si experienta, un open source, unde un colectiv de baieti buni(am vrut sa spun destepti, dar acest cuvant a primit o conotatie pe care nu voiam sa o dau acestui cuvant) care sa adune si sa asambleze aceste idei intr-un program utilizabil.


               

[John Doe]

                  Aplicatiile mai complexe nu sunt pe gustul tuturor, faci anumite treburi cu ele dar altele nu, si de obicei cam fiecare vrea altceva sau altfel. M-am obisnuit sa lucrez cu aplicatii relativ consacrate, iar ce nu fac ele automatizez eu. Cam asta e nivelul meu - sunt topograf de formatie, nu programator. Ca pot judeca logic si construi o aplicatie, asta e altceva.
Cred ca a construi un site pe tema propusa implica mai multe lucruri decat pare la prima vedere. Mai multi oameni o pot face, eu singur nu - ramân totusi deschis la propunerea asta. In plus, exista deja astfel de site-uri - ramane de vazut daca e mai util sa se deschida inca unul sau sa colaboram cu cele existente deja si cu oamenii de acolo.