Pn ( getval 10 ( reverse ( entget ent ))) ) ) end pt ( command ".POINT" pn ) ( setq e ( entlast )) ( entdel e ) ( command ".AREA" "_O" ent ) ( command ".DIVIDE" Pts ( list ( last pts )) ) ) ( setq pts ( list ( getval 10 ent )) start pt ( if ( = ( getval 0 ent ) "POLYLINE" ) heavy pline ( progn ( setq e ent ) ( while ( = ( getval 0 ( setq e ( entnext e ))) "VERTEX" ) ( setq pts ( cons ( getval 10 e ) pts )) ) ( setq pn ( car pts ) ( cond (( = ( type ele ) 'ENAME ) ENAME ( cdr ( assoc grp ( entget ele ))) ) (( not ele ) nil ) empty value (( not ( listp ele )) nil ) invalid ele (( = ( type ( car ele )) 'ENAME ) entsel-list ( cdr ( assoc grp ( entget ( car ele )))) ) ( T ( cdr ( assoc grp ele ))) ) ) entget-list "converts" SPLINE to PLINE ( defun spl2pl (ent / osm pdm deltaL pn pts e ) ( setq osm ( getvar "OSMODE" )) ( setq pdm ( getvar "PDMODE" )) ( setvar "OSMODE" 0 ) ( setvar "PDMODE" 0 ) ( setqĭeltaL ( * ( / ( GETVAR "viewsize" ) ( CADR ( GETVAR "screensize" ))) ( getvar "pickbox" ) 2.0 ) ) max segment=2 * size of like the wellknown (dxf) function but accepts all kinds of entity representations (ename, entget list, entsel list) ( defun GETVAL (grp ele ) "dxf value" of any ent. ( defun c:my-fillet ( / getval spl2pl e1 e2 p2 l e ss ) GETVAL - returns the group value of an entity. MY-FILLET.LSP Fillet PolyLines Fillets Any Type of Line (Line, PolyLine, LWPolyLine or Spline) by Ibro Vehabovic, March 1999. Luckily I found this routine that lets you FILLET objects just like before…įillet Behavior introduced in AutoCAD 2012:įillet behavior prior to 2012 and that the lisp routine provides: This is no longer the case with the FILLET command in 20. The missing feature that many are used to seeing is when you fillet a polyline that has a width applied to it, the other objects would inherit the width of the polyline. Because of this enhancement of the JOIN command, it appears that Autodesk took away a useful feature from the FILLET command. It will join all of the selected objects regardless of what type of objects they are (line, arc, polyline, 3Dpolyline, spline) and turn them into the most complicated object in the selection set. With the release of AutoCAD 2012 the JOIN command received some improvements.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |