Author Topic: Leadering Text...  (Read 7937 times)

0 Members and 1 Guest are viewing this topic.

Andrea

  • Water Moccasin
  • Posts: 2368
Leadering Text...
« on: September 29, 2008, 02:04:24 PM »
for who are interested...
I have create a simple routine to draw leader. It detect Mtext and Dtext.

command: TLEADER2 to draw Leader
command: TLEADERCONFIG to have vertical Line or accolade when detecting Mtext.

Download TLEADER2 here
Keep smile...

GDF

  • Water Moccasin
  • Posts: 2000
Re: Leadering Text...
« Reply #1 on: September 29, 2008, 02:15:44 PM »
Andrea

Not working for me.
I get the follwing:

Command: TLEADER2
nil


Gary
Why is there never enough time to do it right, but always enough time to do it over?
BricsCAD 2019x64 Windows 10x64

Andrea

  • Water Moccasin
  • Posts: 2368
Re: Leadering Text...
« Reply #2 on: September 29, 2008, 02:43:20 PM »
If you try this in a drawing who have no text....
nil will be the result.

is this what happen ?
Keep smile...

GDF

  • Water Moccasin
  • Posts: 2000
Re: Leadering Text...
« Reply #3 on: September 29, 2008, 04:00:59 PM »
If you try this in a drawing who have no text....
nil will be the result.

is this what happen ?

I get nil in all cases: text, dtext or mtext.


Command: (LOAD "E:/Arch_WorkOn/upDates/TLEADER2.VLX")
    --  T L E A D E R 2 --           :Activé
Par: Andrea Andreettinil



Command: tleader2
nil
Command:




Why is there never enough time to do it right, but always enough time to do it over?
BricsCAD 2019x64 Windows 10x64

TimSpangler

  • Water Moccasin
  • Posts: 2010
  • CAD Naked!!
Re: Leadering Text...
« Reply #4 on: September 29, 2008, 04:51:08 PM »
No workie for me neither.

Using 2007
ACA 2015 - Windows 7 Pro
All Comments and Content by TimSpangler, Copyright © 2016

Andrea

  • Water Moccasin
  • Posts: 2368
Re: Leadering Text...
« Reply #5 on: September 29, 2008, 04:53:40 PM »
anyone else have the same problem ?
 :?

It work for all user here..and home.
but..let me recheck the code and I let you know..
sorry about that.

Andrea.
Keep smile...

ronjonp

  • Needs a day job
  • Posts: 7052
Re: Leadering Text...
« Reply #6 on: September 29, 2008, 04:58:02 PM »
It works here.

Windows 10 x64 - AutoCAD /C3D 2020

Custom Build PC

Andrea

  • Water Moccasin
  • Posts: 2368
Re: Leadering Text...
« Reply #7 on: September 29, 2008, 05:03:37 PM »
strange... :?

I 've made a test on AutoCAD 2006, 2007, 2008 and 2009..
and work well.

I also make a test on english and French release.
I have asked to some friends working to another firms... if the troutine work and say yes.

now, i'm a little confused..
Keep smile...

TimSpangler

  • Water Moccasin
  • Posts: 2010
  • CAD Naked!!
Re: Leadering Text...
« Reply #8 on: September 29, 2008, 05:03:51 PM »
I love the concept.  Here is one that I rewrote a little while ago. Not really sure were it came from but it was very limited and din't always work.

*Disclaimer*
Work with Dtext Mtext and Text
This code will only work on text objects that are horiz or vert
The leader is placed on the layer of the selected text object
Leader is based on the current dimstyle.

Here is the rewrite:
Code: [Select]
;;; ------------------------------------------------------------------------
;;;    TEXTLEADER.LSP Version 1.2
;;;
;;;    Copyright© August, 2007
;;;    Timothy G. Spangler
;;;
;;;    Permission to use, copy, modify, and distribute this software
;;;    for any purpose and without fee is hereby granted, provided
;;;    that the above copyright notice appears in all copies and
;;;    that both that copyright notice and the limited warranty and
;;;    restricted rights notice below appear in all supporting
;;;    documentation.
;;;
;;;    Add leader to text (Non Associating Leader).
;;;
;;; ------------------------------------------------------------------------
(defun C:TL (/) (C:TEXTLEADER)); Program Shortcut

;;; MAIN FUNCTION ;;;;;;;;;;;;;;;;;;;;;;;;;
(defun C:TEXTLEADER (/ *error* OldCmdecho OldOsmode OldOrthoMode OldClayer ExludeList)
  
;; Set Env
(TEXT_LEADER_SET_ENV)

;;; Error Handling Routine ;;;
(defun *error* (MSG)
(if(not(member MSG '("Function cancelled" "quit / exit abort")))
(princ (strcat "\n*** Program Error: " (strcase MSG) " ***"))
(princ "\n... Program Cancelled ...")
)
(while (< 0 (getvar "CMDACTIVE"))
(command)
)
(TEXT_LEADER_RESET_ENV)
(princ)
)
;; Main Code
(TEXT_LEADER_RUN)
)
;;; ------------ Begin Main Routine
(defun TEXT_LEADER_RUN (/ TextEnt TextEntList TextLayer DtextBox DtextEntList TextRotate MtextLine
 DtextInsPoint TempPoint LeaderEnd)

;; Get text object from selection
(while (null (setq TextEnt (entsel "\n Select Top or Bottom Line of Text: ")))
(princ "\n Nothing Selected...")
)
;; Get entity list from text
(setq TextEntList (entget (car TextEnt)))
;; Get text layer
(setq TextLayer (cdr(assoc 8 TextEntList)))
;; Set layer to text layer
(setvar "CLAYER" TextLayer)
;; If selected text is "TEXT"
(if (= (cdr (assoc 0 TextEntList)) "TEXT")
 (progn
   (setq DtextBox (textbox (entget (car TextEnt))))
   (setq DtextEntList (entget (car TextEnt)))
(setq TextRotate (cdr(assoc 50 DtextEntList)))
 )
)
;; If selected text is "MTEXT"
(if (= (cdr (assoc 0 TextEntList)) "MTEXT")
 (progn
   (command "explode" TextEnt)
   (setq MtextLine (ssget (cadr TextEnt)))
   (setq DtextEntList (entget (ssname MtextLine 0)))
   (setq DtextBox (textbox (entget (ssname MtextLine 0))))
   (setq TextRotate (cdr(assoc 50 DtextEntList)))
(command "u")
 )
)
;; If selected entity is not "TEXT" or "MTEXT"
(if (member (cdr (assoc 0 TextEntList)) ExludeList)
 (progn
(alert "Selected entity is not TEXT or MTEXT")
(TEXT_LEADER_RUN)
)
)
;; Get insertion point of text
(setq DtextInsPoint (cdr (assoc 10 DtextEntList)))
;; Check the rotation of the text
(cond
((equal TextRotate 1.5708 0.0001)
;; Get center point of textbox (from 0,0)
(setq TempPoint
(list
(/ (+ (cadar DtextBox)(cadadr DtextBox)) 2.0)
(/ (+ (caadr DtextBox)(caar DtextBox)) 2.0)
(cadddr (assoc 10 DtextEntList))
)
)
;; Get the center point of the selected text object
(setq InsertPoint
(list
(- (car DtextInsPoint)(car TempPoint))
(+ (cadr DtextInsPoint)(cadr TempPoint))
(+ (caddr DtextInsPoint)(caddr TempPoint))
)
)
;; Set the leader end point
(setq LeaderEnd
(+ (/ (- (caadr DtextBox) (caar DtextBox)) 2.0)
   (* 0.0625 (getvar "dimscale")) ;CHANGE THIS TO CHANGE GAT BETWEEN TEXT AND LEADER
)
)
;; Prompt to create the leader
(prompt "\n Select Leader Start and Bend Points: ")
;; Run the leader command with the point filter
(command "leader"
PAUSE
  ".X"
  InsertPoint
  PAUSE
  (polar InsertPoint (angle InsertPoint (getvar "lastpoint")) LeaderEnd)
  ""
  ""
  "n"
)
)
((equal TextRotate 0.0 0.0001)
;; Get center point of textbox (from 0,0)
(setq TempPoint
(list
(/ (+ (caadr DtextBox) (caar DtextBox)) 2.0)
(/ (+ (cadar DtextBox) (cadadr DtextBox)) 2.0)
(cadddr (assoc 10 DtextEntList))
 )
)
;; Get the center point of the selected text object
(setq InsertPoint
(list
(+ (car DtextInsPoint) (car TempPoint))
(+ (cadr DtextInsPoint) (cadr TempPoint))
(+ (caddr DtextInsPoint) (caddr TempPoint))
 )
)
;; Set the leader end point
(setq LeaderEnd
(+ (/ (- (caadr DtextBox) (caar DtextBox)) 2.0)
   (* 0.0625 (getvar "dimscale")) ;CHANGE THIS TO CHANGE GAP BETWEEN TEXT AND LEADER
)
)
;; Prompt to create the leader
(prompt "\n Select Leader Start and Bend Points: ")
;; Run the leader command with the point filter
(command "leader"
PAUSE
  ".Y"
  InsertPoint
  PAUSE
  (polar InsertPoint (angle InsertPoint (getvar "lastpoint")) LeaderEnd)
  ""
  ""
  "n"
)
)
((/= (or (equal TextRotate 0.0 0.0001)(equal TextRotate 1.5708 0.0001)))
(alert "Selected text not at a suitable angle")
(TEXT_LEADER_RUN)
)
)
(TEXT_LEADER_RESET_ENV)
)
;;; ------------ Set Environment Settings
(defun TEXT_LEADER_SET_ENV (/)

;; Set sysetem variables
(setq OldCmdecho (getvar "CMDECHO"))
(setq OldOsmode (getvar "OSMODE"))
(setq OldOrthoMode (getvar "ORTHOMODE"))
(setq OldClayer (getvar "CLAYER"))

(setvar "CMDECHO" 0)
(setvar "ORTHOMODE" 0)
(setvar "OSMODE" 513)

;;; Undo marker
(command "_UNDO" "BEGIN")

;; Set the exclusion list
(setq ExludeList (list "3DFACE" "3DSOLID" "ARC" "ATTDEF" "ATTRIB"  "BODY" "CIRCLE" "DIMENSION" "ELLIPSE"
"HATCH" "IMAGE" "INSERT" "LEADER" "LINE" "LWPOLYLINE" "MLINE" "OLEFRAME" "OLE2FRAME" "POINT" "POLYLINE"
"RAY" "REGION" "SEQUEND" "SHAPE" "SOLID" "SPLINE" "TOLERANCE" "TRACE" "VERTEX" "VIEWPORT" "XLINE"))

;; Add program description to status line
(grtext -2 (strcat "Text Leader " "v1.2" " Copyright© 2007"))
)
;;; ------------ Reset Environment Settings
(defun TEXT_LEADER_RESET_ENV (/)

;;; Undo marker
(command "_UNDO" "END")

;; Reset system variable
(grtext -2 "")
(setvar "CLAYER" OldClayer)
(setvar "OSMODE" OldOsmode)
(setvar "ORTHOMODE" OldOrthoMode)
(setvar "CMDECHO" OldCmdecho)

(princ)
)
;;;
;;; Echos to the command line
(princ "\n Text Leader v1.2© \n Timothy Spangler, \nAugust, 2007....loaded.")
(terpri)
(princ "Type \"TL\" to run")
(print)
;;; End echo
ACA 2015 - Windows 7 Pro
All Comments and Content by TimSpangler, Copyright © 2016

Andrea

  • Water Moccasin
  • Posts: 2368
Re: Leadering Text...
« Reply #9 on: September 29, 2008, 05:04:18 PM »
It works here.

wich AutoCAD version Ronjomp ?
Keep smile...

Bob Wahr

  • Guest
Re: Leadering Text...
« Reply #10 on: September 29, 2008, 05:08:21 PM »
2008 sp1, XP sp3.

Works fine for me.

Andrea

  • Water Moccasin
  • Posts: 2368
Re: Leadering Text...
« Reply #11 on: September 29, 2008, 05:10:23 PM »
Keep smile...

Bob Wahr

  • Guest
Re: Leadering Text...
« Reply #12 on: September 29, 2008, 06:33:51 PM »
It kinda makes me tingly in my nether regions.  Good job Andrea.

Andrea

  • Water Moccasin
  • Posts: 2368
Re: Leadering Text...
« Reply #13 on: September 29, 2008, 07:11:24 PM »
It kinda makes me tingly in my nether regions.  Good job Andrea.

 :-)
thanks.




Keep smile...

Bob Wahr

  • Guest
Re: Leadering Text...
« Reply #14 on: September 29, 2008, 07:18:55 PM »
Side note:  Is that baby in your avatar yours?  It is incredibly cute.