[LISP程序]：好用的lsp小程序二

nksj · 发表于 2004-11-6 21:31:24

“好用的lsp小程序二”主题不太明确，探索不方便。

xyp1964 · 发表于 2004-11-7 10:49:40

[php]
问题
3dj：由已知三点来求角度。
①(alert (strcat "\n注意：\n顺时针方向为负，逆时针为正 "))宜改为(princ"\n注意：顺时针方向为负，逆时针为正。")，可以减少用户点取警告提示的确认。
②点取的三点间应加上橡皮筋功能，如(setq Pt2 (getpoint pt1 "\n角点(即三点组合的角所对应的点或两条边的夹角):")，可以让用户知道前一点的位置，免得冒了一口烟，嗯……
③应同时显示弧度和角度数值。
;;;3dj 由已知三点来求角度
(defun c:3dj ()
  (princ"\n注意：顺时针方向为负，逆时针为正。")
  (setq pt1 (getpoint "\n第一个点(第一条边上的点):"))
  (setq Pt2 (getpoint pt1 "\n角点(即三点组合的角所对应的点或两条边的夹角):"))
  (setq pt3 (getpoint pt2 "\n第三个点(第二条边上的点):"))
  (setq a2 (angle pt3 pt2)
a1 (angle pt1 pt2)
a  (- a2 a1)
jd  (rtos (* 180.0 (/ a pi)) 2 4)
txt (strcat " 所测三点的夹角 : " (rtos a 2 4) "弧度; " jd "度。")
  )
  (princ"\n")(princ txt)(princ)
  (alert txt)(princ)
)
(princ"程序命令 : 3dj (角度测量)。")
(princ)
[/php]

lcf1788 · 发表于 2004-11-7 16:15:06

多谢赠送.

yang19800808 · 发表于 2004-11-7 20:01:46

好像用不到，我用list就好了

bluesky1000 · 发表于 2004-11-9 12:27:41

这两个工具非常好，我试过XD的工具，但测量同一曲线的长度竟然不同，最后发现XD的计算有误差，现在我用贴主的这两个小工具，虽然小，但很好。

roychengb · 发表于 2004-11-9 13:14:44

好工具值得推广

luob72 · 发表于 2005-3-9 16:24:47

好东东，找了好久，多谢！

hardhardwind · 发表于 2005-3-9 18:38:32

下载了，期待新的版本！！

cq_qg · 发表于 2005-3-9 18:57:32

要知道线段的长度，直接用属性不就行了？！

chenyonggood · 发表于 2005-3-10 19:27:04

这两个工具都不错。支持楼主！

hhjj9898 · 发表于 2005-3-11 14:48:55

在2004上，有错误，无法执行！

qingyum · 发表于 2005-6-23 09:55:36

测角度的可以测量三维角度吗？

shuaier · 发表于 2005-6-23 16:11:04

很好的LISP程序,尤其是第二个.

Andeqin · 发表于 2005-6-23 16:15:38

先顶一下.

llmin · 发表于 2005-6-23 16:36:50

我觉得这个程序用处不大，长度铁、角度列表即知，何必要一个程序。

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