Quick Navigation AutoLISP, Visual LISP

Welcome to the CADTutor forums, probably the most lively and friendly AutoCAD forums on the web. You will need to register in order to post a question and to see all the content on this board. See How to register for details. Use the Lost password recovery fighter xl form if you ever forget either your password or username. Be sure to check out the FAQ for more information.
Discipline Mechanical elfert's fighter xl Discipline Details Occupation AutoCAD Supporter Discipline Mechanical Details AutoCAD Support of AutoCAD mechanical and AutoCAD 2011 Using AutoCAD 2011 Join Date Nov 2011 Location Denmark, Esbjerg Posts 63
Code: ;;;Vv - Calculates the weight a steelplate based on given in of plate thickness and a hatch or polyline object. :::Using a mass proberties of 7850 kg/m3 of steel plate. (defun c:vv ( / oldlayer oldcmdecho oldosnap ctextstyle fae thk wgt frar frarr fwgt fwgtm far farsf fip ) (setvar "OSMODE" 0) (setvar fighter xl "cmdecho" 0) (setq oldlayer (getvar "clayer")) (setq oldcmdecho (getvar "cmdecho")) (setq oldosnap fighter xl (getvar "osmode")) fighter xl (setq ctextstyle (getvar "textstyle")) (Command "-style" "WEIGHT" "ISOCP.shx" fighter xl "3.5" "1" "0" "n" "n" "n") (if (not (tblsearch "LAYER" fighter xl "AM_WEIGHT")) (Command "-layer" "n" "AM_WEIGHT" "c" "6" "AM_WEIGHT" "s" "AM_WEIGHT" "P" "N" "AM_WEIGHT" "") (setvar "clayer" "AM_WEIGHT")) (command "-color" "BYLAYER" "") (prompt "\nChoose Polyline or Hatch for area and weight calculation: ") (setq fae (car (entsel))) (Command "area" "e" fae) (setq thk (getreal "\nThickness of plate? in mm: ")) (setq wgt (* thk 7850)) (setq frar (/ (getvar "area") 1)) (setq frarr (/ (getvar "area") 1000000)) (setq fwgt (* frarr wgt)) (setq fwgtm (/ fwgt 1000)) (setq far (rtos fwgtm 2 4)) (setq farsf (strcat "Plate thickness = " (rtos thk 2 2) "mm. fighter xl -- Area =" (rtos frar 2 4) " mm2. -- Area =" (rtos frarr 2 4) " m2. -- weight = " far " kg./plate")) (setq fip (getpoint "\nChoose Text Insert Point:")) (Command "text" fighter xl "s" "WEIGHT" "j" "MC" fip "45" farsf) (command "-layer" "s" oldlayer "") (command "-color" "BYLAYER" "") (setvar "TEXTSTYLE" ctextstyle) (setvar "OSMODE" oldosnap) (setvar "CMDECHO" oldcmdecho) (princ) ) Thx in advance!
Computer Details BlackBox's Computer Details Operating System: Windows 7 Professional Computer: Dell Precision T3600 CPU: Hex-Core Intel Xeon 3.2Ghz RAM: 32GB Graphics: 3GB NVIDIA Quadro K4000 Primary Storage: 256GB SSD Monitor: Dual 24" fighter xl Dell Ultrasharp Widescreen Monitors Using Civil 3D 2014 Join Date Nov 2009 Posts 4,415
Discipline fighter xl Mechanical elfert's Discipline Details Occupation AutoCAD Supporter Discipline Mechanical Details AutoCAD Support of AutoCAD mechanical and AutoCAD fighter xl 2011 Using AutoCAD 2011 Join Date Nov 2011 Location Denmark, Esbjerg Posts 63
Quick Navigation AutoLISP, Visual LISP & DCL Top Site Areas Settings Private fighter xl Messages Subscriptions Who's Online Search Forums fighter xl Forums fighter xl Home Forums CADTutor News, Announcements & FAQ Feedback AutoCAD AutoCAD Beginners' Area Student Project Questions AutoCAD 2D Drafting, Object Properties & Interface AutoCAD Drawing fighter xl Management & Output AutoCAD 3D Modelling & Rendering fighter xl AutoCAD Vertical Products Vertical Products: General Architecture & ADT Civil 3D & LDD Electrical Map 3D Mechanical MEP P&ID AutoCAD LT CAD Management AutoCAD Bugs, Error Messages & Quirks AutoCAD General Software & Licensing Hardware & Operating Systems AutoCAD RSS Feeds AutoCAD Customization The CUI, Hatches, Linetypes, Scripts & Macros AutoLISP, Visual LISP & DCL .NET, ObjectARX & VBA Application Archive Autodesk Revit Revit General Revit Architecture Revit MEP Revit Structure Autodesk 3ds Max 3D Modelling UVW Mapping, Textures & Materials Cameras, Lighting & Rendering Rigging & Animation 3ds Max General Infrastructure, Architecture & Landscape Visualisation Other Autodesk Products Autodesk Software General Autodesk Inventor Digital Design SketchUp Rhino SolidWorks fighter xl MicroStation Design Software Web Design Catch All Resources Tutorials & Tips'n'Tricks AutoCAD Museum Blocks, Images, Models & Materials Useful Links
Distance Calculation
BB code is On Smilies are On [IMG] code is On HTML code is Off