[求助]：关于ENTGET函数的问题!

leiaming · 发表于 2007-4-12 23:15:56

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

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

×

小弟是VLSIP新学习者,在学习中碰到几个SSGET.ENTGET函数的问题,谢大侠赐教:
1.为何ENTGET的坐标只有小数后一位((-1 . <图元名: 400c3758>) (0 . "CIRCLE") (330 . <图元名: 400bdcb8>) (5 .
"813") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "综合层") (62 . 1) (6
. "0") (100 . "AcDbCircle") (10 513470.0 3.09041e+006 2.9006) (40 . 0.125) (210
0.0 0.0 1.0))

2.我想选择指定半径的圆作为选择集时,用以下命令为何不能通过:
(setq newhh (getreal "\n输入圆半径尺寸:"))
(setq mySset (ssget "X" (list (cons 0 "CIRCLE") (cons 40 newhh.))))

望各位大侠指导指导.谢谢

Underway · 发表于 2007-4-13 07:30:30

1. 您所提坐标值.只有小数后一位
  那只是显示的问题
  不影响其内部实际运算结果

2. (setq mySset (ssget "X" (list (cons 0 "CIRCLE") (cons 40 newhh.))))
(setq mySset (ssget "X" (list (cons 0 "CIRCLE") (cons 40 newhh))))
newhh.  <=== 多了个点

leiaming · 发表于 2007-4-13 12:43:14

谢谢,,
1. 关于坐标,我是想提出来做为文本使用,所以想精确一些,不知道如何解决,
2. 关于SSGET,(setq mySset (ssget "X" (list (cons 0 "CIRCLE") (cons 40 newhh))))不能通过.

改成如下可以通过
(ssget "X" '((0 . "CIRCLE") (-4 . "<") (40 . 0.1) (8 . "综合层")))

但是与我的选择条件不同了,另外如果"<"改成"="也通不过.
再次感谢!

Underway · 发表于 2007-4-13 16:33:55

有加说明的图面可供测试之用否?

leiaming · 发表于 2007-4-13 22:50:18

附上测试的DWG.
说明:我需要获取指定半径的一批圆的圆心坐标及高程,然后输出文本(已解决),但精度尚没法解决,谢谢

Underway · 发表于 2007-4-14 08:54:30

我这儿显示找不到伺服器,下不来

_$ (setq pt '(1 2 3))
(1 2 3)

_$ (mapcar '(lambda (%) (rtos % 2 5)) pt)
("1.00000" "2.00000" "3.00000")

请参阅 RtoS 的函数

leiaming · 发表于 2007-4-14 19:59:44

谢谢.我有试过RTOS,但(10 X Y Z)本来就只有1位小数,而且小数位后是"0",RTOS后也只是后面多了几个"0"而已,仍不是正确的位置

Underway · 发表于 2007-4-15 22:25:11

Check here
http://www.autocad.com.tw/asp/Sh ... AutoCAD&ID=4370
http://www.autocad.com.tw/asp/Sh ... utoCAD&ID=13088

leiaming · 发表于 2007-4-17 20:05:09

感谢老兄，问题已解决，谢谢

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

[求助] [求助]：关于ENTGET函数的问题!

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

相关帖子