乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 79|回复： 11

[编程交流] 找出角度（度）

[复制链接]
wimal

171

主题

447

帖子

276

银币

中流砥柱

Rank: 25

铜币
860
发表于 2022-7-6 08:00:44 | 显示全部楼层 |阅读模式
垂直长度=300
水平长度=500
有人能写一个lisp代码来找出倾斜角度吗
这需要我继续我的lisp代码。
回复

使用道具 举报

MSasu

35

主题

2471

帖子

2447

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
174
发表于 2022-7-6 08:09:35 | 显示全部楼层
答案是一个函数，它将提供以弧度为单位的角度：
要编写泛型函数，不要忘记添加一些条件（避免零除法）。
回复

使用道具 举报

pBe

32

主题

2722

帖子

2666

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
211
发表于 2022-7-6 08:11:58 | 显示全部楼层
替代共振器：
  1. (setq angleDeg [color=blue][b]( cvunit angleRad "radian" "degree")[/b][/color])  

 
  1. (setq p1 (list 0.0 Thex) p2 '(0.0 0.0) p3 (list theY 0.0))
  3. (c:cal "ang(p1,p2,p3)")

 
你可能需要这个让cal工作
  1. (if (not (member "geomcal.arx" (arx)))
  2.    (arxload "geomcal")
  3.    )
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 08:18:21 | 显示全部楼层
@MSasu，
 
这
 
可以这样写：
“atan”函数将执行除法，并将第二个参数解释为零：
  1. _$ (atan 1 0)
  2. 1.5708
回复

使用道具 举报

wimal

171

主题

447

帖子

276

银币

中流砥柱

Rank: 25

铜币
860
发表于 2022-7-6 08:24:39 | 显示全部楼层
谢谢MSasu，谢谢pBe：）谢谢Lee Mac
回复

使用道具 举报

MSasu

35

主题

2471

帖子

2447

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
174
发表于 2022-7-6 08:30:36 | 显示全部楼层
@李：谢谢你指点我，我从来没有注意到这个功能！
回复

使用道具 举报

wimal

171

主题

447

帖子

276

银币

中流砥柱

Rank: 25

铜币
860
发表于 2022-7-6 08:35:56 | 显示全部楼层 
  1. (setq theX 500.0
  2.      theY 300.0)
  3. (setq angleRad (atan (/ theY theX)))        ;angle in radians
  4. (setq angleDeg (* (/ angleRad pi) 180.0))   ;angle in degrees
  5. [color="#4169e1"](command "insert" "RIDGE" P1 "1" "1" angleDeg)[/color]

我试图插入一个名为RIDGE的块，旋转到计算出的角度“angleDeg”
但失败了。错误是什么？
回复

使用道具 举报

MSasu

35

主题

2471

帖子

2447

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
174
发表于 2022-7-6 08:39:43 | 显示全部楼层
你能把错误信息贴出来吗？
回复

使用道具 举报

MSasu

35

主题

2471

帖子

2447

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
174
发表于 2022-7-6 08:44:48 | 显示全部楼层
乍一看，有两个可能的错误：
 
（1） 如果使用的是AutoCAD的本地化版本，请确保调用命令的英文名称：
  1. (command "_INSERT" "RIDGE" P1 1.0 1.0 angleDeg)

（2） 验证所述块在图形中是否可用：
  1. 8
回复

使用道具 举报

Tharwat

63

主题

6297

帖子

6283

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
358
发表于 2022-7-6 08:54:58 | 显示全部楼层
 
 
按李之前的评论更正
回复

使用道具 举报

12下一页
返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-9 00:16 , Processed in 0.814447 second(s), 83 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表