关于求两点间角度问题

w27748399 · 发表于 2024-9-16 11:16:27

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

求大佬指点点PT1 PT2 间的角度用于在直线(PT1,PT2)上同直线角度标注文字

w27748399 · 发表于 2024-9-16 11:17:40

本帖最后由 w27748399 于 2024-9-16 11:19 编辑

我的代码
(defun C:GD2 ()
; 提示用户输入第一个点
(setq pt1 (getpoint "\n指定线段的第一个点: "))
; 提示用户输入第二个点
(setq pt2 (getpoint pt1 "\n指定线段的第二个点: "))
(command "line" pt1 pt2 "")
(setq textPos       (list          (/ (+ (car pt1) (car pt2)) 2)          (+(/ (+ (cadr pt1) (cadr pt2)) 2) 2 )       ) )
(setq ang (angle pt1 pt2))
(setq dn (getstring "\n输入线段的DN值: "))
(command "text" textPos  "2" ang (strcat "DN" dn))
(princ) )

账号		自动登录	找回密码
密码			立即注册

[求助] 关于求两点间角度问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。