测验绘图错误。Z轴can

77077 · 发表于 2022-7-5 22:27:21

我使用命令“展平”无法将Z轴重置为零。
我使用LISP，但它太难了。


[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]

copy


[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文件。
多部分存档

需要全部下载并解压缩。。。
帮助第1.rar部分
帮助第2.rar部分
帮助第3.rar部分

77077 · 发表于 2022-7-5 22:40:54

有什么例程或工具可以解决这个问题吗？

77077 · 发表于 2022-7-5 22:59:52

需要下载所有“rar”文件并解压缩。。。

steven-g · 发表于 2022-7-5 23:12:35

只是一个评论，我没有一个程序可以在我的works电脑上打开，也许其他人也是这样，你可以试试标准的zip文件格式。

77077 · 发表于 2022-7-5 23:26:12

很抱歉史提芬。我使用zip，但需要多部分存档。所以第二个包后缀是“*.z01”，无法上传。不支持该文件类型。

在这里可以下载DWG文件。
http://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/z-axis-can-t-to-zero/td-p/5270047

eldon · 发表于 2022-7-5 23:36:51

也许是图形中3D对象的范围造成了问题。

3D块，尤其是MInserted块可能会造成麻烦。

[编程交流] 测验绘图错误。Z轴can

发表回复

精选推荐