(setq scl (/ (getvar 'viewsize) (cadr (getvar 'screensize))) (defun LM:grsnap:displaysnap ( pnt lst col / scl ) pnt - UCS point at which to display the symbol Object Snap for grread: Display Snap - Lee Mac (if (zerop (logand 16384 (setq osm (setvar 'osmode (boole 6 16384 (getvar 'osmode)))))) (trans (list (car pt6) (cadr pt6) (caddr pt4)) vec 1) (trans (list (car pt6) (cadr pt6) (caddr pt5)) vec 1) (mapcar '(lambda ( a b ) (grdraw a b 1 1)) (setq vec (trans (mapcar '- pt2 pt1) 1 0 t) (or dyn (setq pt3 (getpoint "\nSpecify 3rd point: " pt1))) (setq pt2 (getpoint "\nSpecify 2nd point: " pt1)) (setq pt1 (getpoint "\nSpecify 1st point: ")) (if (not (wcmatch (strcase msg t) "*break,*cancel*,*exit*")) (defun 3p-rec ( dyn / *error* gr1 gr2 len elv lst msg ocs osf osm pt1 pt2 pt3 pt4 pt5 pt6 str tmp vec ) (defun c:3prd nil (3p-rec t )) Dynamic version (defun c:3pr nil (3p-rec nil)) Standard version specify a side length when prompted for the third point. Modified the dynamic version to incorporate the ability to Finally, this program has been designed to perform successfully The latest version and full documentation for this application may enable full Object Snap functionality during the dynamic prompt. The dynamic version of the program utilises my GrSnap utility to will proceed to construct the defined rectangle using an Following valid specification of all three points, the program The user may exit the program at any time by pressing 'Enter' or real-time preview of the resulting rectangle whilst the user is If the dynamic command is used ('3PRD') the program will display a to the edges defined by the first two points. of the second pair of edges, which are constructed perpendicular prompted for a third point to determine the length and direction Following valid responses to these prompts, the user is then pairs of parallel sides of the resulting rectangle. is first prompted to specify two points defining one of the two Upon issuing either command at the AutoCAD command-line, the user a standard
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |