[求助]使用lisp如何获取一条直线的角度

henwuqing · 发表于 2008-8-21 18:18

如题,,,,,,,,

nameld001 · 发表于 2008-8-21 20:14

本帖最后由作者于 2008-8-21 20:15:40 编辑

直线没有角度

asen · 发表于 2008-8-21 20:21

两点可构成角度啊

xiaoliang200 · 发表于 2008-8-21 20:24

(DEFUN C:WXDQ()
(vl-load-com)
(SETQ a (entget(car(entsel "选择文字:")))
b (car(entsel "选择基准线:")))
(setq obj (vlax-Ename->Vla-Object b))
(setq b (vla-get-Angle obj))
(SETQ NEWa (SUBST (cons 50 b) (ASSOC 50 a) a))
(ENTMOD NEWa )
(princ))
这是文字与直线对齐的代码，你看一下其中的 (setq obj (vlax-Ename->Vla-Object b))
(setq b (vla-get-Angle obj))

zml84 · 发表于 2008-8-21 20:29

(setq ss (entsel "\n点取一直线段:"))

(setq enl (entget (car ss)))

(setq pt10 (cdr (assoc 10 enl))

pt11 (cdr (assoc 11 enl))

)

;;角度

(setq ang (angle pt10 pt11))

xyp1964 · 发表于 2008-8-22 00:08

(vla-get-Angle Object)

henwuqing · 发表于 2008-8-22 09:56

谢谢各位了，

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

[求助]使用lisp如何获取一条直线的角度

浏览过的版块