求一个LISP标注小程序

hxh2901

当标注一段距离时，我想把尺寸的值精确地扩大1.224745倍。这个值的变化要在标注的同时完成。就是说尺寸线上的值要比实际值大1.224745倍。用LISP可以做到么。

yshf

;用LISP当然可以做到，请试用以下程序:
(defun c:blbz()
(setq cm (getvar "cmdecho") blc 1.224745)
(setvar "cmdecho" 0)
(while (setq p1 (getpoint "\n 尺寸界限第一点 :"))
(command "_dimaligned" p1
(setq p2 (getpoint p1 "\n尺寸界限第二点 :"))
"t"
(rtos (* blc (distance p1 p2)) 2 7)
pause
)
)
(setvar "cmdecho" cm)(princ)

hxh2901

这个小程序真的有用耶

只是发现个小问题：标注的值后面有好几位小数点，无法和标注样式里设置的一致，比如我设置只有两位小数点，你的程序标出来的值有7位小数点。如果能和标注样式里的设置一致就完美啦。

再次谢谢这位大虾~

xqyhome

  (rtos (* blc (distance p1 p2)) 2 7)

把 7 改为2 ，不就得了。

li809

谢谢

hxh2901

增减小数点时，无法四舍五入？请问有没有办法增加这个功能呢

sdwy196912

hxh2901发表于2005-7-14 15:21:00增减小数点时，无法四舍五入？请问有没有办法增加这个功能呢

我想应该有办法的.用 if 语言 就可以了.

不过麻烦点.

yshf

将(rtos (* blc (distance p1 p2)) 2 7)改为：

(rtos (/ (fix (+ 0.5 (* blc (distance p1 p2) (expt 10 nx)))) (expt 10 nx) 1.0) 2 nx)即可，其中nx为所需要的小数位数。