本帖最后由 tianyuan 于 2011-6-27 17:11 编辑
论坛长老
http://space.mjtd.com/static/image/common/star_level3.gifhttp://space.mjtd.com/static/image/common/star_level3.gifhttp://space.mjtd.com/static/image/common/star_level3.gif
http://space.mjtd.com/xwb/images/bgimg/icon_off.gif 帖子1678 积分20223 明经币13110#
http://space.mjtd.com/static/image/common/online_member.gif 发表于 半小时前 |只看该作者
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"呢？
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"
(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 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)
)
Andyhon :或许在”text“命令中添加”none"函数并不是问题的关键，在13楼出现的问题是因为在执行该程序之前，已经对“Standard”文字高度进行了设置，再进行该命令是就会出现命令错位现象，当Standard”文字高度为0时就不会出现这个问题， 14楼的程序也是出现相同的问题，总感觉提前设置字高会对程序有干扰，如果在早设置好了的字高的文件当中，执行程序而不受影响就好了
(command "text" "none" cc dd 0 qq2)
是依您所提供的图纸
--------------------------
若已经对文字高度进行了设置
===>
(command "text" "none" cc 0 qq2)
谢谢Andyhon!我的意思是如果已经对文字进行了设置，比如文字高度是5，那么能不能在运行程序时，运用此程序再次对此文字高度重新设置，（command "text" "none" cc dd 0 qq2)
dd 就是就是重新设置的高度。比如以前是5 DD则设置成6
本帖最后由 Andyhon 于 2011-6-28 15:52 编辑
在 Style 的规范下本是如此
一是换 Style
一是完成文字后==>再改
想把数值标注在一个指定的坐标，却总是不行
(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" 哪里出问题了？
或许是参数运用出现了问题？