Topic: help:Draw lines in specific layer and then join (Y/N)

[PM]

Hi.I use this lisp to draw lines in specific layers. Some times i want this layers to contain  polylines (close or open). So i want to add a option at the end of the code (before change layer to 0) ,and ask me "Do you want to convert to polyline? (Y/N)"

and some way using pedit command to join them (Not all the lines in the same layer, only the lines i draw with this command)

Code: [Select]

(command "_.pedit" "_M" "" "_Y" "_J" "" "")


Code - Auto/Visual Lisp: [Select]

1.  
2. (defun c:test ()
3.     (if (=(tblsearch "layer" "Layer1") nil)
4.       (command "_layer" "_m" "Layer1" "_c" "15" "" "")
5.      );end if
6.      (setvar "clayer" "Layer1")
7. (setq s1 (getpoint "\n Select fist point :" ))
8. (while(setq s2 (getpoint s1  "\n Select next point :" ))
9. (command "_line" "non" s1 "non" s2 "")
10. (setq s1 s2)
11. )
12. ; layer to 0
13. (mapcar 'setvar '("clayer" "cecolor" "celtype" "celweight")  (list "0" "BYLAYER" "BYLAYER" -1))
14. (princ)
15. )
16.  

Thanks

[PM]

any options?

Thanks

[ronjonp]

Why don't you draw polylines to start with? If in the end you want individual items simply explode it.

[ribarm]

Jedna zamerka Ron,...
Pri samom izgovoru eksploud... Cinjenicno je nepotrebno iskazivati Nobelizam zarad fundamentalizma...

[PM]

Thanks i fix it

Code - Auto/Visual Lisp: [Select]

1.  
2. (DEFUN C:test (/ CONVERT  S1 S2 SS)
3.   (if (tblsearch "layer" "Layer1")
4.     (progn
5.       (setq ss (ssadd))
6.          (command "_layer" "_m" "Layer1" "_c" "15" "" "")
7.  
8.       (SETQ S1 (GETPOINT "\nSelect fist point ::"))
9.       (WHILE (SETQ S2 (GETPOINT S1 "\nSelect next point :"))
10.  (COMMAND "_line" "non" S1 "non" S2 "")
11.  (ssadd (ENTLAST) ss)
12.  (SETQ S1 S2)
13.       )
14.       (initget "Yes No")
15.       (if (and (setq
16.    convert (cond
17.       ((getkword "\nConvert to  polyline? [Yes/No] <N>: "))
18.       ("No")
19.     )
20.         )
21.         (/= (sslength ss) 0)
22.         (= convert "Yes")
23.    )
24.  (if (= (getvar 'PEDITACCEPT) 0)
25.    (command "_.pedit" "_M" ss "" "_Y" "_J" "" "")
26.    (command "_.pedit" "_M" ss "" "_J" "" "")
27.  )
28.       )
29.     )
30.   )
31. (command "setvar" "clayer" "0")
32. (command "-linetype" "set" "Bylayer" "")
33.   (princ)
34. )
35.  
36.  

[ronjonp]

Thanks i fix it

Code - Auto/Visual Lisp: [Select]

1.  
2. (DEFUN C:test (/ CONVERT  S1 S2 SS)
3.   (if (tblsearch "layer" "Layer1")
4.     (progn
5.       (setq ss (ssadd))
6.          (command "_layer" "_m" "Layer1" "_c" "15" "" "")
7.  
8.       (SETQ S1 (GETPOINT "\nSelect fist point ::"))
9.       (WHILE (SETQ S2 (GETPOINT S1 "\nSelect next point :"))
10.  (COMMAND "_line" "non" S1 "non" S2 "")
11.  (ssadd (ENTLAST) ss)
12.  (SETQ S1 S2)
13.       )
14.       (initget "Yes No")
15.       (if (and (setq
16.    convert (cond
17.       ((getkword "\nConvert to  polyline? [Yes/No] <N>: "))
18.       ("No")
19.     )
20.         )
21.         (/= (sslength ss) 0)
22.         (= convert "Yes")
23.    )
24.  (if (= (getvar 'PEDITACCEPT) 0)
25.    (command "_.pedit" "_M" ss "" "_Y" "_J" "" "")
26.    (command "_.pedit" "_M" ss "" "_J" "" "")
27.  )
28.       )
29.     )
30.   )
31. (command "setvar" "clayer" "0")
32. (command "-linetype" "set" "Bylayer" "")
33.   (princ)
34. )
35.  
36.  

Why are you doing this ?

Draw a line .. ask if it should be a polyline, repeat. Sorry I don't get your logic at all. 

FWIW, This line will prevent the code from ever running: (if (tblsearch "layer" "Layer1")