Jump to content

Search the Community

Showing results for tags 'arrowhead'.

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


  • CADTutor
    • News, Announcements & FAQ
    • Feedback
  • AutoCAD
    • AutoCAD Beginners' Area
    • AutoCAD 2D Drafting, Object Properties & Interface
    • AutoCAD Drawing Management & Output
    • AutoCAD 3D Modelling & Rendering
    • AutoCAD Vertical Products
    • AutoCAD LT
    • CAD Management
    • AutoCAD Bugs, Error Messages & Quirks
    • AutoCAD General
    • AutoCAD Blogs
  • AutoCAD Customization
    • The CUI, Hatches, Linetypes, Scripts & Macros
    • AutoLISP, Visual LISP & DCL
    • .NET, ObjectARX & VBA
    • Application Beta Testing
    • Application Archive
  • Other Autodesk Products
    • Autodesk 3ds Max
    • Autodesk Revit
    • Autodesk Inventor
    • Autodesk Software General
  • Other CAD Products
    • BricsCAD
    • SketchUp
    • Rhino
    • SolidWorks
    • MicroStation
    • Design Software
    • Catch All
  • Resources
    • Tutorials & Tips'n'Tricks
    • AutoCAD Museum
    • Blocks, Images, Models & Materials
    • Useful Links
  • Community
    • Introduce Yourself
    • Showcase
    • Work In Progress
    • Jobs & Training
    • Chat
    • Competitions


  • Programs and Scripts
  • 2D AutoCAD Blocks
  • 3D AutoCAD Blocks
  • Images
    • Backgrounds

Find results in...

Find results that contain...

Date Created

  • Start


Last Updated

  • Start


Filter by number of...

Found 2 results

  1. I have a LISP that creates balloons simply for me, the problem is the LISP only makes balloons with a dot on the end. I have been playing about with it trying to make it have the option to put an arrow head on the end but can't work it out after trying for quite a while. The draughtsmen here have been using it since they started so I'm not sure if LISPs will be written the same way now as they were in '87! Any help would be great. Cheers. Here is the code; ;---------- BALLOON.LSP Simon Jones 24-8-87 ; Macro to simplify the construction of item-number labels. ; The size of the dot, text and balloon are based on the dimensioning ; variables. If DIMASZ is set to zero the dot is not drawn. If the ; current text style has a fixed height then that height is used to ; scale the balloon and its text. ; A null response to the first prompt ("From point: ") will terminate ; the command. ; Numeric text is incremented to aid itemising components of a drawing (defun C:BALLOON (/ a b c d h l r txt) ; a : Leader start ; b : Balloon centre ; c : Leader end point ; d : Dot diameter ; h : Text height ; r : Balloon radius ; Store and set system variables (setq ce (getvar "CMDECHO")) (setq bm (getvar "BLIPMODE")) (setvar "CMDECHO" 0) (setvar "BLIPMODE" 0) ; Set dot diameter to tenth of arrow head size (setq d (* (getvar "DIMSCALE") (getvar "DIMASZ") 0.3)) ; Check whether the current text style has a fixed height (setq ts (cdr (assoc 40 (tblsearch "STYLE" (getvar "TEXTSTYLE"))))) (if (zerop ts) ; Set balloon radius based on dimension text height (setq r (* (getvar "DIMSCALE") (getvar "DIMTXT") 1.85) h (* (getvar "DIMSCALE") (getvar "DIMTXT") 1.3) ) ; Set balloon radius based on current style text height (setq r (* ts 1.85)) ) ; Get start point (a null response will terminate function) (setq a (getpoint "\nFrom point: ")) (if a (progn ; Get balloon cntre disallowing null responses (initget 1) (setq b (getpoint a "\nBalloon centre: ")) (if (null oldtxt) (setq oldtxt "1")) (prompt (strcat "\nText <" oldtxt ">: ")) (setq txt (getstring)) (if (= txt "") (setq txt oldtxt)) (setvar "BLIPMODE" 0) ; Draw dot if DIMASZ is set (if (> d 0) (command "DONUT" "0" d a "")) ; Calculate point where leader crosses balloon (setq c (polar a (angle a b) (- (distance a b) r) ) ) ; Draw leader (command "LINE" a c "") ; Draw balloon (command "CIRCLE" b r) ; Draw text (checking against fixed text height) (if (zerop ts) (command "TEXT" "M" b h "0" txt) (command "TEXT" "M" b "0" txt) ) (setq oldtxt (itoa (1+ (atoi txt)))) ) ) ; Reset system variables (setvar "BLIPMODE" bm) (setvar "CMDECHO" ce) (princ) )
  2. Hi folks, I need help on fixing the arrowhead. Some drawings come with default setting for Arrowheads as OPEN. When I run an utility (which inserts a leader with custom texts as a block), it inserts arrowheads as open. My requirement is to add Solid arrowheads always. I tried to force it via below code but its not forcing. Can anyone suggest? What could be wrong? (defun Addleader (/ pt1) (setvar "DIMLDRBLK" ".") (while (setq pt1 (getpoint "\nInserting task description note, Specify Arrow End Point or hit Enter to close:")) (Command "_INSERT" "CP TEXT" pt1 "" "" "") (command "explode" "l") );end while ) ;end defun EDIT: I think it has to do something with the default DIMSTYLE. And the block I'm trying to insert it on the Standard dim style. Not sure how to handle this.
  • Create New...