己解决！谢谢大仙们！！！

freeok2013 · 发表于 2013-11-26 17:24:05

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

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

×

本帖最后由 freeok2013 于 2013-11-26 23:24 编辑

此程序来源于一位大神，自己改不来，又找不着原帖了，在此求帮助！谢谢这位大神及大侠们！
(defun c:pp(/ ss i e cpt pts)
  (setq ss (ssget '((0 . "circle"))))
  (while (setq e (ssname ss (setq i (1+ i))))
(setq cpt (cdr (assoc 10 (entget e))))
(if (not (member cpt pts))
   (setq pts (cons cpt pts))
)
  )
  (length pts)
  (alert (strcat "\n共有圆的个数:" (rtos pt))) ；想要弹出此段该如何加？谢谢/想要写入此段该如何加？谢谢

)

19622928 · 发表于 2013-11-26 17:39:41

(defun c:pp(/ ss i e cpt pts)
  (setq ss (ssget '((0 . "circle"))))
  (while (setq e (ssname ss (setq i (1+ i))))
(setq cpt (cdr (assoc 10 (entget e))))
(if (not (member cpt pts))
   (setq pts (cons cpt pts))
)
  )
  (setq pt(length pts))
  (alert (strcat "\n共有圆的个数:" (itoa pt)))

19622928 · 发表于 2013-11-26 17:50:51

(defun c:pp(/ ss i e cpt pts)
  (setq ss (ssget '((0 . "circle"))) i -1)
  (while (setq e (ssname ss (setq i (1+ i))))
(setq cpt (cdr (assoc 10 (entget e))))
(if (not (member cpt pts))
   (setq pts (cons cpt pts))
)
  )
  (setq pt(length pts))
  (alert (strcat "\n共有圆的个数:" (itoa pt))))

freeok2013 · 发表于 2013-11-26 19:43:44

19622928 发表于 2013-11-26 17:50
(defun c:pp(/ ss i e cpt pts)
(setq ss (ssget '((0 . "circle"))) i -1)
(while (setq e (ssname ...

谢谢您！另外我想问下，
(setq ss (ssget '((0 . "circle"))) i -1)；这行如果有 i -1) 运行出结果下一行会出现 -1
(setq ss (ssget '((0 . "circle"))))；这行如果没有 i -1) 运行出结果下一行则不会出现 -1。哪个正确呢？

Lisphk · 发表于 2013-11-26 20:02:13

freeok2013 发表于 2013-11-26 19:43
谢谢您！另外我想问下，
(setq ss (ssget '((0 . "circle"))) i -1)；这行如果有 i -1) 运行出结果 ...

你问的是单行？

这两个语句单行运行结果都是让你选对象，第一个出现-1，是因为这行求值的最后结果是-1.

但结合你上面的程序，只有第一个带-1的对，因为这个是给循环里面的I赋初值的，循环里面不断的+1，才让你能正确的得到每一个实体。如果不加-1就错了。
在循环外面，给循环里面的变量赋初值0，或者这个里面的-1，是写程序的一个技巧。

freeok2013 · 发表于 2013-11-26 20:32:37

Lisphk 发表于 2013-11-26 20:02
你问的是单行？

这两个语句单行运行结果都是让你选对象，第一个出现-1，是因为这行求值的最后结果是-1 ...

谢谢！明白了是初始赋值！
但是为什么----带有 -1 的运行如下：
命令: pp
选择对象: 指定对角点: 找到 22 个
选择对象:
-1
命令:

不带有 -1 的运行如下：
命令: ppp
选择对象: 指定对角点: 找到 22 个
选择对象:----------------------------------为什么这里都还会出现一行选择对象，当然不影响使用。
命令:

谢谢！

freeok2013 · 发表于 2013-11-26 20:35:18

19622928 发表于 2013-11-26 17:50
(defun c:pp(/ ss i e cpt pts)
(setq ss (ssget '((0 . "circle"))) i -1)
(while (setq e (ssname ...

好像还是没有弹出 AutoCAD信息框呢。

freeok2013 · 发表于 2013-11-26 20:35:49

:dizzy:还是没有弹出 AutoCAD信息框呢。

st788796 · 发表于 2013-11-26 21:10:09

freeok2013 发表于 2013-11-26 20:35
还是没有弹出 AutoCAD信息框呢。

(defun c:tt (/ ss i e cpt pts)
(if (setq ss (ssget '((0 . "circle"))))
(progn (setq i -1)
(while (setq e (ssname ss (setq i (1+ i))))
(setq cpt (cdr (assoc 10 (entget e)))) ;_
(if (not (member cpt pts))
(setq pts (cons cpt pts))
)
)
(alert (strcat "\n共有圆的个数:"
(rtos (length pts))
"\n另有同心圆: "
(itoa (- (sslength ss) (length pts)))
)
)
)
)
(princ)
)

freeok2013 · 发表于 2013-11-26 21:28:32

st788796 发表于 2013-11-26 21:10

试了下，可行，但是我把 circle 改成polyline 为什么又不行了呢？LINE是可以的。谢谢！

st788796 · 发表于 2013-11-26 21:43:53

freeok2013 发表于 2013-11-26 21:28
试了下，可行，但是我把 circle 改成polyline 为什么又不行了呢？LINE是可以的。谢谢！

你首先要明确干什么，再就是要明白 DXF 组码的意思，当然对这个lisp也要懂

freeok2013 · 发表于 2013-11-26 21:50:13

st788796 发表于 2013-11-26 21:43
你首先要明确干什么，再就是要明白 DXF 组码的意思，当然对这个lisp也要懂

统计圆，线，多段线呢。
这个DXF组码还真是不太清楚。。{:soso_e121:}。有建议参考的吗？谢谢！

st788796 · 发表于 2013-11-26 22:02:20

freeok2013 发表于 2013-11-26 21:50
统计圆，线，多段线呢。
这个DXF组码还真是不太清楚。。。有建议参考的吗？谢谢！
...

1 论坛上这种程序很多
2 看 help , acad_dxf.chm acad_alr.chm

freeok2013 · 发表于 2013-11-26 22:35:17

st788796 发表于 2013-11-26 22:02
1 论坛上这种程序很多
2 看 help , acad_dxf.chm acad_alr.chm

非常谢谢，还是解不出来。

zxq0220 · 发表于 2013-11-27 08:05:56

freeok2013 发表于 2013-11-26 22:35
非常谢谢，还是解不出来。

真不知道你到底要干什么？圆是按半径统计，直线按什么统计？PLINE按什么统计？

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

[求助] 己解决！谢谢大仙们！！！

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

点评

点评

点评

点评

点评

点评

点评

点评

点评