Topic: Edit Hatch Base

[GDF]

This code worked for me up till 2006...now it will not edit the hatch base within the routine below.

Code: [Select]

(defun HATCHBASEIT  (/ obj pt1 xcord ycord sp1) 
  (setq OBJ (entsel "\n* Select Hatch Pattern to Edit *"))
  (setq PT1 (getpoint "\n* Select New Starting Point of Hatch Pattern *"))
  (setq XCORD (car PT1))
  (setq YCORD (cadr PT1))
  (setq SP1 (list XCORD YCORD))
  (setvar "snapbase" SP1)
  (command "-hatchedit" OBJ "p" "" "" "")
  (command "snapbase" "0,0")
  (princ)
 )


[CAB]

Gary,
I don't have the answer but do have this code.
I did not record the where & who of the code.
; Edit Hatch Base Point

Code: [Select]

(defun c:ehbp (/ hatchobject newbasex newbasey)
  (setq hatchobject (entget (car (entsel)))) ; pick hatch
  (setq newbasepoint (getpoint "\nSelect new basepoint: ")); new basepoint
  (setq newbasex (car newbasepoint)) ; x coord
  (setq newbasey (car (cdr newbasepoint))) ; y coord
  (setq hatchobject
(subst (cons 43 newbasex) ; Changes the 43 code
(assoc 43 hatchobject) ; to new x coord
hatchobject ; for basepoint
)
  )
  (setq hatchobject
(subst (cons 44 newbasey) ; Changes the 44 code
(assoc 44 hatchobject) ; to new y coord
hatchobject ; for basepoint
)
  )
  (entmod hatchobject) ; Modifies entity properties
    (princ)
)

[CAB]

OK, I traced it back to here
http://cadvault.com/forums/showthread.php?p=108568
which is not a valid link, so I could not find the author.

[GDF]

Thanks Allen, that works perfectly in 2006.

[mohobrien]

You have no idea how happy you've made me. That's the first time that something of mine has been useful! :kewl: :love:

[CAB]

Well great. and thanks
Give me a header to add to it for future.
Good work!

[GDF]

Yes thanks.

Gary