[编程申请]：求LSP程序：a除以b的商的二分之一次方再乘以1000

lengliqun · 发表于 2005-3-26 22:40:04

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

求LSP程序：a除以b的商的二分之一次方再乘以1000，其中a为CAD图中的数字，b为输入参数，得到的结果取50的倍数。有CAD图为例

xyp1964 · 发表于 2005-3-27 19:53:41

[php]
;;;加载通用函数
;;;下载：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
(load "xyp_lib")

(defun c:test()
  (setq s1 (car(entsel))
num1 (atoi (dxf 1 (entget s1)))
num2 (ureal 1 "" "\n实数" num2)
txt (* (sqrt (/ num1 num2)) 1000)
txt1 (fix (/ txt 50))
txt2 (+ (* txt1 50) 50)
)
  (sub_upd s1 1 (rtos txt2 2 0))
  )
[/php]

lengliqun · 发表于 2005-3-27 20:39:20

报告：能用，只能点选单个数字；
强烈要求能框选多个数字。

xyp1964 · 发表于 2005-3-27 21:04:06

[php]
;;;加载通用函数
;;;下载：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
(load "xyp_lib")

(defun c:test ()
  (setq SS (ssget '((0 . "TEXT")))
i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
(setq num1 (atoi (dxf 1 (entget s1)))
   num2 (ureal 1 "" "\n实数" num2)
   txt  (* (sqrt (/ num1 num2)) 1000)
   txt1 (fix (/ txt 50))
   txt2 (+ (* txt1 50) 50)
)
(sub_upd s1 1 (rtos txt2 2 0))
  )
)
[/php]

lengliqun · 发表于 2005-3-27 21:28:29

可以框选了，可有新问题啊，
在图中我框选了89个数字，要求我89次回车，呵呵....改改啦，回车一次即可。

xyp1964 · 发表于 2005-3-27 21:32:39

[php]
;;;加载通用函数
;;;下载：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
(load "xyp_lib")
;;;a除以b的商的二分之一次方再乘以1000，其中a为CAD图中的数字，b为输入参数，得到的结果取50的倍数。<lengliqun>

(defun c:test ()
  (setq num2 (ureal 1 "" "\n参数" num2)
SS (ssget '((0 . "TEXT")))
i -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
(setq num1 (atoi (dxf 1 (entget s1)))
   txt  (* (sqrt (/ num1 num2)) 1000)
   txt1 (fix (/ txt 50))
   txt2 (+ (* txt1 50) 50)
)
(sub_upd s1 1 (rtos txt2 2 0))
  )
)
[/php]

lengliqun · 发表于 2005-3-27 21:46:57

完全可用了，谢谢啦。

狂刀 · 发表于 2005-3-28 00:41:48

txt1 (fix (/ txt 50))
txt2 (+ (* txt1 50) 50)
是四舍五入的意思么？如果是 txt=100,txt1=2 ,txt2=150 ???
可以这样：
txt2 (* 50 (fix (/ (+ 25 txt) 50)))

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

[编程申请]：求LSP程序：a除以b的商的二分之一次方再乘以1000

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子