Hatch to follow curved path

[marko_ribar]

What I finally did is this :
- check in bios if your CPU has feature virtualization and enable it...
Download Windows6.1-KB958559-x64-RefreshPkg.msu - this is Virtual PC for Windows 7
Download WindowsXPMode_en-us.exe - this is emulator of XP Service pack 3 for Virtual PC for Windows 7

Install WindowsXPMode_en-us.exe
Install Windows6.1-KB958559-x64-RefreshPkg.msu

Then go to Start->Programs->Virtual PC->WindowsXPMode - start it => new virtual PC XP Desktop will initialize and wait to complete installation...

Download Autodesk AutoCAD 2009 32 bit with 32 bit keygen
Unzip archive with AutoCAD and go to Virtual PC XP mode; start windows explorer and copy unzipped folder from Windows 7 drive to XP drive (desktop if you want)...

Install AutoCAD 2009 32 bit on XP (use install readme and activate product with keygen)

Now you can use Sean's 2 dll files with netload...

BTW... If you plan to make elevation views from your model made from 3D solid geometry, you can use SOLPROF command to make elevations, place UCS to be parallel with made elevation geometry that will lie in one plane and use this modified routine to transform Seant's hatch splines from 3dsolids to plane :

;; Project Point onto Plane  -  Lee Mac
;; Projects pt onto the plane defined by its origin and normal

(defun LM:ProjectPointToPlane ( pt org nm )
    (setq pt  (trans pt  0 nm)
          org (trans org 0 nm)
    )
    (trans (list (car pt) (cadr pt) (caddr org)) nm 0)
)

(defun c:splpucs nil (c:splineprojonucs))
(defun c:splineprojonucs ( / or nor ss spl splA coords coordsn fcoords fcoordsn ptx pty ptz pt ptu coordsnvar fcoordsnvar )
  (vl-load-com)
  (prompt "\nSelect SPLINE objects")
  (while (not ss)
    (setq ss (ssget "_:L" '((0 . "SPLINE"))))
  )
  (setq or (trans '(0.0 0.0 0.0) 1 0))
  (setq nor (mapcar '- (trans '(0.0 0.0 1.0) 1 0) (trans '(0.0 0.0 0.0) 1 0)))
  (repeat (setq n (sslength ss))
    (setq spl (ssname ss (setq n (1- n))))
    (setq splA (vlax-ename->vla-object spl))
    (setq coords (vlax-safearray->list (vlax-variant-value (vla-get-ControlPoints splA))))
    (if (/= (vla-get-NumberOfFitPoints splA) 0)
      (setq fcoords (vlax-safearray->list (vlax-variant-value (vla-get-FitPoints splA))))
    )
    (setq coordsn '())
    (repeat (/ (length coords) 3)
      (setq ptx (car coords))
      (setq pty (cadr coords))
      (setq ptz (caddr coords))
      (setq pt (list ptx pty ptz))
      (setq ptu (LM:ProjectPointToPlane pt or nor))
      (setq coords (cdddr coords))
      (setq coordsn (append coordsn ptu))
    )
    (setq coordsnvar (vlax-make-variant (vlax-safearray-fill  (vlax-make-safearray vlax-vbdouble (cons 0 (- (length coordsn) 1)))  coordsn)))
    (vla-put-ControlPoints splA coordsnvar)
    (if (/= (vla-get-NumberOfFitPoints splA) 0)
      (progn
        (setq fcoordsn '())
        (repeat (/ (length fcoords) 3)
          (setq ptx (car fcoords))
          (setq pty (cadr fcoords))
          (setq ptz (caddr fcoords))
          (setq pt (list ptx pty ptz))
          (setq ptu (LM:ProjectPointToPlane pt or nor))
          (setq fcoords (cdddr fcoords))
          (setq fcoordsn (append fcoordsn ptu))
        )
        (setq fcoordsnvar (vlax-make-variant (vlax-safearray-fill  (vlax-make-safearray vlax-vbdouble (cons 0 (- (length fcoordsn) 1)))  fcoordsn)))
        (vla-put-FitPoints splA fcoordsnvar)
      )
    )
  )    
(princ)
)
(princ "\nShortcut for c:splineprojonucs is c:splpucs")
(princ)

Now you have elevation (get rid of 3dsolids and save in new DWG) witch can now be dimensioned and further used - it is all in the same scale as orig. model...

BTW, BTW. After you use dlls, I suggest that you use PURGE command to get rid of block used in projecting hatched canvas to 3dsolid face you picked... I think if you forget to purge it, your DWG may be corrupted when saving DWG - this is what happened when I firstly posted my example and after I had to replace it with correct one...

So long from me, M.R.

[nod684]

What I finally did is this :
- check in bios if your CPU has feature virtualization and enable it...
Download Windows6.1-KB958559-x64-RefreshPkg.msu - this is Virtual PC for Windows 7
Download WindowsXPMode_en-us.exe - this is emulator of XP Service pack 3 for Virtual PC for Windows 7

Install WindowsXPMode_en-us.exe
Install Windows6.1-KB958559-x64-RefreshPkg.msu

Then go to Start->Programs->Virtual PC->WindowsXPMode - start it => new virtual PC XP Desktop will initialize and wait to complete installation...

Download Autodesk AutoCAD 2009 32 bit with 32 bit keygen
Unzip archive with AutoCAD and go to Virtual PC XP mode; start windows explorer and copy unzipped folder from Windows 7 drive to XP drive (desktop if you want)...

Install AutoCAD 2009 32 bit on XP (use install readme and activate product with keygen)

Now you can use Sean's 2 dll files with netload...

BTW... If you plan to make elevation views from your model made from 3D solid geometry, you can use SOLPROF command to make elevations, place UCS to be parallel with made elevation geometry that will lie in one plane and use this modified routine to transform Seant's hatch splines from 3dsolids to plane :

;; Project Point onto Plane - Lee Mac
;; Projects pt onto the plane defined by its origin and normal

(defun LM:ProjectPointToPlane ( pt org nm )
(setq pt (trans pt 0 nm)
org (trans org 0 nm)
)
(trans (list (car pt) (cadr pt) (caddr org)) nm 0)
)

(defun c:splpucs nil (c:splineprojonucs))
(defun c:splineprojonucs ( / or nor ss spl splA coords coordsn fcoords fcoordsn ptx pty ptz pt ptu coordsnvar fcoordsnvar )
(vl-load-com)
(prompt "\nSelect SPLINE objects")
(while (not ss)
(setq ss (ssget "_:L" '((0 . "SPLINE"))))
)
(setq or (trans '(0.0 0.0 0.0) 1 0))
(setq nor (mapcar '- (trans '(0.0 0.0 1.0) 1 0) (trans '(0.0 0.0 0.0) 1 0)))
(repeat (setq n (sslength ss))
(setq spl (ssname ss (setq n (1- n))))
(setq splA (vlax-ename->vla-object spl))
(setq coords (vlax-safearray->list (vlax-variant-value (vla-get-ControlPoints splA))))
(if (/= (vla-get-NumberOfFitPoints splA) 0)
(setq fcoords (vlax-safearray->list (vlax-variant-value (vla-get-FitPoints splA))))
)
(setq coordsn '())
(repeat (/ (length coords) 3)
(setq ptx (car coords))
(setq pty (cadr coords))
(setq ptz (caddr coords))
(setq pt (list ptx pty ptz))
(setq ptu (LM:ProjectPointToPlane pt or nor))
(setq coords (cdddr coords))
(setq coordsn (append coordsn ptu))
)
(setq coordsnvar (vlax-make-variant (vlax-safearray-fill (vlax-make-safearray vlax-vbdouble (cons 0 (- (length coordsn) 1))) coordsn)))
(vla-put-ControlPoints splA coordsnvar)
(if (/= (vla-get-NumberOfFitPoints splA) 0)
(progn
(setq fcoordsn '())
(repeat (/ (length fcoords) 3)
(setq ptx (car fcoords))
(setq pty (cadr fcoords))
(setq ptz (caddr fcoords))
(setq pt (list ptx pty ptz))
(setq ptu (LM:ProjectPointToPlane pt or nor))
(setq fcoords (cdddr fcoords))
(setq fcoordsn (append fcoordsn ptu))
)
(setq fcoordsnvar (vlax-make-variant (vlax-safearray-fill (vlax-make-safearray vlax-vbdouble (cons 0 (- (length fcoordsn) 1))) fcoordsn)))
(vla-put-FitPoints splA fcoordsnvar)
)
)
) 
(princ)
)
(princ "\nShortcut for c:splineprojonucs is c:splpucs")
(princ)

Now you have elevation (get rid of 3dsolids and save in new DWG) witch can now be dimensioned and further used - it is all in the same scale as orig. model...

BTW, BTW. After you use dlls, I suggest that you use PURGE command to get rid of block used in projecting hatched canvas to 3dsolid face you picked... I think if you forget to purge it, your DWG may be corrupted when saving DWG - this is what happened when I firstly posted my example and after I had to replace it with correct one...

So long from me, M.R.

thanks for the detailed explanation M.R.
will try this out at home cause i cannot install here in the office!
again thank you!