AIberto Posted December 19, 2014 Share Posted December 19, 2014 (edited) I want choose a face of 3d entity , edge projection , This is possible ?? the edge is line. I know a command is "_xedges", but this extract all edges , use copy edges ? Looks good , but need Multi- choice , and must Specify a base point or displacement: Specify a second point of displacement: can simplify? This is the effect after removed entity Edited December 19, 2014 by AIberto Quote Link to comment Share on other sites More sharing options...
GP_ Posted December 19, 2014 Share Posted December 19, 2014 Try this: (vl-cmdf "_solidedit" "_f" "_c" pause "" pause pause "" "") Quote Link to comment Share on other sites More sharing options...
Hippe013 Posted December 19, 2014 Share Posted December 19, 2014 I know that this is off topic, but how did you make that GIF in AutoCAD? Quote Link to comment Share on other sites More sharing options...
GP_ Posted December 19, 2014 Share Posted December 19, 2014 ...how did you make that gif in autocad? ...look into Camtasia Quote Link to comment Share on other sites More sharing options...
AIberto Posted December 20, 2014 Author Share Posted December 20, 2014 Try this: (vl-cmdf "_solidedit" "_f" "_c" pause "" pause pause "" "") [ATTACH=CONFIG]52039[/ATTACH] Hi GP , This is not what I need , This is copy faces , I need is line ,not face , must add a step "explode" , and I need line position remains the same. Quote Link to comment Share on other sites More sharing options...
hmsilva Posted December 20, 2014 Share Posted December 20, 2014 (edited) I know a command is "_xedges", but this extract all edges Hi AIberto, the "_xedges" command, allows you to select only the desired edges, by pressing 'Ctrl' as you are selecting. EDIT: As a demo (defun c:demo (/ ent_l l_ent p1 p2 ss) (setq l_ent (entlast) ss (ssadd) ) (prompt "\nPress \"Ctrl\" to select edges: \n") (command "_.xedges") (while (> (getvar 'cmdactive) 0) (command "\\") ) (setq ent_l (entlast)) (if (and (not (eq l_ent ent_l)) (setq p1 (getpoint "\nEnter base point: ")) (setq p2 (getpoint p1 "\nEnter destination point: ")) ) (progn (while (setq l_ent (entnext l_ent)) (ssadd l_ent ss) ) (command "_.move" ss "" p1 p2) ) ) (princ) ) Henrique Edited December 20, 2014 by hmsilva add code Quote Link to comment Share on other sites More sharing options...
AIberto Posted December 21, 2014 Author Share Posted December 21, 2014 Hi AIberto, the "_xedges" command, allows you to select only the desired edges, by pressing 'Ctrl' as you are selecting. EDIT: As a demo Henrique Hi dear henrique. Thank you ! this is nice! but I need keep position . no need "Enter base point: " & "Enter destination point:" , like this: (vl-cmdf "_solidedit" "_e" "_c" pause"" "0,0,0" "0,0,0" "_X" "_X") Quote Link to comment Share on other sites More sharing options...
GP_ Posted December 21, 2014 Share Posted December 21, 2014 ...no need "Enter base point: " & "Enter destination point:"... Follow the Henrique's suggestion: ...the "_xedges" command, allows you to select only the desired edges, by pressing 'Ctrl' as you are selecting. or a change of my first: (vl-cmdf "_solidedit" "_f" "_c" pause "" "_non" "0,0,0" "_non" "0,0,0" "_X" "_X" "_explode" "_L") Quote Link to comment Share on other sites More sharing options...
hmsilva Posted December 21, 2014 Share Posted December 21, 2014 Hi AIberto, I misunderstood, I thought your goal was: Specify a base point or displacement: Specify a second point of displacement: ...my bad! GP's suggestions should work as you are expecting. Henrique Quote Link to comment Share on other sites More sharing options...
AIberto Posted December 21, 2014 Author Share Posted December 21, 2014 Follow the Henrique's suggestion: or a change of my first: (vl-cmdf "_solidedit" "_f" "_c" pause "" "_non" "0,0,0" "_non" "0,0,0" "_X" "_X" "_explode" "_L") Thank! GP , this is my thread need! Thank for help ! I love you! Quote Link to comment Share on other sites More sharing options...
AIberto Posted December 21, 2014 Author Share Posted December 21, 2014 (edited) Hi AIberto,I misunderstood, I thought your goal was: Specify a base point or displacement: Specify a second point of displacement: ...my bad! GP's suggestions should work as you are expecting. Henrique Hi Henrique . Thank you ! Your answer gave me another inspiration! use "ctrl" is beautiful! can you remove "Enter base point "& "Enter destination point" from your post #6 ? Edited December 22, 2014 by AIberto Quote Link to comment Share on other sites More sharing options...
hmsilva Posted December 21, 2014 Share Posted December 21, 2014 You're welcome, AIberto You don't need a lsp, just use the 'xedges' command, and the selected edges will be copied to the current layer. Henrique Quote Link to comment Share on other sites More sharing options...
AIberto Posted December 21, 2014 Author Share Posted December 21, 2014 You're welcome, AIberto You don't need a lsp, just use the 'xedges' command, and the selected edges will be copied to the current layer. Henrique OK! I know! Thank you! Henrique. Quote Link to comment Share on other sites More sharing options...
hmsilva Posted December 21, 2014 Share Posted December 21, 2014 You're welcome, AIberto Henrique 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.