明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 273|回复: 7

[资源] 【分享】选择两点转水平

[复制链接]
发表于 2024-7-10 19:18 | 显示全部楼层 |阅读模式
本帖最后由 tigcat 于 2024-7-10 23:15 编辑

先选取一个旋转基点,再选取一个角度点。然后选取需要旋转的对象,转到水平线上面来。抛砖引玉了~~

(defun c:33 (/ &tmp-ang &tmp-ang2 tmp-pt1 tmp-pt2)
  (setq tmp-pt1 (getpoint "指定旋转基点:"))
  (terpri)
  (setq tmp-pt2 (getpoint "指定另一角度线:"))
  (terpri)
  (setq &tmp-ang (/ (* 180 (angle tmp-pt1 tmp-pt2)) pi))
  (cond
    ((< 0 &tmp-ang 90) (setq &tmp-ang2 (- &tmp-ang)))
    ((< 90 &tmp-ang 180) (setq &tmp-ang2 (- 180 &tmp-ang)))
    ((< 180 &tmp-ang 270) (setq &tmp-ang2 (- 180 &tmp-ang)))
    ((< 270 &tmp-ang 360) (setq &tmp-ang2 (- &tmp-ang 360)))
  )
  (command "ROTATE" (ssget) "" tmp-pt1 &tmp-ang2)
  (prin1)
)
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2024-7-10 20:09 | 显示全部楼层
  1. (defun cx_xztx(/ p1 p2 hd jd ss)
  2.         (setq p1 (getpoint "\n请选择需转正的第一端点,旋转后此点位于电脑屏幕左边方向")
  3.                 p2 (getpoint p1 "\n请选择需转正的第二端点,旋转后此点位于电脑屏幕右边方向\n")
  4.                 hd (angle p1 p2))
  5.                 (progn
  6.                         (prompt "\n请选择需要旋转摆正的对象:")
  7.                         (setq ss (ssget))
  8.                         (setq jd (- 360 (/ (* hd 180) pi)))
  9.                         (vl-cmdf "rotate" ss "" p1  jd)
  10.                 )
  11.        
  12. )

评分

参与人数 1明经币 +1 收起 理由
tigcat + 1 很给力!

查看全部评分

发表于 2024-7-10 21:33 | 显示全部楼层
仿写al命令看看,你就知道难度了
发表于 2024-7-10 22:10 | 显示全部楼层

  1. (defun c:test ()
  2.   (command "rotate"
  3.            (ssget)
  4.            ""
  5.            (setq p0 (getpoint "\n选择一基准点:"))
  6.            "R"
  7.            p0
  8.            (getpoint p0 "\n选择另一个点:")
  9.            0;;可以设定水平0或垂直角度90
  10.   )
  11.   (princ)
  12. )

评分

参与人数 1金钱 +10 收起 理由
tigcat + 10 很给力!

查看全部评分

 楼主| 发表于 2024-7-10 22:27 | 显示全部楼层

很简洁,待会试试
 楼主| 发表于 2024-7-10 23:03 | 显示全部楼层
你有种再说一遍 发表于 2024-7-10 21:33
仿写al命令看看,你就知道难度了

哈哈,就写点简单的平时工作用
 楼主| 发表于 2024-7-10 23:10 | 显示全部楼层
发表于 2024-7-11 20:01 | 显示全部楼层
大神就是多哈!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-7-13 05:43 , Processed in 0.161832 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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