lisp语言实现设备的简单移动动画,加急!

发布网友发布时间：2022-04-26 08:27

共1个回答

热心网友时间：2022-06-25 19:49

(defun c:cc() (vl-load-com) (command "_undo" "be") (if (setq ent (car (entsel "\nobj:"))) (progn (setq obj (vlax-ename->vla-object ent) pt0 (vlax-get obj "Centroid") ) (repeat 100 (setq pt1 (mapcar '+ pt0 '(0 0 1))) (command "_move" ent "" pt0 pt1) (setq pt0 pt1) (setq j 0) (repeat 9000 (setq j 1)) )
(repeat 250 (setq pt1 (mapcar '+ pt0 '(1 0 0))) (command "_move" ent "" pt0 pt1) (setq pt0 pt1) (setq j 0) (repeat 9000 (setq j 1)) )
(entdel ent) ) ) (command "_undo" "e") (princ))

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com