乐筑天下

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

能否将计算结果返回定制的对话框内

[复制链接]

2

主题

4

帖子

1

银币

初来乍到

Rank: 1

铜币
12
发表于 2003-6-6 08:09:00 | 显示全部楼层 |阅读模式
以下本人学编的一段坐标计算小程序,主要用于三角形中,已知两个点坐标,及三个内角来计算另一个点坐标,并调用CAD绘出图形。
  已知数据以定制的对话框形式输入,现在我想把计算结果坐标也在原来定制的对话框中输出来,并调用CAD绘出图形。
  ;坐标计算 ZBJS.LSP
;度分秒转换成度
(defun DEG (ia / a d m s)

  (if  (minusp ia )      ;判断角度正负
      (setq sgn -1.0 )
      (setq sgn 1.0 )
   )
  (setq a   (abs ia ) )  ;角度绝对值
  (setq d (fix a ) )    ;提取度
  (setq m (fix (+ (* (- a d) 100 ) 0.01) ) )   ;提取分
  (setq s (* (- (* (- a d)  100.0)  m) 100 ) )   ;提取秒
   (* ( +  d  ( / m 60.0 ) ( / s 3600.0 ) ) sgn )
)
;度转换成弧度
(defun dtor(d)
   (* (/ d 180.0) pi)
)
;弧度转换成度
(defun rtod(r)
   (* (/ r pi) 180.0)  
)
;度转换成度分秒
(defun DMS(ia / a d m s )
  (if  (minusp ia )      ;判断角度正负
      (setq sgn -1.0 )
      (setq sgn 1.0 )
   )
  (setq a   (abs ia ) )  ;角度绝对值
  (setq d (fix a ) )    ;提取度
  (setq m (fix (+ (* (- a d) 60.0 ) 0.01) ) )   ;提取分
  (setq s (* (- (* (- a d)  60.0)  m) 60.0 ) )   ;提取秒
   (* ( +  d  ( / m 100.0 ) ( / s 10000.0 ) 0.0000001) sgn )
  );方位角计算程序
( defun fwj(x1 y1 x2 y2 / dx dy d12  a12-dms )
      (graphscr)
            
     (setq  dx (- x2 x1)  dy (- y2 y1)  )     
     (setq d12 (sqrt( + (* dx dx ) (* dy dy ) ) ) )
       (if (= dy 0.0) (setq a12 (/ pi 2.0 ) ) )
       (if (= dx 0.0) (setq a12 0.0000 ) )
       (setq a12  (atan (/ dy dx))  )
       (cond
         (    (  and ( dy 0.0 )  )      (setq a12  (+ a12 pi )  )  )
         (    (  and (> dx 0.0 ) (

cebrce0rdty.jpg

cebrce0rdty.jpg

回复

使用道具 举报

26

主题

3072

帖子

10

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3177
发表于 2003-6-6 12:37:00 | 显示全部楼层
请点击此处下载

请先注册会员后在进行下载

已注册会员,请先登录后下载

文件名称:x2zmk1ua4n0.rar 
下载次数:0  文件大小:1.52 KB  售价:2银币 [记录]
下载权限: 不限 以上或 Vip会员   [开通Vip]   [签到领银币]  [免费赚银币]

回复

使用道具 举报

2

主题

4

帖子

1

银币

初来乍到

Rank: 1

铜币
12
发表于 2003-6-9 10:45:00 | 显示全部楼层
1、三角形中,观测三个内角,由于测量有误差,所以必须观测三个内角,若不等于180,然后再平均分配误差,这样符合最小二乘原理,可认为经过角度平差后,角度误差很小,比较合理。如果只用任意两个角,这两个则有误差,造成计算不合理,所以不能用余弦定理去推算另一个角。
  2、推算方位角,线路左边的角规定为正角,右边为负角,只是为了计算方位角,并不是角度有正负之分。
  不知我说明白了没有?  
  谢谢帮忙!
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-3 11:45 , Processed in 1.653139 second(s), 65 queries .

© 2020-2025 乐筑天下

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