customizable polyline

[alex198617]

hi guys i need sum help with lisp programing

so I'm Alex from Georgia and I'm Project Designer in INTERNET provider company.

if sum one can help me with my problem hear it's :

{ polyline+length (underline)+simple text (1 ,online)+custom block on every polyline vertex }

it's more like customizable polyline

custom-polyline.dwg

[Michaels]

 

It's beginning to [sound] a lot like [Balaji]...

 

I feel that you have a very good impression of Balaji.

 

You have been expecting from anyone new to be that guy.

 

Good luck

[alanjt]

I feel that you have a very good impression of Balaji.

 

You have been expecting from anyone new to be that guy.

 

Good luck

In this situation, the past can make one a little gun shy.

[Cad64]

Alex, I've moved your question to its own thread. In the future, please start a new thread when you have a question, rather than sticking your question on to the end of someone else's thread.

 

Thank you

[The Buzzard]

Congrats on your first post, and welcome to the forums, 'Alex' !

 

It looks like you have an accent, how long have you lived in Georgia?

 

What 'INTERNET provider' do you work for... NetZero, Verizon, Dish Network?

 

Can you post the code you've written so far?

 

 

 

I know this is a bit unrelated, but I have this tune stuck in my head:

 

It's beginning to [sound] a lot like [Balaji]...

 

I think he means from Soviet Georgia.

[BlackBox]

I feel that you have a very good impression of Balaji.

 

You have been expecting from anyone new to be that guy.

 

Good luck

 

I think he means from Soviet Georgia.

 

I guess you could say I was a bit fast to pull that trigger... I just found Balaji on another forum this weekend, using the same username he started with here, and made quick work of demanding free code (again), and even stole someone's code (again).

 

How silly of me ... Post deleted.

[The Buzzard]

I guess you could say I was a bit fast to pull that trigger... I just found Balaji on another forum this weekend, using the same username he started with here, and made quick work of demanding free code (again), and even stole someone's code (again).

 

How silly of me ... Post deleted.

 

From what I have found, This gentleman does much in the way of photography on deviantART forums and seems to be from where he indicates. He has posted a sample drawing. I am not sure of how much CAD or lisp experience he has.

[BlackBox]

From what I have found, This gentleman does much in the way of photography on deviantART forums and seems to be from where he indicates. He has posted a sample drawing. I am not sure of how much CAD or lisp experience he has.

 

Thanks for the clarification... As I said, this was my mistake, and I apologize to the group (the OP especially) for derailing the OP's question.

 

Moving on....

[alanjt]

"Being gansta means you don't have to say you're sorry." ~ U-Turn: Weeds

[The Buzzard]

The drawing looks as if no effort was put into it and it was done in 5 minutes. Properties are set to all objects created. The user started with V1.0 (1982) and now works with 2011 according to his profile. Something is not right here, But I let you guys be the judge.

 

Some honesty here could go a long way.

[Cad64]

well, I checked his IP adress and Buzzard is right. He is from Georgia, but it's the country of Georgia, not the state. His Georgia is located directly between the Black Sea and the Caspian Sea. Very close to Iraq.

 

I hope this is not Balaji again. I would really hate to have to ban him again. Really, I would. :wink:

[fixo]

hi guys i need sum help with lisp programing

so I'm Alex from Georgia and I'm Project Designer in INTERNET provider company.

if sum one can help me with my problem hear it's :

{ polyline+length (underline)+simple text (1 ,online)+custom block on every polyline vertex }

it's more like customizable polyline

 

Try this but quick and dirty

(defun load_ltype (ltname / fname);FH
 (if (not (tblsearch "ltype" ltname))
 (and
   (if (zerop (getvar "measureinit"))
   (setq fname "acad.lin")
   (setq fname "acadiso.lin")
 )
 (vl-cmdf "._-linetype" "_L" ltname (findfile fname) "")
   )
 )
 (princ)
 )
(load_ltype "ACAD_ISO02W100")
(defun c:demo (/ *error* cnt curcol curlr curlts elist en osm pt pts )
 ;; Application error handler by Doug Broad 
(defun *error*  (msg)
   ; create standard error handler
     (cond ((not msg))      ; normal exit, no error
    ((member msg '("Function cancelled" "quit / exit abort"))
    ( ) ) ; escape
    ((princ (strcat "\nError: " msg))   ; display fatal error
     ))    
     (setvar "cmdecho" 1)                        ; restore environments
   (if osm (setvar "osmode" osm))
 (if curlr (setvar "clayer" curlr))
 (if curcol (setvar "cecolor" curcol))
 (if curlts (setvar "celweight" curlts))
     (command "._layerp" ) 
     (command "._undo" "_end")
 (princ)
     )

 (setvar "cmdecho" 0) ; turn echo off
(command "._Undo" "_end") ; close any open group
 (command "._undo" "_begin")

 (load_ltype "ACAD_ISO02W100")
 (command "_.-layer" "_Th" "*" "")
 (setq osm (getvar "osmode"))
 (setq curlr (getvar "clayer"))
 (setq curcol (getvar "cecolor"))
 (setq curlts (getvar "celweight"))
 (setvar "cmdecho" 0)
 (setvar "clayer" "0")
 (setvar "cecolor" "1")
 (command "_celtype" "ACAD_ISO02W100")
 (setvar "celweight" 53)
 (setvar "celtscale" 0.05)

 (setq pts nil)
 (if (setq pt (getpoint "\nPick first Point: "))

   (progn
   (setq pts (cons pt pts))
     (command "_.pline" "_non" pt "_W" "0.0" "0.0")
     (while (setq pt (getpoint "\nPick next point: " pt))
(setq pts (cons pt pts))
(command "_non" pt))

     (command "")))
 (command "_celtype" "continuous")
 (setvar "cecolor" "256")
(foreach p pts

 (command "_.-insert"  "block-1"  p "1.0" "1.0" "0.0"))
 (setq pts (reverse pts)
cnt 1)
 (setvar "celtscale" 1.0)
 (setvar "cecolor" "7")
 ( while  (cadr pts)
(command "dimaligned" (car pts) (cadr pts) (polar (cadr pts) (* pi 1.5)0.05))
   (setq en (entlast))
   (setq elist (entget en))
   (setq elist (entmod (subst (cons 1 (strcat"{\\C3;" (itoa cnt) "}\\P\\C7;<>"))(assoc 1 elist)elist)))
   (entmod (subst (cons 41 1.5)(assoc 41 elist)elist))
   (entupd en)
   (setq pts(cdr pts)
  cnt (1+ cnt)))
(*error* nil)
 (princ)
 )
(prompt"\n\t\t>> Type DEMO to execute")
(prin1)

 

PS Change the insertion point of block to the center of circle

Tip: BEDIT

Edited November 16, 2010 by fixo

[Cad64]

Fixo, you know the rules. Please post in English.

 

And contrary to what you have written, we are not bored. We are on the lookout for a troublemaker who keeps signing up under different user names demanding that code be written for him. He has been banned 3 times already, and he is no longer welcome here.

 

Some of the members may have jumped the gun in this case, but the original post is strikingly similar to the type of post we are accustomed to seeing from the banned one.

[fixo]

OK, sorry, my bad

I'll keep it in mind

Regards,

 

Oleg

[alex198617]

i was banned ?? 3 times

but way ??

what reason?

way all you thinks that i am from USA Georgia?? i'm form Country Georgia and i relay need help in LISP scripting

for sum persons: internet provider "Caucasus Online" http://www.co.ge

and i can make my job without LISP but it takes much time for all that drawing.

[BlackBox]

Not you Alex; Balaji was banned three times... your post was similar, so I made my suspicions known.

 

Please disregard, and continue with your questions (if you have any).

 

Does Fixo's code work for you?

[alanjt]

and i can make my job without LISP but it takes much time for all that drawing.

Then you should learn to code. :wink:

[alex198617]

Does Fixo's code work for you?

 

yes it's works perfect

but it needs sum modify.

[alex198617]

Try this but quick and dirty

 

thanks man is perfect but as i Sade it needs sum modify

will you help me again ??

[Cad64]

Perhaps you should mention what needs to be modified?