[转贴]：Hatchbase

eachy

2. 
   
3. ;;; By Jimmy Bergmark
   
4. ;;; Copyright (C) 1997-2005 JTB World, All Rights Reserved
   
5. ;;; Website: [url]www.jtbworld.com[/url]
   
6. ;;; E-mail: [email]info@jtbworld.com[/email]
   
7. ;;;
   
8. ;;; Change the hatch base point on one or many hatches
   
9. ;;;
   
10. (defun c:hatchbase (/ oldos oldsn oldcmdecho i ent)
    
11.   (setq oldos (getvar "osmode"))
    
12.   (setq oldsn (getvar "snapbase"))
    
13.   (setq oldcmdecho (getvar "cmdecho"))
    
14.   (setvar "osmode" 47)
    
15.   (princ "\nSelect point you wish Hatch(s) to start from...")
    
16.   (command "._snapbase" pause)
    
17.   (princ "\nSelect Hatch(s) to adjust snapbase")
    
18.   (if (not (setq ss (ssget)))
    
19.     (alert "\n No Entities selected..... Please try again.")
    
20.     (progn
    
21.       (setq i 0)
    
22.       (while (setq ent (ssname ss i))
    
23.         (command "._hatchedit" ent "" "" "" "")
    
24.         (setq i (1+ i))
    
25.       )
    
26.     )
    
27.   )
    
28.   (setvar "snapbase" oldsn)
    
29.   (setvar "osmode" oldos)
    
30.   (setvar "cmdecho" oldcmdecho)
    
31.   (princ)
    
32. 
    
33. )

<br /> ;;; By Jimmy Bergmark<br /> ;;; Copyright (C) 1997-2005 JTB World, All Rights Reserved<br /> ;;; Website: [url]www.jtbworld.com[/url]<br /> ;;; E-mail: [email]info@jtbworld.com[/email]<br /> ;;;<br /> ;;; Change the hatch base point on one or many hatches<br /> ;;;<br /> (defun c:hatchbase (/ oldos oldsn oldcmdecho i ent)<br />   (setq oldos (getvar "osmode"))<br />   (setq oldsn (getvar "snapbase"))<br />   (setq oldcmdecho (getvar "cmdecho"))<br />   (setvar "osmode" 47)<br />   (princ "\nSelect point you wish Hatch(s) to start from...")<br />   (command "._snapbase" pause)<br />   (princ "\nSelect Hatch(s) to adjust snapbase")<br />   (if (not (setq ss (ssget)))<br />     (alert "\n No Entities selected..... Please try again.")<br />     (progn<br />       (setq i 0)<br />       (while (setq ent (ssname ss i))<br />         (command "._hatchedit" ent "" "" "" "")<br />         (setq i (1+ i))<br />       )<br />     )<br />   )<br />   (setvar "snapbase" oldsn)<br />   (setvar "osmode" oldos)<br />   (setvar "cmdecho" oldcmdecho)<br />   (princ)<br /> <br /> )