960322 发表于 2021-6-9 23:04:42

拷贝是能否根据角度自动切换正交

请问如何改写copy命令，在选取第二点的时候如果光标点与基点的角度与坐标轴的角度小于15度，则开启正交，否则关闭正交。希望能在选第二点的过程中不停的自动切换正交，能实现吗？

print1985 发表于 2021-6-11 13:30:53

这么好的创意居然没人顶
虽然极轴也能模拟正交，但是不小心还是会出错，产生虚数（小数点后很多位），很不爽
正好我之前做了个动态复制，看看能不能把这个功能加上去

669423907 发表于 2021-6-11 19:37:50

;不停的用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水平

669423907 发表于 2021-6-11 19:40:32

第一点过后，移动鼠标就可以了，改一下就好

960322 发表于 2021-6-15 15:42:31

楼上的朋友，这样是简单的，关键是要达到原生拷贝或则移动的效果

print1985 发表于 2021-6-16 20:23:37

我的动态复制已增加此功能，请测试
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=183595&page=1&extra=#pid891954
页: [1]
查看完整版本: 拷贝是能否根据角度自动切换正交