0 Members and 1 Guest are viewing this topic.
(command "_.pedit" "_M" "" "_Y" "_J" "" "")
Thanks i fix it Code - Auto/Visual Lisp: [Select] (DEFUN C:test (/ CONVERT S1 S2 SS) (if (tblsearch "layer" "Layer1") (progn (setq ss (ssadd)) (command "_layer" "_m" "Layer1" "_c" "15" "" "") (SETQ S1 (GETPOINT "\nSelect fist point ::")) (WHILE (SETQ S2 (GETPOINT S1 "\nSelect next point :")) (COMMAND "_line" "non" S1 "non" S2 "") (ssadd (ENTLAST) ss) (SETQ S1 S2) ) (initget "Yes No") (if (and (setq convert (cond ((getkword "\nConvert to polyline? [Yes/No] <N>: ")) ("No") ) ) (/= (sslength ss) 0) (= convert "Yes") ) (if (= (getvar 'PEDITACCEPT) 0) (command "_.pedit" "_M" ss "" "_Y" "_J" "" "") (command "_.pedit" "_M" ss "" "_J" "" "") ) ) ) )(command "setvar" "clayer" "0") (command "-linetype" "set" "Bylayer" "") (princ))