[求助]：请问怎样统计图中圆圈内8的个数？注意：圆圈外可能也有8

bossda · 发表于 2004-8-30 18:18:28

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

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

×

谢谢

aidraft · 发表于 2004-8-30 19:38:30

数一数更快:)
建议从根本上改进作图的方法，例如分图层或用属性块。

bossda · 发表于 2004-8-30 20:25:17

如果用这个(sslength (ssget "X" '((0 . "TEXT")(8 . "0")(62 . 1)(1 . "10")))) ，就会连圆圈外的一个10也被统计上，请问怎么解决这个问题？

雪山飞狐(lzh) · 发表于 2004-8-30 20:36:43

你要判断文字外面有没有圆圈，光靠一个选择集可以办到麽
恐怕还要加点判断吧

bossda · 发表于 2004-8-30 21:04:17

能否实现，统计的条件是10并且在圆圈内？

aidraft · 发表于 2004-8-31 07:27:22

你可能要用下面的方法：
[php]
1。用(ssget "X" '((0 . "TEXT")(8 . "0")(62 . 1)(1 . "10")))取出所有0图层上红色的10
2。用
(ssget "x" '((0 . "CIRCLE")(8 . "0")(-4 . "<and")(-4 . ">")(40 . 5.6220)(-4 . "<")(40 . 5.6222)(- 4 . "and>")))
取出所有0图层上的半径约为5.6221的园
3。把1中取出的10的插入点一个个和2中得到的一个个园的园心比较，如果小于 5.6221就在园里。
4。还是我2楼的观点。
[/php]

lzy9788 · 发表于 2004-8-31 08:58:55

怎么同问题重发？
http://www.xdcad.net/forum/showthread.php?s=&threadid=249308

lsjjm · 发表于 2004-8-31 09:25:12

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

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

×

最初由 bossda 发布
[B] 请问怎样统计图中圆圈内8的个数？..[/B]

REFER TO:
[php]
(defun c:test (/ ss pl)
  (setq a (car (entsel)))
  (setq pc (cdr (assoc 10 (entget a))))
  (setq r (cdr (assoc 40 (entget a))))
  (setq n 60)
  (repeat n
(setq pl (cons (polar pc (* n (/ pi 30)) r) pl))
(setq n (1- n))
  )
  (setq ss (ssget "wp" pl ))
  (setq n 0 sum 0)
  (while (< n (sslength ss))
(setq el (entget (ssname ss n)))
(if (= (cdr (assoc 0 el)) "TEXT")
   (setq sum (+ (atof (cdr (assoc 1 el))) sum))
)
(setq n (1+ n))
  )
  sum
)
[/php]

bossda · 发表于 2004-8-31 10:09:56

我是lisp的初学，请问怎样才能执行此代码？不要见笑哟！

lzy9788 · 发表于 2004-8-31 14:09:42

用appload加载*.lsp,然后运行c:后的命令

bossda · 发表于 2004-8-31 15:52:50

能否解释下此代码，谢谢了！

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

[求助] [求助]：请问怎样统计图中圆圈内8的个数？注意：圆圈外可能也有8

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

相关帖子

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

相关帖子

浏览过的版块