lucas3 Posted February 3, 2014 Share Posted February 3, 2014 Hi,guys How to dim slope and taper？ like this: Find forums, did not find anything！ Thanks for any help! Quote Link to comment Share on other sites More sharing options...
highflybird Posted February 4, 2014 Share Posted February 4, 2014 this? Quote Link to comment Share on other sites More sharing options...
lucas3 Posted February 6, 2014 Author Share Posted February 6, 2014 this?[ATTACH=CONFIG]46660[/ATTACH] YES!highflybird,Can you post code？thank you very much! Quote Link to comment Share on other sites More sharing options...
highflybird Posted February 7, 2014 Share Posted February 7, 2014 sorry,lucas,This is part of the paid software. Quote Link to comment Share on other sites More sharing options...
Snownut Posted February 7, 2014 Share Posted February 7, 2014 sorry,lucas,This is part of the paid software. That's not very sporting of you, I've seen your request for plenty of "free" programing services.... Quote Link to comment Share on other sites More sharing options...
highflybird Posted February 9, 2014 Share Posted February 9, 2014 That's not very sporting of you, I've seen your request for plenty of "free" programing services.... This paid software is not mine，look here: http://xazhji.miniban.cn/ Quote Link to comment Share on other sites More sharing options...
vimcruz Posted February 12, 2014 Share Posted February 12, 2014 After 2 days of work I've finished what OP asked for. Gonna post it as soon as I get home. Regards Quote Link to comment Share on other sites More sharing options...
lucas3 Posted February 13, 2014 Author Share Posted February 13, 2014 After 2 days of work I've finished what OP asked for. Gonna post it as soon as I get home. Regards Thank you! vimcruz ,That's great! I am very much looking forward Quote Link to comment Share on other sites More sharing options...
vimcruz Posted February 13, 2014 Share Posted February 13, 2014 (edited) First things first. You must edit the slope.lsp file to set the path to the DCL file, or add the path to the "Support File Search Path". How it works: 1. Draw a line or pline with some inclination 2. Once you have loaded the slope.lsp use the function: "slope" 3. Click the first point of the line 4. Click the second point of the line 5. Select the mode in the DCL 6. Set the text size 7. Click on desire point to display the text This is just the fast version of something that could be a nice tool. I know I just recently started working with AutoLisp and DCL, but I'm getting better and I'll polish this tool to make it better. If you have any questions about the code feel free to ask. I'll do my best to answer. If you find some bug or I made a mistake don't hesitate to post it, I'll fix it asap. Licence: Attribution-NonCommercial-ShareAlike 4.0 International (CC BY-NC-SA 4.0) EDIT: Line to modify 46. (setq dcl_id (load_dialog [color="red"][b](strcat (getvar 'MYDOCUMENTSPREFIX) "\\DCL\\slope.dcl")[/b][/color])) ;EDIT THIS! EDIT: Last update slope_v2.1.0.lsp, no need to download DCL file slope.lsp slope.dcl slope_v2.1.0.lsp Edited February 17, 2014 by vimcruz Quote Link to comment Share on other sites More sharing options...
lucas3 Posted February 13, 2014 Author Share Posted February 13, 2014 vimcruz，Thank you very much! Always show：“The slope definition could not be loaded!”,later snap miss I put slope.lsp and slope.dcl in "C:\Program Files\AutoCAD 2010\Support" I modify the path：(setq dcl_id (load_dialog (strcat (getvar 'MYDOCUMENTSPREFIX) "slope.dcl"))) ，Is can't I modify the path：(setq dcl_id (load_dialog (strcat (getvar 'MYDOCUMENTSPREFIX) "\\C:\Program Files\AutoCAD 2010\Support\slope.dcl"))) ,can't too I modify the path：(setq dcl_id (load_dialog (strcat (getvar 'MYDOCUMENTSPREFIX) "C:\\Program Files\\AutoCAD 2010\\Support\\slope.dcl"))) ,can't too Quote Link to comment Share on other sites More sharing options...
vimcruz Posted February 13, 2014 Share Posted February 13, 2014 vimcruz，Thank you very much! Always show：“The slope definition could not be loaded!”,later snap miss I put slope.lsp and slope.dcl in "C:\Program Files\AutoCAD 2010\Support" I modify the path：(setq dcl_id (load_dialog (strcat (getvar 'MYDOCUMENTSPREFIX) "slope.dcl"))) ，Is can't I modify the path：(setq dcl_id (load_dialog (strcat (getvar 'MYDOCUMENTSPREFIX) "\\C:\Program Files\AutoCAD 2010\Support\slope.dcl"))) ,can't too I modify the path：(setq dcl_id (load_dialog (strcat (getvar 'MYDOCUMENTSPREFIX) "C:\\Program Files\\AutoCAD 2010\\Support\\slope.dcl"))) ,can't too Try this: (setq dcl_id (load_dialog "C:\\Program Files\\AutoCAD 2010\\Support\\slope.dcl")) Quote Link to comment Share on other sites More sharing options...
lucas3 Posted February 13, 2014 Author Share Posted February 13, 2014 Try this: (setq dcl_id (load_dialog "C:\\Program Files\\AutoCAD 2010\\Support\\slope.dcl")) OK! thanks ,(setq dcl_id (load_dialog "slope.dcl")) Quote Link to comment Share on other sites More sharing options...
vimcruz Posted February 13, 2014 Share Posted February 13, 2014 You're welcome Quote Link to comment Share on other sites More sharing options...
lucas3 Posted February 13, 2014 Author Share Posted February 13, 2014 The direction of the slope symbol should be consistent with the slope Quote Link to comment Share on other sites More sharing options...
MSasu Posted February 13, 2014 Share Posted February 13, 2014 Lucas3, please don't miss that the original code was calling to place the dialog definition into MyDocuments folder; by placing it into AutoCAD's installation folder may lose them when will re-install it or switch to another version. Quote Link to comment Share on other sites More sharing options...
lucas3 Posted February 13, 2014 Author Share Posted February 13, 2014 Thank you MSasu ! Vimcruz,how to dim taper ? Quote Link to comment Share on other sites More sharing options...
MSasu Posted February 13, 2014 Share Posted February 13, 2014 Vimcruz, nice work! If you don't mind, I would make some comments on your code: It may be useful to validate user's input before proceeding to processing: (if (and (setq p1 (getpoint "\nFirst pick point: ")) (setq p2 (getpoint "\nSecond pick point: "))) (progn ... Please pay attention that you were disabling auto OSNAP after calling a draw command, so that may be affected by current modes: (command "_.pline" newp1 newp2 "") (setq osm (getvar "OSMODE")) (setvar "osmode" 0) A good programming practice is to fully restore the environment you affected, so it will be better to retain the original *error* function into a variable and replace the one you defined at the end or on error (similar with what you did for OSMODE system variable). A call to UNDO command inside the error handling function will ensure that user isn't left with an incomplete result if the error occurs after some entities were already drew. For mode choosing, you may want also to take a look to GETKWORD and INITGET functions (to get rid of dialog box). If you decide to stick with the dialog, it may be useful to add a field for text height into it; also by using radio-buttons instead of buttons for modes will be able to prompt the user with previously used mode as default. Last, but not least, you should localize your variables to make sure don't interfere with other routines. Quote Link to comment Share on other sites More sharing options...
vimcruz Posted February 13, 2014 Share Posted February 13, 2014 (edited) MSasu, thx for the tips!. I tried to make it work with radio_button in DCL, but I didn't understand how to restore previous selection. As I said I just started with Autolisp but with this kind of help I'll be better. I'll be making changes along the next week keeping in mind what you said. Feel free to re-use the code if needed. Lucas3, by the end of this week I'll have time to improve the code. If you could wait till that day... Regards Edited February 13, 2014 by vimcruz Quote Link to comment Share on other sites More sharing options...
lucas3 Posted February 13, 2014 Author Share Posted February 13, 2014 MSasu, thx for the tips!. I tried to make it work with radio_button in DCL, but I didn't understand how to restore previous selection. As I said I just started with Autolisp but with this kind of help I'll be better. I'll be making changes along the next week keeping in mind what you said. Feel free to re-use the code if needed. Lucas3, by the end of this week I'll have time to improve the code. If you could wait till that day... Regards Thank you vimcruz,I will wait for you! Have you seen #14 and #16 ？ Quote Link to comment Share on other sites More sharing options...
vimcruz Posted February 13, 2014 Share Posted February 13, 2014 Yes, I did. That's what I'm gonna work on this weekend. Regards 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.