论坛 › A/VLISP › 直线反向Reverse

/db_自贡黄明儒_ 发表于 2018-6-11 14:06:39

直线反向Reverse

本帖最后由 /db_自贡黄明儒_ 于 2018-6-11 14:09 编辑

高版本有命令Reverse，低版本没有，故写这个直线Reverse本身没有任何意义。夏天已经来临，为论坛增加一点燥动的气氛{:1_12:}
;;直线反向
(defun LINE-Reverse (obj / EP SP)
(if (= (type obj) 'ENAME)
    (setq obj (vlax-ename->vla-object obj))
)
(setq Ep (vlax-get-property obj 'Endpoint))
(setq Sp (vlax-get obj 'StartPoint))
(vla-put-EndPoint obj (vlax-3d-point Sp))
(vla-put-StartPoint obj Ep)
)

/db_自贡黄明儒_ 发表于 2018-6-11 14:11:44

自己做一个记号 **** Hidden Message *****

sicky111 发表于 2018-6-11 14:52:21

谢谢分享。

Lisphk 发表于 2018-6-11 14:53:54

如果扩展任意曲线就好了

yangjian001 发表于 2018-6-11 19:42:13

不错谢谢楼主分享

kqqt6236 发表于 2018-6-11 22:00:38

回复学习。

句号之外 发表于 2018-6-11 22:04:51

不错谢谢楼主分享

spacevalue 发表于 2018-6-12 22:52:35

向黄工学习。。。。。。。。。。。。

ysq101 发表于 2018-6-14 02:22:48

黄工好样的...爱分享

qyming1996 发表于 2018-6-14 06:21:23

想学习学习。。。。

yoyoho 发表于 2018-6-14 15:52:52

不错谢谢楼主分享！！！

scnjlwb 发表于 2018-6-14 16:29:43

多谢分享！

spacevalue 发表于 2018-6-14 21:46:40

夏天已经来临温度高了，{:1_12:}

fangzheng158 发表于 2018-6-18 09:03:05

谢谢分享。

君是我的泪 发表于 2018-8-29 10:00:54

到底怎么用啊，块和填充能用吗

查看完整版本: 直线反向Reverse