这个论坛讨论模具设计方面用的LISP好象比较少，希望模具设计的朋友把自己的一些好用一些LISP命令都共享出来，我先来一个。
多功能引线标注：一个命令可以判断出所选物体是圆，圆弧还是直线并标出相应的直径，半径或斜度。
标签： , ,
14 条评论 发表在“模具设计类LISP程序”上
郑重声明：资讯 【模具设计类LISP程序« CAD家园】由 发布，版权归原作者及其所在单位，其原创性以及文中陈述文字和内容未经(企业库qiyeku.com)证实，请读者仅作参考，并请自行核实相关内容。若本文有侵犯到您的版权， 请你提供相关证明及申请并与我们联系（qiyeku # qq.com）或【在线投诉】，我们审核后将会尽快处理。
—— 相关资讯 ——
我看了1楼楼主的程序，写的不错，有以下心得共享：
如果应用程序需要把角度值从弧度转换为度，可以调用函数 angtos 返回一个字符串，然后用 atof 将该字符串转换为浮点数值。
(setq pt1 ‘ (1 1) pt2 ‘ (1 2))
(setq rad (angle pt1 pt2))
(setq deg (atof (angtos rad 0 2))) ; 返回 90.0
然而，更有效的方法是在程序中包括一个 Radian-> Degrees 函数。下列代码示范了这个操作：
；将数值从弧度转换为度
(defun Radian-> Degrees (nbrOfRadians)
(* 180.0 ( /nbrOfRadians pi))
)
定义该函数后，可以像下例中一样在整个应用程序中调用 Radian-> Degrees 函数。
(setq degrees (Radian-> Degrees rad)) ; 返回 90.0
角度也可能需要从度转换为弧度。下列代码示范了这个操作：
；将数值从度转换为弧度
(defun Degrees-> Radians (numberOfDegrees)
(* pi ( /numberOfDegrees 180.0))
) ;_ 结束 defun
楼主的程序中有(ar)(rar)用时需删除的(我2005版本)
程序中用command调用了leader命令是不安全的，版本会是程序变的不兼容，qleader正在取代leader, qleader说不定哪{yt}也会被抛弃而未知。尽量不要使用command.
程序没有加入对使用者定义的标注样式的调用，譬如角度,尺寸的xx度，标注单位的控制！
再次感谢我们的楼主的辛勤劳动，也希望大家共同进步！