mfadzli Posted December 24, 2014 Share Posted December 24, 2014 Hi, I need a lisp to convert polyline to the cloud as per image below. Hope someone can help me. :) Quote Link to comment Share on other sites More sharing options...
Tharwat Posted December 24, 2014 Share Posted December 24, 2014 Use the REVCLOUD command although this command does not do the exact conversion of that shape . Quote Link to comment Share on other sites More sharing options...
BrianTFC Posted December 24, 2014 Share Posted December 24, 2014 When using the revcloud function all you have to do is select the linetype that you want it to be first before using revcloud, if the what you are looking to use is not in the list of linetypes that ACAD supply's then make you own. Quote Link to comment Share on other sites More sharing options...
BIGAL Posted December 24, 2014 Share Posted December 24, 2014 Just make a new line type then its just change properties, search make linetype Quote Link to comment Share on other sites More sharing options...
hanhphuc Posted December 25, 2014 Share Posted December 25, 2014 Just make a new line type then its just change properties, search make linetype Customization Guide example modified referenced to the guide *DOUBLE_ll,CLOUD --- ll --- ll --- A,2.0,-0.30,["ll",Standard,S=1.0,R=0.0,X=-0.0,Y=-0.5],-1.0 for better effect use romans.shx font Quote Link to comment Share on other sites More sharing options...
AIberto Posted December 25, 2014 Share Posted December 25, 2014 Customization Guideexample modified referenced to the guide *DOUBLE_ll,CLOUD --- ll --- ll --- A,2.0,-0.30,["ll",Standard,S=1.0,R=0.0,X=-0.0,Y=-0.5],-1.0 for better effect use romans.shx font Hi Dear friend , Merry Christmas! can use programming to solve this problem ? http://www.cadtutor.net/forum/showthread.php?90217-choose-problem Quote Link to comment Share on other sites More sharing options...
ttray33y Posted January 5, 2015 Share Posted January 5, 2015 i forgot where i got this but this will automatically convert the polyline created into cloud. ;routine to create pline-cloud (defun c:plc (/ *error* l1 l2) (setq o_ortho (getvar "orthomode")) (setvar "orthomode" 1) (command "-layer" "set" "0" "") (defun *error* (msg) (setvar "cmdecho" 1) (if (= msg "") (princ "\nFunction Complete.") (princ "\nError or Esc Pressed!") ) (princ) ) (setvar "cmdecho" 0) (prompt "\nDraw Polyline.") (command "_pline") (while (> (getvar "cmdactive") 0) (command pause)) (setq l1 (entlast)) (command "_pedit" l1 "c" "") (setq l2 (entlast)) (prompt "\nReverse Cloud Direction? [Yes/No]: ") (command "_revcloud" "o" l2 pause "") (command "pedit" "l" "w" "0.5" "") (setvar "orthomode" o_ortho) (*error* "") (princ) ) (princ "\n Type PLC to run.") Quote Link to comment Share on other sites More sharing options...
mfadzli Posted January 5, 2015 Author Share Posted January 5, 2015 thanks hanhphuc & thanks for all sifu here.. Quote Link to comment Share on other sites More sharing options...
hanhphuc Posted January 7, 2015 Share Posted January 7, 2015 thanks hanhphuc & thanks for all sifu here.. sama2 active in forum are welcome happy new year lah:) Quote Link to comment Share on other sites More sharing options...
mfadzli Posted January 13, 2015 Author Share Posted January 13, 2015 sama2 active in forum are welcome happy new year lah:) wow.....happy new year to you also.. 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.