Leaderboard

Thank you for all your continued work in keeping this place online David, it is tremendously appreciated - the forum feels far more responsive following the upgrade!

Hi All, there will likely be some dissruption to the forum this week. We are upgrading to the latest version of the forum software, and this will mean the forum will be closed for a few hours while the upgrade takes place. Once the upgrade is complete, you may notice a few differences to the interface and there are also some new features. I'll provide more information once the upgrade is complete.

Just wondering where those 200 tables came from. Seems like they'd already be blocks with attributes or AutoCAD or Civil tables. Cannot imagine someone drawing and filling in values for every one of them when they could have been added programmably.

Glad to help .. though the credit should be mostly to @Tharwat

CADTutor.net is the fastest CAD forum I am aware of. The blasted Autodesk forums are so bloated and slow, and there is always something going on where you can't load photos, or the pages time out, or something. It is a pleasure to come here and read or respond to a post and know that it just works, super fast on top of that. Cheers to David and all of the members who make this place what it is.

Thanks @Lee Mac good to have the feedback - glad it feels more responsive. I think the developers have been trying to streamline the codebase and it seems they've been successful, despite adding new features.

If you are working in 3D you will need to specify two angles to define the location of the second point. For example, an angle in the XY plane and an angle about the z axis. The distance is not important as the two points are defining an axis of rotation and it doesn't matter how far apart they are. It's not clear what you are trying to do. Your first post indicated that you want to rotate a block in 3D space but your last post seems to imply that you really just want to rotate in a plane.

This is a pretty interesting interview from 2018. It's a fairly long interview, so if you don't want to watch the whole thing, check out these parts. At 23:42 he talks about how he's not interested in money. He just wants to provide a good program that works, for people to be creative and make things. At 46:53 he gives his thoughts on Autodesk. Enjoy https://www.youtube.com/watch?v=qJEWOTZnFeg

I beg to differ with you. CADTutor is thriving because of the perseverance, dedication and vision of David Watson who deserves our thanks. So... "Thank you" David for all that you have done.

Cheers @rlx it's just nice to see the forum still thriving after so many years and despite the lure of social media, it still seems to satisfy an important need

Thanx for all your excellent work!

The upgrade has completed successfully, and the forum is open again. You will notice quite a few diferences in the user interface but I've tried to keep our theme as close to the previous version as possible. As usual, keep an eagle eye out for anything that looks unusual, and let me know in this thread if you spot anything that requires my attention. Other than that, enjoy the new version of the CADTutor forum

Sounds like a good time to learn lisp, if you look at the (10 . in the pline entmake which is the arrow, you can just change the ang variable to (setq ang (- ang)) but you will need a test is grad -ve dont change, have a go. If get stuck post.

I have changed from use vl-coordinates this is shorter. (setq plent (entsel "\nPick rectang")) (if plent (setq co-ord (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget (car plent)))))) (princ co-ord)

This is probably what your looking for. http://ww3.cad.de/foren/ubb/Forum54/HTML/018135.shtml looks to be in German but you can sus out what you need.

Give this a try: (defun c:test (/ en f i lst sn ss x) ;;--------------------------------------------;; ;; Author : Tharwat . Date: 09.June.2015 ;; ;; A function to replace a set of block names ;; ;; with a nother as per listed in the list ;; ;;--------------------------------------------;; (setq lst '(("3040*" . "new"))) (if (setq ss (ssget "_X" (list '(0 . "INSERT") (cons 2 (apply 'strcat (mapcar '(lambda (x) (strcat (car x) ",")) lst))) ) ) ) (repeat (setq i (sslength ss)) (setq sn (ssname ss (setq i (1- i))) en (entget sn) n (cdr (assoc 2 en)) ) (if (and ;; RJP » 2021-04-13 ;; Added support for wildcards (vl-some '(lambda (x) (and (wcmatch (strcase n) (strcase (car x))) (setq r (cdr x)))) lst) (tblsearch "BLOCK" r) (entmake (append (list '(0 . "INSERT") (cons 2 r)) (vl-remove-if-not '(lambda (v) (member (car v) '(6 8 10 41 42 43 50 62))) en) ) ) ) (entdel sn) ) ) ) (princ) )

Copy any number of selected objects along a selected curve object (Arc, Circle, Ellipse, Line, LWPolyline, 2DPolyline, 3DPolyline, Spline) using a specified base point. Copy options: Divide, Measure and Dynamic. Starting point is based on closest end point to where curve is selected. Works in non-WCS. User has option to align object(s) to selected curve. (03.28.10) Instead of selecting a curve, user has option to pick points, temporarily drawing a Polyline to copy along. (03.28.10) If 'Align objects' option is selected, user has additional rotation option when copying has completed (90°, 180°, 270°). (03.28.10) Enjoy and all comments are greatly appreciated. Divide option: Measure option: Dynamic option: Updated display align, drawing temporarily polyline and additional rotation options. Updated: 03.30.10 (v1.1) CopyAlongCurve.LSP