Jump to content

Search the Community

Showing results for tags 'thousands comma separator'.

  • Search By Tags

    Type tags separated by commas.

  • Search By Author

Content Type


Forums

  • 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

Categories

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

Find results in...

Find results that contain...


Date Created

  • Start

    End

Last Updated

  • Start

    End

Filter by number of...

Found 1 result

  1. Russello
    Hello everyone! I have a lisp routine here that computes and displays the area of a polygon. My problem is it shows no comma for areas above 999. Can someone help me how to improve this lisp routine? Thanks in advance. (defun c:LAR ( / sz o1 ipt opp parea h) (while (setq clyer(getvar"clayer")) (command "layer" "m" "Boundary for Area" "") (command "layer" "c" "4" "Boundary for Area" "") (command "layer" "p" "n" "Boundary for Area" "") (command "color" "bylayer") (setq ipt (getpoint "\n Select Internal Point of Lot: ")) (command "-Boundary" ipt"" "") (setq o1 (entlast)) (redraw o1 3) (command "area" "O" "L") (setq opp (getvar "area")) (initget 1) (setq parea(getpoint"\n Select insertion point")) (command "layer" "m" "Area Text" "") (command "layer" "c" "81" "Area Text" "") (command "color" "bylayer") (initget 1) (command "regen") (command "text" parea "" (strcat "A=" (rtos opp 2 0) " Sq.m.")) (setvar"clayer"clyer) ) )
×
×
  • Create New...