社区 › Auto Lisp › 测验绘图错误。Z轴can

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

测验绘图错误。Z轴can

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

;;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))))
   )   
    )
)
)
 
附件中的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