gvgbabu Posted June 9, 2011 Share Posted June 9, 2011 hi all can anybody help me to write a lisp for converting lines in a layer to polylines it needs lisp or any command is there for that thanks in advance ganesh Quote Link to comment Share on other sites More sharing options...
Tharwat Posted June 9, 2011 Share Posted June 9, 2011 You can make it through the command : pedit .... -> join Quote Link to comment Share on other sites More sharing options...
VVA Posted June 9, 2011 Share Posted June 9, 2011 (defun C:L2P ( / ss) ;;; Line 2 Polyline (setq ss (ssget "_I")) (while (not ss)(setq ss (ssget))) (if (and (getvar "PEDITACCEPT") (= (getvar "PEDITACCEPT") 1)) (vl-cmdf "_pedit" "_Multiple" ss "" "") (vl-cmdf "_pedit" "_Multiple" ss "" "_Y" "") ) ) (defun C:L2PJ ( / ss) ;;; Line 2 Polyline + Join (fuzz = 0) (setq ss (ssget "_I")) (while (not ss)(setq ss (ssget))) (if (and (getvar "PEDITACCEPT") (= (getvar "PEDITACCEPT") 1)) (vl-cmdf "_pedit" "_Multiple" ss "" "_Join" 0 "") (vl-cmdf "_pedit" "_Multiple" ss "" "_Y" "_Join" 0 "") ) ) Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.