请教：怎么求垂足？？

MRHDF · 发表于 2005-6-14 12:03:00

想求点pt1到线pt2 pt3 的垂足pt4. 我想搞一个小程序，用这个。回头搞好了发出来。

sssssss · 发表于 2005-6-14 12:23:00

本帖最后由作者于 2005-6-15 8:01:04 编辑

发现一点问题，缺小数点，引起结果偏差，修改一下。原来：(setq pt4(inters pt2 pt3 pt1 (polar pt1 (+ (angle pt2 pt3) (/ pi 2)) 1)
nil)) 修改后：(setq pt4(inters pt2 pt3 pt1 (polar pt1 (+ (angle pt2 pt3) (/ pi 2.0)) 1.0)
nil))

MRHDF · 发表于 2005-6-15 09:02:00

3q 3q 3QU

(+ (angle pt2 pt3) (/ pi 2.0)) ！！！！！！！！！！够简单

MRHDF · 发表于 2005-7-4 15:37:00

(defun c:dim ()
(setvar "cmdecho" 0)
(command "dimaligned" )
(setq pt1 ( getpoint "\n输入标注基点1 : " ))(COMMAND pt1)
(setq pt2 ( getpoint "\n输入标注基点2 : " ))(COMMAND pt2)
(setq pt0 ( getpoint "\n\n尺寸线位置2 : " ))(COMMAND pt0)
(while (setq pt3 (getpoint "\n输入连续标注的下一点 : "))
(setq pt3 (inters pt1 pt2 pt3 (polar pt3 (+ (angle pt1 pt2) (/ pi 2.0)) 1.0) nil))
(command "dimaligned" pt2 pt3 pt0 )
(setq pt2 pt3 )
)
)

MRHDF · 发表于 2005-7-5 18:17:00

http://www.mjtd.com/bbs/dispbbs.asp?boardid=3&star=2&replyid=42936&id=38515&skin=0&page=1 最终成果

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