请编程师们指点一下

tianyuan · 发表于 2011-6-27 17:06:53

本帖最后由 tianyuan 于 2011-6-27 17:11 编辑

论坛长老

帖子1678 积分20223 明经币131

10#

发表于半小时前 |只看该作者

Command: !bb
(3.95851e+007 4.1443e+006 0.0) ; Scientific
Command: (rtos (car bb) 2 16)
"39585059.60300001"
Command: (rtos (cadr bb) 2 16)
"4144296.106000000"

Ref: LUnits 的帮助

如何把"39585059.60300001"
变成“39585.05”
把"4144296.106000000"

变成“4144.29"呢？

Andyhon · 发表于 2011-6-27 17:21:15

Command: !bb
(3.95851e+007 4.1443e+006 0.0)

Command: (setq qq (/ (cadr bb) 10)
(_> qq (fix qq)
(_> )
414429

Command: (setq qq2 (rtos (/ qq 100.0) 2 2))
"4144.29"

tianyuan · 发表于 2011-6-28 09:21:24

(defun c:bk()
(setq bb (getpoint"请选择点："))
(setq qq (/(cadr bb)10)
qq(fix qq))
(setq qq2(rtos(/ qq 100.0)2 2))
(setq cc(getpoint"\n 请选择起点"))
(setq dd(getreal"\n 请选择高度"))
(command "text" cc dd 0 qq2 ""))
在运行命令是却变成了命令: BK
请选择点：
请选择起点
请选择高度5
text
当前文字样式: “Standard” 文字高度: 5.0000 注释性: 否
指定文字的起点或 [对正(J)/样式(S)]:
指定文字的旋转角度 <6>: 5.000000000000000
输入文字: 0
命令: 5557.85 未知命令“85”。按 F1 查看帮助。
所有设置的参数均往后推延了一格命令

Andyhon · 发表于 2011-6-28 09:59:54

本帖最后由 Andyhon 于 2011-6-28 10:01 编辑

(defun c:bk ()
(setq bb (getpoint "請選擇點："))
(setq qq (/ (cadr bb) 10)
qq (fix qq)
)
(setq qq2 (rtos (/ qq 100.0) 2 2))
(setq cc (getpoint "\n 請選擇起點："))
(setq dd (getreal "\n 請選擇高度："))
(command "text" "none" cc dd 0 qq2)
)

tianyuan · 发表于 2011-6-28 11:37:26

Andyhon :或许在”text“命令中添加”none"函数并不是问题的关键，在13楼出现的问题是因为在执行该程序之前，已经对“Standard” 文字高度进行了设置，再进行该命令是就会出现命令错位现象，当Standard” 文字高度为0时就不会出现这个问题， 14楼的程序也是出现相同的问题，总感觉提前设置字高会对程序有干扰，如果在早设置好了的字高的文件当中，执行程序而不受影响就好了

Andyhon · 发表于 2011-6-28 12:33:43

(command "text" "none" cc dd 0 qq2)
是依您所提供的图纸
--------------------------
若已经对文字高度进行了设置
===>
(command "text" "none" cc 0 qq2)

tianyuan · 发表于 2011-6-28 15:29:35

谢谢Andyhon! 我的意思是如果已经对文字进行了设置，比如文字高度是5，那么能不能在运行程序时，运用此程序再次对此文字高度重新设置，（command "text" "none" cc dd 0 qq2)
dd 就是就是重新设置的高度。比如以前是5 DD则设置成6

Andyhon · 发表于 2011-6-28 15:51:59

本帖最后由 Andyhon 于 2011-6-28 15:52 编辑

在 Style 的规范下本是如此
一是换 Style
一是完成文字后==>再改

tianyuan · 发表于 2011-7-5 17:13:07

想把数值标注在一个指定的坐标，却总是不行
(defun c:bk ()
  (setq bb (getpoint "請選擇點："))
  (setq qq (/ (cadr bb) 10)
      qq (fix qq)
  )
  (setq qq2 (rtos (/ qq 100.0) 2 2))
  (setq vv (+(rtos(car bb)2 16) 0.1331))
  (setq nn (+(rtos(cadr bb)2 16) 0.0568))
  (setq mm ·(vv nn 0.0))
（command “text" "none" mm 0 qq2）
命令行提示：請選擇點：; 错误: 参数类型错误: numberp: "20590479.16573581" 哪里出问题了？

tianyuan · 发表于 2011-7-6 14:32:48

或许是参数运用出现了问题？

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

请编程师们指点一下

本帖子中包含更多资源