77077 Posted September 11, 2014 Share Posted September 11, 2014 (edited) I use command "FLATTEN" can't reset Z axis to zero. I use LISP ,but it's too. [color=#444444][color=#444444];;vla[/color][/color] [color=#444444][color=#444444];;(HH:vlaZto0 (ssget))[/color] [color=#444444](defun HH:vlaZto0 (ss / E N OBJ P1 P2)[/color] [color=#444444] (defun MoveOne (e)[/color] [color=#444444] (setq obj (vlax-ename->vla-object e))[/color] [color=#444444] (vla-move obj p1 p2)[/color] [color=#444444] (vla-move obj p2 p1)[/color] [color=#444444] )[/color] [color=#444444] (setq p1 (vlax-3d-point '(0 0 0)))[/color] [color=#444444] (setq p2 (vlax-3d-point '(0 0 1000e99)))[/color] [color=#444444] (cond[/color] [color=#444444] ((equal (type ss) 'ENAME) (MoveOne ss))[/color] [color=#444444] ((equal (type ss) 'PICKSET)[/color] [color=#444444] (repeat (setq n (sslength ss))[/color] [color=#444444] (MoveOne (ssname ss (setq n (1- n))))[/color] [color=#444444] )[/color] [color=#444444] )[/color] [color=#444444] )[/color] [color=#444444])[/color] [/color] ------------------------------------------- [color=#444444][color=#444444];;DXF[/color][/color] [color=#444444][color=#444444];;(XX:LeftPick:LineZto0Ent (car(entsel)))[/color] [color=#444444](defun XX:LeftPick:LineZto0Ent (ss)[/color] [color=#444444] (defun MoveOne (e)[/color] [color=#444444] (entmod[/color] [color=#444444] (mapcar[/color] [color=#444444]'(lambda (X)[/color] [color=#444444] (cond[/color] [color=#444444] ((or (equal (car x) 11) (equal (car x) 10)) (list (car x) (cadr x) (caddr x)))[/color] [color=#444444] (T x)[/color] [color=#444444] )[/color] [color=#444444] )[/color] [color=#444444](entget e)[/color] [color=#444444] )[/color] [color=#444444] )[/color] [color=#444444] )[/color] [color=#444444] (cond[/color] [color=#444444] ((equal (type ss) 'ENAME) (MoveOne ss))[/color] [color=#444444] ((equal (type ss) 'PICKSET)[/color] [color=#444444] (repeat (setq n (sslength ss))[/color] [color=#444444] (MoveOne (ssname ss (setq n (1- n))))[/color] [color=#444444] ) [/color] [color=#444444] )[/color] [color=#444444] )[/color] [color=#444444])[/color][/color] DWG file in attachments. Multi-part archive Need download all and unzip... help.part1.rar help.part2.rar help.part3.rar Edited September 12, 2014 by 77077 Quote Link to comment Share on other sites More sharing options...
77077 Posted September 12, 2014 Author Share Posted September 12, 2014 any routine or any tools can solve this problem ? Quote Link to comment Share on other sites More sharing options...
77077 Posted September 12, 2014 Author Share Posted September 12, 2014 Need download all “rar” file and unzip... Quote Link to comment Share on other sites More sharing options...
steven-g Posted September 12, 2014 Share Posted September 12, 2014 Just a comment, I don't have a program that will unrar on my works computer, maybe thats the case with other people, you could maybe try a standard zip file format. Quote Link to comment Share on other sites More sharing options...
77077 Posted September 12, 2014 Author Share Posted September 12, 2014 Just a comment, I don't have a program that will unrar on my works computer, maybe thats the case with other people, you could maybe try a standard zip file format. sorry ! steven. I use zip, but need Multi-part archive .so the second package suffix is"*.z01" ,can't upload. The file type is not supported. here can download DWG file. http://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/z-axis-can-t-to-zero/td-p/5270047 Quote Link to comment Share on other sites More sharing options...
eldon Posted September 12, 2014 Share Posted September 12, 2014 Perhaps it is the range of 3D objects in your drawing which is giving the trouble. 3D blocks and particularly MInserted blocks might be causing trouble. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.