All Activity

I also saw this issue with Mechanical 2025 mentioned on the Autodesk Forums, perhaps keep a copy of your customizations to quickly import if you need to reset. How to export, import, backup, and transfer settings to and from AutoCAD products I use AutoCAD and if needed I use one of the other toolsets separately, seldom do I switch to the Vanilla AutoCAD profile while in a toolset. I have no reason why, just always have done it that way.

Here was my post with my examples... I was working towards modifying Lee Macs OffsetSection LISP (mostly trying some of those functions), but getting a proper response from the adjacent sections is tedious. Here is a single offset modifications of it... For my needs as stated earlier, I might need to work on just a redraw from the inputs for the radii, etc. Your LISP looks pretty good for moving roads, certainly useful. AFAIK, I don't have any upcoming road projects, though I might need to fine tune a few, they never put them exactly where I draw them.

For me it works as expected, I mostly use it on arcs that are symmetrical though. Those results seem more logical: But the vertexes stay in line and the lines stay tangent to each other. I guess increasing the arc size of the arc instead might be another option. What would be the expected result for you? I'm not sure if you can keep the constraints without changing the position of that gray line in its direction.

For an accurate snap the drag point needs to be on the polyline, so not an accurate snap. At a certain point it stops following the surrounding shapes, works well on the straight with taper in my drawing. On the Taper at the top keyboard input seems okay, the arc sections not so accurate. It is an interesting LISP though.

I have something that would have done what you want, but it looks for blocks with attributes, I personally only ever make blocks with say a single attribute. Complicating it even more the display is the tag names. It's not a very nice dwg. lastly the answer is in lst3 but you have not said what you want done with it. ; count attdefs via tagname ; BY AlanH July 2025 (defun c:wow ( / lst lst2 att cnt lst3) (defun my-count (a L) (cond ((null L) 0) ((equal a (car L)) (+ 1 (my-count a (cdr L)))) (t (my-count a (cdr L)))) ) ; By Gile (defun remove_doubles (lst) (if lst (cons (car lst) (remove_doubles (vl-remove (car lst) lst))) ) ) (setq ss (ssget '((0 . "ATTDEF")))) (setq lst '()) (repeat (setq x (sslength ss)) (setq att (vlax-ename->vla-object (ssname ss (setq x (1- x))))) (setq lst (cons (vlax-get att 'tagstring) lst)) ) (setq lst (acad_strlsort lst)) (setq lst2 (remove_doubles lst)) (foreach val lst2 (setq cnt (my-count val lst)) (setq lst3 (cons (list val cnt) lst3)) ) (princ) )

hello: I would like to know if there is any LSP routine that helps me define the definition of attributes like similar to Tcount from master LEE MAC . Here I attach an example dwg of the entities that I need to quantify thanks example.dwg

Very similar setup here

Our company issues laptops to everyone, so this also helps with users who are working over VPN, as they don't need to round-trip setup/customization data to the network just to launch CAD. When I was recently hired on, I convinced them that I should have a headless workstation (no monitors, keyboard, mouse) right there in the office, co-located with the server... Instead of mapping the server shares to my laptop at home (I work 100% remote), I use VPN to tunnel into my office workstation via RDP, so I'm only streaming pixels and clicks, but have all of the performance of the physical workstation +/- 3 FT from the server.

Excuse me I need to insist on the question. @dexus: You said you're used to doing this kind of task. Therefore, I assume you can answer this question: does running the code on the polyline shown in the clip work as it should? arcsAndMoreArcs.mp4

You described my exact process! Great minds and all : )

Yes, that's OK, though it looks like the 2 threads are crossing each other a little.... might be that one follows the link you posted to see the other half of the story.

thanks, good advice

10-4, I thought that thread was on the AUGI forums, I was planning to go look there later this morning. Since then, I have found that IT put 2025 on my machine, and even though all the setting are completely cattywompus, both the regular DDEDIT works when I double click dimensions, and BEDIT runs when I double click a block. I make just start in changing all my setting on 2025 and go forward with my life. Thank you for your help everyone, I appreciate y'all taking some time to help. This place is a great resource.

I prefer to use NETLOGON (the BAT, etc script configured in Active Directory that runs when a Domain user logs in) to copy from network to workstations, so when user starts CAD everything is already there. That way, when we update something in our setup, and that gets pushed to network, a notification goes out to everyone and it's up to users to restart or log out/in as they need, based on their project deadlines. This gives us the speed of having everything local to the workstation, no (additional) user action required to sync, and we still have everything backed up on the network. HTH

Power Dimensioning - AutoCAD 2D Drafting, Object Properties & Interface - AutoCAD Forums

@SLW210 WHOAAAAAAAAAAAAAAAAAAAA THERE, I think you're onto something. I had previously just switched to the VANILLA profile b/c I thought that's what you meant. After your follow up, I opened some dwgs in the non-Mech version and the double click on the blocks now behaves as expected. One weird thing is that in plain ACAD, when I double click on dimensions, I get the Power Dimensioning dialog popping up which I fought for a while ... I can't recall what I did before to just have the dimension text open in a Text Editor instead of the Power Dim.

It seems you have something redefining this action. I would reset to defaults and run like that to see if the problem is still there, then slowly redo my settings, though it's strange it happens in both. Did you actually try AutoCAD or just switched profiles? Try a new instance of actual AutoCAD if you can. Windows updates? Which OS are you using?

@SLW210 I'm on 2023. My Attribute Blocks and Attribute Dynamic Blocks have the same as you I'm pretty sure. I just switched to Vanilla and it acts the same. If I restore defaults, I forget how offhand, but I know I can reload my CUI to get the workspace/toolbars/keyboard shortcuts/etc all back, but I wonder if that would bring the same problem back? Thank you!

You really should have asked this in a new thread or your original. If @Steven P is okay with it, I can leave it here, but it looks to be headed off topic. For the record, here is the original... Extracting block data to a report - AutoLISP, Visual LISP & DCL - AutoCAD Forums

Which AutoCAD Mechanical version are you using? Does this happen in Vanilla AutoCAD? My Double-Click Dynamic Block has the same thing and works fine. Both AutoCAD 2026 and AutoCAD Mechanical 2026. Attribute blocks and attribute dynamic blocks have ^C^C_eattedit. My command line... Command: ampoweredit Command: Command: Command: Command: _bedit Regenerating model. Regenerating model. Sounds like you need to reset to defaults, if that doesn't work a repair or report issue to Autodesk.

the clean up routine is here:- ;;////////////////////////////////////////////////// ;; checkcolor (defun CheckEntColor (ent / entData color layer layerData layerColor) (setq entData (entget ent)) (setq color (cdr (assoc 62 entData))) (cond ((and color (/= color 256) (>= color 5)) T) ((or (not color) (= color 256)) (setq layer (cdr (assoc 8 entData))) (setq layerData (tblsearch "LAYER" layer)) (setq layerColor (cdr (assoc 62 layerData))) (if (and layerColor (>= layerColor 5)) T nil)) (T nil) ) ) (defun c:dpsr (/ doc ms result layers-ok ltypes-ok ents-ok props-ok layer-errors ltype-errors enttype-errors prop-errors csv-line ename clr lt lyr ) (vl-load-com) (setq doc (vla-get-activedocument (vlax-get-acad-object))) (setq ms (vla-get-modelspace doc)) (setq *audit-csv-path* (strcat (getvar "DWGPREFIX") "DWG_Audit_Report.csv")) ;; CSV functions (defun append2csv (line / file) (setq file (open *audit-csv-path* "a")) (if file (progn (write-line line file) (close file)) (prompt "\nERROR: Cannot write to audit CSV.") ) ) (defun writecsvheader () (if (not (findfile *audit-csv-path*)) (append2csv "DWGNAME,LAYERSTATES,LINETYPES,ENTITYTYPES,ENTITYDEF,LAYER-ERRS,LT-ERRS,TYPE-ERRS,PROP-ERRS" ) ) ) ;;//////////////////////////////////////////////////////// ;; Create or set a layer (defun makelayer (name color lw tran ltype) (if (not (tblsearch "layer" name)) (vla-add (vla-get-layers doc) name) ) (vla-put-color (vla-item (vla-get-layers doc) name) color) (vla-put-lineweight (vla-item (vla-get-layers doc) name) lw) (command "-layer" "tr" (rtos tran 2 0) name "") (command "-layer" "l" ltype name "") ) ;; Explode blocks ;;(vlax-for ent ms ;; (if (and (= "AcDbBlockReference" (vla-get-objectname ent)) ;; (vlax-method-applicable-p ent 'explode) ;;) ;;(vla-explode ent) ;;) ;;) (defun explodeall ( / explode layouts ) (setq layouts (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object))) explode t ) (while explode (setq explode nil) (vlax-for layout layouts (vlax-for obj (vla-get-block layout) (and (= "AcDbBlockReference" (vla-get-objectname obj)) (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-explode (list obj)))) (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-delete (list obj)))) (setq explode t) ) ) ) ) ;(princ) ) (explodeall) ;; Create layers (makelayer "D-3D-SOL" 7 30 0 "Continuous") (makelayer "D-3D-CLG" 1 18 0 "Center") (makelayer "D-3D-CLM" 5 18 0 "Center") (makelayer "0" 7 -1 0 "Continuous") ;; catch all to make sure everything is set ok if not created by makelayer fuction ;; Set current layer to sol (command "_.layer" "_set" "D-3D-SOL" "") (command "_.layer" "_c" "7" "" "") (command "_.layer" "_tr" "0" "" "") (command "_.layer" "_lw" "0.3" "" "") (command "_.layer" "_l" "Continuous" "" "") ;; Set current layer to clm (command "_.layer" "_set" "D-3D-CLM" "") (command "_.layer" "_c" "5" "" "") (command "_.layer" "_tr" "0" "" "") (command "_.layer" "_lw" "0.18" "" "") (command "_.layer" "_l" "Center" "" "") ;; Set current layer to clg (command "_.layer" "_set" "D-3D-CLG" "") (command "_.layer" "_c" "1" "" "") (command "_.layer" "_tr" "0" "" "") (command "_.layer" "_lw" "0.18" "" "") (command "_.layer" "_l" "Center" "" "") ;; Set current layer to 0 (command "_.layer" "_set" "0" "") (command "_.layer" "_c" "7" "" "") (command "_.layer" "_tr" "0" "" "") (command "_.layer" "_lw" "0.25" "" "") (command "_.layer" "_l" "Continuous" "" "") ;; Error counters (setq layer-errors 0 ltype-errors 0 enttype-errors 0 prop-errors 0 ) ;; Process objects (vlax-for ent ms (setq ename (vla-get-objectname ent) clr (vla-get-color ent) lt (vla-get-linetype ent) lyr (vla-get-layer ent) ) ;; Classification and move to appropriate layer (cond ((wcmatch ename "AcDb3dSolid,AcDbSurface") (vla-put-layer ent "D-3D-SOL") ) ((and (member ename '("AcDbLine" "AcDbPolyline" "AcDbCircle" "AcDbArc")) (not (CheckEntColor (vlax-vla-object->ename ent))) ;; Was (not (CheckEntColor ent)) ) (vla-put-layer ent "D-3D-CLG") ) ((and (member ename '("AcDbLine" "AcDbPolyline" "AcDbCircle" "AcDbArc")) (CheckEntColor (vlax-vla-object->ename ent)) ) (vla-put-layer ent "D-3D-CLM") ) ) ;; Set ByLayer color and linetype (if (/= clr 256) (progn (vla-put-color ent 256) (setq prop-errors (1+ prop-errors)) ) ) (if (/= (strcase lt) "BYLAYER") (progn (vla-put-linetype ent "BYLAYER") (setq prop-errors (1+ prop-errors)) ) ) ;; Track invalid types and linetypes (if (not (member ename '("AcDbLine" "AcDbPolyline" "AcDbCircle" "AcDb3dSolid" "AcDbSurface" "AcDbArc" ) ) ) (setq enttype-errors (1+ enttype-errors)) ) (if (not (member (strcase lt) '("BYLAYER" "CONTINUOUS" "CENTER")) ) (setq ltype-errors (1+ ltype-errors)) ) ) ;; Delete entities on layer "0" (vlax-for ent ms (if (= (strcase (vla-get-layer ent)) "0") (vla-delete ent) ) ) ;; Set layer 0 current (vla-put-activelayer doc (vla-item (vla-get-layers doc) "0") ) ;;Remove duplicates (command "-OVERKILL" "ALL" "" "") ;; Purge all (repeat 3 (command "_.PURGE" "ALL" "*" "N")) (repeat 2 (command "_.PURGE" "Regapps" "*" "N")) ;; Set UCS/view (command "_.UCS" "_W") (command "_.-VISUALSTYLES" "C" "_CONCEPTUAL") ;; Fixed (command "_.VIEW" "_SWISO") (command "_.ZOOM" "_E") ;; Final checks (setq layers-ok (and (tblsearch "layer" "0") (tblsearch "layer" "D-3D-SOL") (tblsearch "layer" "D-3D-CLG") (tblsearch "layer" "D-3D-CLM") ) ) ;; Build CSV output (setq result (strcat (getvar "DWGNAME") "," (if layers-ok "PASS" "FAIL" ) "," (if (= ltype-errors 0) "PASS" "FAIL" ) "," (if (= enttype-errors 0) "PASS" "FAIL" ) "," (if (= prop-errors 0) "PASS" "FAIL" ) "," (itoa layer-errors) "," (itoa ltype-errors) "," (itoa enttype-errors) "," (itoa prop-errors) ) ) (writecsvheader) (append2csv result)

Would it be easier to make each user set the server location as a trusted location or just link to that location in the startup suit from appload?

I do not know the ability for CADLT but what I am doing is - Create/update the DCL folder (containing DCL & all related files) - Copy on server. - Copy on each PC - Load on AutoCAD - When open AutoCAD Automatically copy DCL Folder from server (if available - may be the server is down) using this (Thanks ronjonp) http://www.theswamp.org/index.php?topic=39415.msg446782#msg446782 (rjp-xcopy "R:\\xxx_Standards\\AutoCAD\\Support\\xxx-Menu" "*.*" "C:\\xxx_Standards\\AutoCAD\\Support\\xxx-Menu" "/d/c/i/k/r/y/q/s/e") - That I am sure all PCs are updated daily.

Another necessary question: Does the original code work as expected when selecting an arc segment flanked by other arc segments? Is it possible this isn't intended in the code?

oh nice. ive got very similar setup. i just use layer/styles/properties toolbars though (i havent actually looked at the others properly in such a long time so i might check out some of those other ones you've called up) was going to copy some of this to my main lisp file but no need really as you would only need to run 1 time when you upgrade to new version or something. i'll set up a separate routine. thanks!