customizable polyline

[BlackBox]

Perhaps you should mention what needs to be modified?

 

 

No, no... let's all guess.

 

Perhaps the OP is just having a little trouble learning to code...

 

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

will you help me again ??

 

 

Alex, here's where I would start --> at the command line type VLIDE, then hit Enter. Within the VLIDE, open Fixo's .LSP file. Now hit F1 to read the Developer Documentation.

 

Hope this helps!

[alex198617]

ones again thank you "FIXO"

Georgia,tbilisi,varketili.dwg

[fixo]

ones again thank you "FIXO"

Hi Alex, I could not open the drawing,

because of it was made in A2010 version or higher

I currently use just A2008

Can you resave it in A2008 version and send it again?

Translated message:

Алекс, я не смог открыть твой рисунок, потому что он

был создан в версии А2010 или выше

В настоящее время я использую Только версию А2008

Можешь сохранить чертеж в формате 2008 и выслать его снова?

 

Олег

[alex198617]

i think you can made it

 

can we talk in English or you prefer Russian ?

 

мы можем говорить на английском или вы предпочитаете Русски?

ჩვენ შეგვიძლია ვილაპარაკოთ ინგლისურად თუ რუსული გირჩევნია?

in case if you know Georgiana

Georgia,tbilisi,varketili.DWG

[fixo]

i think you can made it

 

can we talk in English or you prefer Russian ?

 

 

in case if you know Georgiana

 

we can talk English only

Ok, I'll try to do it tomorrow

See you

[fixo]

try edited lisp instead

change whatever you need by yourself coz

I have not have a time for that

(vl-load-com)
(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)
 )
(defun c:demo (/ *error* cnt curcol curlr curlts elist en osm pt ptblocks pts )

(defun *error*  (msg)
 ;; Application error handler byby Doug Broad
 ; 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 "KANALIZACIA")
 (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" "KANALIZACIA")
 (setvar "celweight" 53)
 (setvar "celtscale" 15.0)

 (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")
 (setq ptblocks (reverse (cdr (reverse (cdr pts)))))
(foreach p ptblocks

 (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 0.5)1.0))
   (setq en (entlast))
   (setq elist (entget en))
(setq elist (entmod (subst (cons 1 (strcat   "{\\C8;\\FESRI Geology AGSO 1;{\\H7.0;"
          (itoa cnt)
          "}}\\P{\\C7;\\FAcadNusx;{\\H3.0;<>}}"))(assoc 1 elist)elist)))
   (entmod (subst (cons 41 1.25)(assoc 41 elist)elist))
   (entupd en)
   (setq pts(cdr pts)
  cnt (1+ cnt)))
(*error* nil)
 (princ)
 )
(prompt"\nType DEMO to execute")
(prin1)

[alex198617]

This is great fixo thank you

with your help i save 3X more time with this code

[fixo]

You're welcome

Happy computing