topic Z axis can't to zero. in Visual LISP, AutoLISP and General Customization Forum

Z axis can't to zero.

Anonymous — Fri, 12 Sep 2014 07:04:58 GMT

bad drawing. Z axis can't to zero.

I use command "FLATTEN" can't reset Z axis to zero. I use LISP ,but it's too.

;;vla
;;(HH:vlaZto0 (ssget))
(defun HH:vlaZto0 (ss / E N OBJ P1 P2)
  (defun MoveOne (e)
    (setq obj (vlax-ename->vla-object e))
    (vla-move obj p1 p2)
    (vla-move obj p2 p1)
  )
  (setq p1 (vlax-3d-point '(0 0 0)))
  (setq p2 (vlax-3d-point '(0 0 1000e99)))
  (cond
    ((equal (type ss) 'ENAME) (MoveOne ss))
    ((equal (type ss) 'PICKSET)
     (repeat (setq n (sslength ss))
       (MoveOne (ssname ss (setq n (1- n))))
     )
    )
  )
)

;;DXF
;;(XX:LeftPick:LineZto0Ent (car(entsel)))
(defun XX:LeftPick:LineZto0Ent (ss)
  (defun MoveOne (e)
    (entmod
      (mapcar
'(lambda (X)
    (cond
      ((or (equal (car x) 11) (equal (car x) 10)) (list (car x) (cadr x) (caddr x)))
      (T x)
    )
  )
(entget e)
      )
    )
  )
  (cond
    ((equal (type ss) 'ENAME) (MoveOne ss))
    ((equal (type ss) 'PICKSET)
     (repeat (setq n (sslength ss))
       (MoveOne (ssname ss (setq n (1- n))))
     )     
    )
  )
)

any routine or any tools can solve this problem ?

DWG file in attachments.

Re: Z axis can't to zero.

3wood — Fri, 12 Sep 2014 07:42:54 GMT

You can try attached CHZ20.vlx.

I also attached the result dwg here.

It doesn't work on Region objects though.

Re: Z axis can't to zero.

Anonymous — Fri, 12 Sep 2014 08:28:53 GMT

Re: Z axis can't to zero.

3wood — Fri, 12 Sep 2014 09:41:32 GMT

It doesn't hurt to get a free registration.

Re: Z axis can't to zero.

Anonymous — Tue, 16 Sep 2014 02:52:12 GMT

Hi 3wood.

can only chage the block ?

Re: Z axis can't to zero.

3wood — Tue, 16 Sep 2014 03:08:48 GMT

No, it changes all entities including block definitions except for a certain entity types such as region.