Quick Trim to Dimension

[Wish List System]

Summary: Quick Trim and Extend to Dimensions

Description: You used to be able to trim to dimensions with the prior trim and extend commands. Now you are unable to trim to dimensions using the new Quick Trim mode. Need to add this to the new command, The old Standard mode still works, but is too hard to use now.

Product and Feature: AutoCAD - Dimensions

Submitted By: jaarhus on 10/15/2023

[Ed Jobe]

This is more of a bug report than a request for new features. Please post your feedback here (https://www.autodesk.com/company/contact-us/product-feedback).

[Tom Beauford]

This old trimfen function would allow you to pick 2 points for a trim line then using the 2nd point as the start of a fence line and prompt for the other endpoint of the fence line. Not what it was written for but could complete your task with 3 picks of the mouse. It will trim all objects that cross that fence line so use at your own risk.
Old TrimLine.lsp ©2000 Buddy Jenkins (https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/trimming-a-polyline-at-intersection-points/m-p/2589694#M283692) rewritten to work with multiple crossings of polylines.

;|TrimLine.lsp ©2000 Buddy Jenkins
Rewritten to work with multiple crossings of polylines.
BY: TOM BEAUFORD
Tombu@LeonCountyFL.gov
LEON COUNTY PUBLIC WORKS ENGINEERING SECTION
==================================================================|;
(Defun C:trimfen (/ PT1 PT2 AX SSF pt_list flag EN)
(prompt "\nTrim Line routine... ")
(setq PT1 (getpoint "\nBegining point of trimming line: "))
(setq PT2 (getpoint PT1 "\nEnd point of trimming line: "))
(setvar "CMDECHO" 0)
(VL-CMDF "._UNDO" "_BEgin")
(entmake (list '(0 . "LINE") '(62 . 120)(cons 10 PT1)(cons 11 PT2)))
(setq AX (entlast))
(redraw AX 3)
(setq PT1 (getpoint PT2 "\nEnd point of fence line for selection: "))
(setq pt_list (list PT1 PT2))
(setq SSF (ssget "F" pt_list) flag nil)
(VL-CMDF "._trim" AX "" "f" PT1 PT2 "" "")
(while (and(not flag)(/= 0(sslength SSF))) ;repeat each segment of the fence
(setq EN (entlast)) ;until no new ents are created.
(setq SSF (ssget "F" pt_list))
(VL-CMDF "._trim" AX "" "f" PT1 PT2 "" "")
(VL-CMDF "._extend" AX "" "f" PT1 PT2 "" "")
(if (equal EN (entlast))(setq flag T))
);while
(entdel AX)
(VL-CMDF "._UNDO" "_End")
(princ)
)