请高手帮忙修改LSP 程序

yjg6133 · 发表于 2010-9-4 21:59:00

我有一个计算距离、方位角的程序，在04-08版CAD均能用。在2010版CAD下不能用，不知是怎么回事，请哪位高手帮我一下，我经常用到。

已经找到原因了，哈哈。在所有版本的CAD上都能用，自动标注距离、方位角。
需要的请下，绝对能用。

ZZXXQQ · 发表于 2010-9-4 22:34:00

这个函数我看不懂：

(defun dmstosdms (dms)
(setq d (fix dms))
(setq m (fix (* 100.0 (- dms d))))
(setq s (* (- (* 100.0 (- dms d)) m) 100.0))
(if (>= s 60.0) (progn (- s 60.0) (+ m 1)))
(if (>= m 60.0) (progn (- m 60.0) (+ d 1)))
(strcat (rtos (fix d)) "°" (rtos (fix m)) "′" (rtos s 2 1) "″")
)
请解释一下倒数第三、四行是干什么的？

dkj0322 · 发表于 2010-10-9 14:57:00

谢谢楼上的分享，看参考下，很感激！

szboy · 发表于 2011-1-29 15:29:09

唉，下不了

xiaxiang · 发表于 2011-1-29 21:11:16

我下来试试，有那么好吗

669423907 · 发表于 2011-3-27 17:27:37

用不着，还是顶顶！

fanqinwei · 发表于 2012-4-8 13:30:50

用不成，总是提示字体不存在，给它字体后，要输入文字，搞不明白，？

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

请高手帮忙修改LSP 程序

本帖子中包含更多资源