(vla-get-ActiveDocument (vlax-get-acad-object)) (list (float (car 3dpt)) (float (cadr 3dpt))) (vl-catch-all-apply 'vlax-curve-getArea (list curve)) (setq sArray (vlax-safearray-fill arraySpace ptsList)) (defun list->variantArray (ptsList / arraySpace sArray) Knot-list controlpoint-list kn cn pos xv bot area hst noarea List->variantArray 3dPoint->2dPoint A2k ent i ss2 Space cw errexit undox olderr oldcmdecho ss1 lastent en1 en2 ss lwp (defun hatchb (hl / es blay ed1 ed2 loops1 bptf partĮt noe plist ic bul nr ang1 ang2 obj *ModelSpace* *PaperSpace* (defun c:hbl () (hatchb T)) this line can be commented out if there is an existing command called hbl (defun c:hb () (hatchb nil)) this line can be commented out if there is an existing command called hb should be working on older versions too. Support for hatches in non WCS thanks to xiaocai on current layer/color/linetype using the hb or hatchb command Create the boundary on the same layer as the hatch using the hbl command and Nothing changed from 2.1 other that it's been confirmed to work with AutoCAD 2007 Fix to take PEDITACCEPT variable used in AutoCAD 2004 into account Area returned if no islands is found since it's not consistant Changed mail and homepage so it's easy to find when new versions comes up. Removed an irritating semicolon to enable polylines to be created. Fixed bug with entmake of line with no Z for r14 Objects created joined to lwpolyline if possible Counterclockwise arcs and ellipses fixed Copyright (C) 1997-2008 JTB World, All Rights Reserved Known problem with some elipses and splines Recreates hatch boundary by selecting a hatch More Free AutoLISP and Visual LISP code snippets for AutoCAD This is also new possible to do with the Hatch Edit command in newer versions of AutoCAD.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. Archives
January 2023
Categories |