移动对象的7种方法

scnjlwb · 发表于 2018-8-7 08:24:34

多谢分享！

qhdycm2016 · 发表于 2018-8-7 08:27:07

谢谢楼主分享学习一下

lj524917100 · 发表于 2018-8-9 12:41:51

学习一下，以前一直用vla的方法

namezg · 发表于 2018-8-9 13:06:36

不错啊,看看

hw0505zn · 发表于 2019-1-10 11:35:41

学习了学习了学习了

hw0505zn · 发表于 2019-1-10 11:36:51

学习了学习了学习了

naruto018 · 发表于 2019-1-12 14:05:41

来学习一下

qyming2000 · 发表于 2019-1-12 19:35:46

学习
来自: 微社区

花千树 · 发表于 2019-1-14 12:37:35

感谢 N版分享程序!!!

剑. · 发表于 2019-1-28 11:46:54

学习了，感谢楼主！！！

dnbcgrass · 发表于 2019-1-29 12:30:45

回复学习学习！

dnbcgrass · 发表于 2019-1-29 12:51:47

本帖最后由 dnbcgrass 于 2019-1-29 12:53 编辑

   ;使用TransformBy方式移动
   (setq pt1 '(0 0 0))
   (setq pt2 '(100 100 0))
   (setq dxyz (mapcar '- pt2 pt1))
   (setq e (entmakex (list '(0 . "CIRCLE") (cons 10 PT1) '(40 . 1.0))))
   (setq transMat (vlax-tmatrix (list (list 1 0 0 (car  dxyz))
                                    (list 0 1 0 (cadr dxyz))
                                    (list 0 0 1 (last dxyz))
                                    (list 0 0 0 1)
                                 )
                  )
   )
   (vla-TransformBy (vlax-ename->vla-object e) transMat)

sicky111 · 发表于 2019-1-30 00:06:41

dnbcgrass 发表于 2019-1-29 12:51
;使用TransformBy方式移动
(setq pt1 '(0 0 0))
(setq pt2 '(100 100 0))

谢谢分享。

evayleung · 发表于 2019-1-30 01:13:39

强强，我只会move一种。。。。。。。。。。。

77077 · 发表于 2019-1-31 13:20:41

移动对象的7种方法

账号		自动登录	找回密码
密码			立即注册

[每日一码] 移动对象的7种方法

点评