Leaderboard

@steven-g, I have a 'Not For Resale' copy of AutoCAD (courtesy of the EE program with Autodesk) at home so I will be drawing my woodworking projects with that before cutting any boards. I have my first post retirement project drawn mini-workbench to raise the work off of the main workbench for detail work. I will be making it from hard maple and walnut, with Greene and Greene mortise and tenon joints. @Dadgad, I might have been on this board even earlier but I let Stykface get under my skin and I left for a while and came back under a different user name. Later we became friends. mini work bench 2-Layout1.pdf

The proposed LM:parsenumbers function can actually be used to solve both new problems: (defun KGA_Conv_Pickset_To_ObjectList (ss / i ret) (if ss (repeat (setq i (sslength ss)) (setq ret (cons (vlax-ename->vla-object (ssname ss (setq i (1- i)))) ret)) ) ) ) (defun GetLevel (nme blksObj / out) (vlax-for obj (vla-item blksObj nme) (cond (out) ((/= "V-NODE-TEXT" (strcase (vla-get-layer obj))) nil ) ((= "AcDbBlockReference" (vla-get-objectname obj)) (setq out (GetLevel (vla-get-name obj) blksObj)) ) ((not (vlax-property-available-p obj 'textstring)) nil ) ((wcmatch (vla-get-textstring obj) "*#.#*") (setq out (last (LM:parsenumbers (vla-get-textstring obj)))) ) ) ) ) (defun c:CreatePoints ( / blksObj doc pt spc ss) (setq doc (vla-get-activedocument (vlax-get-acad-object))) (setq blksObj (vla-get-blocks doc)) (vla-endundomark doc) (vla-startundomark doc) (if (setq ss (ssget '((0 . "INSERT")))) ; Removed layer filter. (progn (setq spc (vla-get-modelspace doc)) (foreach obj (KGA_Conv_Pickset_To_ObjectList ss) (setq pt (vlax-get obj 'insertionpoint)) (vla-addpoint spc (vlax-3d-point (list (car pt) (cadr pt) (GetLevel (vla-get-name obj) blksObj)))) ) ) ) (vla-endundomark doc) (princ) )

It looks like: I'm trying 2008 AutoCAD and it doesn't work there.

Good idea rkent a mini bench, for me I take on the task of using recycled timber its amazing what quality timber is out there just thrown away. I had timber stools outside no screws or nails just glued and dowelled sat out side for like 20 years left behind when I moved, the timber was 200x40 from a boat yard it was shipping packaging something big.

Yes, I agree with you, it was no big deal to hit enter twice in the previous versions. So little effort to do, but Autodesk has to give subscribers something each release and I think the change to trim is the absolute least they could do. But the poster wanted to eliminate the second enter, saving precious nanoseconds so the code will take care of that. Any maybe the TRIMEXTENDMODE sysvar is all they need.

Any command requires you to hit enter to start it. 2020 and prior - TRim, enter, pick to start a crossing window 2021 - TRim, enter, pick to start a crossing fence In my mind the fence is the same as crossing. But, you want TR for a quick key, but you still have to hit enter after typing TR, TR, enter, start picking. By setting the Quick mode in the code I posted you will get the crossing window, or at least I do here in my testing.

You can put the following little line of code in your ACADDOC.LSP file. (DEFUN C:TR () (SETVAR "CMDECHO" 1)(COMMAND ".TRIM" "O" "Q" "")(PRIN1)) ;set trim mode to quick This will overwrite the acad.pgp and use this instead. I tried it here and works well and I think the way you want. TR <enter> use crossing window to trim.

@Dadgad, I figured you were being smart since I knew you are senior to me. Being referenced as a young gun definitely cracks me up. I thank you for the kind words. You were always the voice of reason and always treat the posters with professionalism and I learned from the best. I feel like I had an interesting career and tried to always learn and strive to do better. When I went from the board to AutoCAD I knew very little about the program, just what I could learn in a 2 month class at the community college. I was very worried about measuring up and consequently spent way too many hours away from work doing nothing much else but teaching myself more about AutoCAD. I remember when we did a presentation on AutoCAD in ~1991 using slides and creating a slide show. Everyone’s mind were blown and we were rock stars for a day or two. A few of us figured out how to create a virtual drive in the memory on our computers (~1990) and copy the AutoCAD.exe file there and then start the program. This was all done with a DOS file, I think it was called a batch file but my memory is not that great anymore. It was noticeably faster to do it that way and was possible back when the program was so small. Even though I learned on R9 the first company I worked for had bootleg copies of R8 (v2.6) and we used that for about a year. After that they bought R9 licenses and I was still able to copy the program and put it on my home computer, in fact my boss encouraged it. I have used Action Recorder a time or two but never really got into the habit of remembering it was there. It got better over the years and the few times I thought to use it I did like the result. In the bad old days of the early 90’s CADalyst magazine would publish a lisp file each month. I would copy those by typing what was printed and of course I would make at least two typos and the thing wouldn’t work. So off I went trouble shooting the lisp file and finally finding my mistakes. I did learn quite a bit about rudimentary lisp writing but I have forgotten most of that. These days if I need something I just look on Lee-Mac’s web site and can often find an awesome program that is light years ahead of what I could do. I have donated to his site a few times but certainly not near enough. The post of the ‘clipped’ viewports was not something I can claim credit for. I learned about that somewhere else and simplified what they had done and added step by step instructions. I will post the drawing since I do still have it. Digging up old posts of mine on the Ribbon: man I hated that when it first came out. I am often too quick to judge a new feature like that but with time and learning to customize it I definitely became a fan. I agree, there used to me more general questions from new users but I assume the number of new users of AutoCAD is going way down with the advent of BIM and 3D programs like Inventor. I can see myself still looking in and posting if I have something to offer. As you said, more questions on programming and fewer on actually using the program. Thanks again. viewport in viewport 2007.dwg

Options, User Preferences, Right Click Customization, put a check mark in the upper left box 'turn on time-sensitive right-click. Also look into the system variables added in 2021 so with trim or extend you won't have to use the RMB or hit enter.

Dadgad, I may be younger than you but I am 66 and retiring at the end of this week! (May 29,2020) I moved from board drafting in 1988 to AutoCAD V2.6 (R8) and over the years always tried to embrace the new commands and UI while keeping many old school functions. I like a good customized Ribbon and all the contextual tabs. Good luck everyone.

I prefer the new array, but to each their own.

Try this program to export LWpolylines to Excel file with format csv. (defun c:Test (/ s f o) ;; Tharwat 26. 08. 2015 ; (princ "\nSelect LWpolylines to export to Excel file :") (if (and (setq s (ssget '((0 . "LWPOLYLINE")))) (setq f (getfiled "Specify File Name" (getvar 'DWGPREFIX) "csv" 1)) (setq o (open f "w")) ) (progn ((lambda (r / e) (while (setq e (ssname s (setq r (1+ r)))) (write-line (rtos (vlax-curve-getdistatparam e (vlax-curve-getendparam e)) 2 4) o) )) -1) (close o) ) ) (princ) )