[求助]请帮忙改改这个LISP

rubbin · 发表于 2007-7-27 01:46

本帖最后由作者于 2007-7-27 1:46:51 编辑

烦请哪位大侠支招，帮忙改改这个LISP，附件是一个顶针列表的程序，但是这个程序有点问题，就是列表的时候不支持选择，而是自动将EPIN层的圆全部列出来了，很是不方便。

Andyhon · 发表于 2007-7-27 08:17

(ssget "X" (list .... ; Auto
===>
(ssget (list .... ; 支持选择

rubbin · 发表于 2007-7-27 10:09

楼上的大侠,照你的意思改了,支持选择了,但是还有一个问题就是不知怎么样实现只列表选择的圆,请指教.因本人对LISP只懂一点,非常感谢!

小弟在线等.

Andyhon · 发表于 2007-7-27 10:17

只列表选择的圆?
不解何意 ......

rubbin · 发表于 2007-7-27 10:56

依楼上大侠指教改了一下程序,还有一个问题就是怎么实现只列表选择的对象,而不是将所有同规格直径的圆全部列表.烦请再指教,非常感谢!

Andyhon · 发表于 2007-7-27 11:32

試試.....

     ......
    (setq j (1+ j))
    (command "Select" lst_r "")    ; 补这句
    (setq ss (ssget "P"            ; "X" ==> "P"
      (list (cons 0 "circle")
     (cons 40 (/ aa 2))

      )   ;end list
      )    ;end ssget
    )
    ............

rubbin · 发表于 2007-7-27 15:08

多谢大侠指点,已经搞定,可以用了.非常感谢!

rubbin · 发表于 2007-7-27 16:05

大侠,实在是不好意思,还有一个小小的问题烦请帮忙解决,主要是列表后怎么将列表前面的序号(编号1,2,3,4....)归零,以便我第二次列表时不会接着前面的序号来.

如我第一次列表序号是1~9,当我第二次列表时序号则会接着来,10,11,12,13.... 困惑中......

小弟改了一下,没有办法实现.修改后的程序我已经发到你的邮箱里头了.烦请再次支招.感激不尽!

7686599 · 发表于 2007-7-27 18:38

遮遮掩掩！最烦就是这样了。

rubbin · 发表于 2007-8-5 00:20

7686599发表于2007-7-27 18:38:00遮遮掩掩！最烦就是这样了。

楼上这位说话也未免太不客气了吧。

通过Andyhon兄的指点，小弟已将程序修正完成了。效果相当理想。在此万分感谢！

附图为效果。

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

[求助]请帮忙改改这个LISP

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源