CAD Forum - tips, tricks, discussion and utilities for AutoCAD, Inventor, Revit and other Autodesk products [www.cadforum.cz] ARKANCE | CONTACT - CZ | SK | EN | DE
Over 1.099.000 registered users (EN+CZ). AutoCAD tips, Inventor tips, Revit tips, Civil tips, Fusion tips. Try the new precise Engineering calculator. New AutoCAD 2026 commands and variables.
RSS channel - CAD tips RSS tips
RSS discussions

Discussion Discussion forum

?
CAD discussions, advices, exchange of experience

CAD Forum - Homepage CAD discussion forum - ask any CAD-related questions here, share your CAD knowledge on AutoCAD, Inventor, Revit and other Autodesk software with your peers from all over the world. To start a new topic, choose an appropriate forum.

Please abide by the rules of this forum.
This is a peer-to-peer forum. The forum doesn't replace the official direct technical support provided by ARKANCE for its customers.
How to post questions: register or login, go to the specific forum and click the NEW TOPIC button.
  FAQ FAQ  Forum Search   Events   Register Register  Login Login

Topic ClosedReverse Leader direction?
 Post Reply Post Reply
Author
  Topic Search Topic Search  Topic Options Topic Options
kylesom View Drop Down
Newbie
Newbie


Joined: 03.Dec.2009
Status: Offline
Points: 1 		Direct Link To This Post Topic: Reverse Leader direction?
    Posted: 03.Dec.2009 at 09:56
Hi all

A junior tech in my office has managed to insert about 30 drawings worth of quick leaders but in the wrong direction - he didnt bother adjusting dimscale to show the arrow for some reason.

Is there a way I can either reverse the leader direction, or reverse all leaders 180deg about their midpoint?

Line / Polyline reverse lisps wont work on a leader unfortunately but I'd imagine the same principle applies?

Cheers
Kyle
Back to Top
CarlB View Drop Down
Senior Member
Senior Member


Joined: 16.Oct.2009
Location: United States
Status: Offline
Points: 321 		Direct Link To This Post Posted: 03.Dec.2009 at 22:30
The same principle applies, pretty much.  But there are some dynamic things going on that sometimes produce odd results, like adding a short tail.
 
Try the following, it seems to mostly work..
 
(defun c:rld ()
    (while
      (setq ename (car (entsel "Select leader: ")))
      (setq Edata (entget Ename))
      (setq VertList (vl-remove-if-not '(lambda (a) (= (car a) 10)) Edata))
      (setq Ed_Tail (member (assoc 340 Edata) Edata))
      (setq Ed_Front (reverse (member (assoc 76 Edata) (reverse Edata))))
      (setq Ed_Rev (append Ed_Front (reverse Vertlist) Ed_Tail))
      (entmod Ed_Rev)
      (princ)
   )
)
Back to Top

Related CAD tips:


 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down



This page was generated in 0,070 seconds.
CADforum
CADforum
Tips and tricks, support, utilities, help, discussions on AutoCAD, LT, Inventor, Revit, Map, Civil 3D, 3ds Max, Fusion, Forma, Vault, PowerMill and other Autodesk software (community support by ARKANCE). See About CADforum.
Copyright © 2025 | Advertise with us | Online privacy
ARKANCE - Autodesk Platinum Partner & Training Center & Services Partner
CONTACT:
webmaster.cz@arkance.world | tel. +420 910 970 111
FB LN TW YT TW Blog RSS
.
TOPlist