明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 162|回复: 4

[提问] 拷贝是能否根据角度自动切换正交

[复制链接]
发表于 2021-6-9 23:04 | 显示全部楼层 |阅读模式
请问如何改写copy命令,在选取第二点的时候如果光标点与基点的角度与坐标轴的角度小于15度,则开启正交,否则关闭正交。希望能在选第二点的过程中不停的自动切换正交,能实现吗?
发表于 2021-6-11 13:30 | 显示全部楼层
这么好的创意居然没人顶
虽然极轴也能模拟正交,但是不小心还是会出错,产生虚数(小数点后很多位),很不爽
正好我之前做了个动态复制,看看能不能把这个功能加上去
发表于 2021-6-11 19:37 | 显示全部楼层
;不停的用o1到o2的距离与屏幕高度的1%高度做比较,直到o1到o2的距离>屏幕高度的1%
(defun P判断方向(/ o1 o2 jd) ;(P判断方向) ;判断角度,水平或垂直标注
(setq o1(cadr(grread 3)) o2(cadr(grread 3))) ;光标位置
(while (<(distance o1 o2)(/(getvar"viewsize")100)) (setq o2 (cadr (grread 3))) ) ;循环比较
(setq jd (/(*(angle o1 o2)180)pi)) ;两点与X轴的角度
(if (or (<= 45 jd 135) (<= 225 jd 315)) (setq fx "V")(setq fx "H") ) ;V垂直H水平
) ;≤45°≥135°或≤225°≥315°  H水平
发表于 2021-6-11 19:40 | 显示全部楼层
第一点过后,移动鼠标就可以了,改一下就好
 楼主| 发表于 2021-6-15 15:42 | 显示全部楼层
楼上的朋友,这样是简单的,关键是要达到原生拷贝或则移动的效果
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2020 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2021-6-16 06:45 , Processed in 1.074669 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表