[求助]：请求各位大哥们指点迷津？怎么样才能建一个只能点选的选择集？

andyhua5240 · 发表于 2005-12-6 23:48:55

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

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

×

(defun c:ref()
  (princ "\n*|进入块的在位编辑→<选择非块中块的实体可以进入最上层块的编辑!>|*")
  (command "-refedit" pause "o" "a" "n")
  (princ)
)
上面的这段代码的有点问题？
我的本意是，觉得CAD的REFEDIT命令太麻烦，每次双击的时候会出现一个对话框让你选择要在位编辑块的路径，而且要点确定。所以就有上面的代码。但是这个代码有问题：
1，我不会写只能点选的选择集的代码，所以用了pause来代替，请求大哥哥们指教？
2，当选择的对象为块中块的时候，这时就不是进入了最上层的块了，而是进入的块中的那个块了，能不能写成：就算我点选的是块中的块，程序也自动的会进入最上层的块，也就是整个块都进入了在位编辑的状态？
谢谢！
小弟在这里给大哥们鞠躬了，SSSS！！！
谢谢！

xyp1964 · 发表于 2005-12-6 23:52:18

[FONT=courier new](defun c:test (/ s1)
(setq ss (ssadd))
(while (setq s1 (car (entsel "\n选择实体 : ")))
(setq ss (ssadd s1 ss))
)
ss
)[/FONT]

andyhua5240 · 发表于 2005-12-7 00:24:12

斑竹呀，请恕小弟无能，我不会呀？
5555555555555555555555555555555555555555555555~~~~~~~~~~~~~~~~~~~~~~~~~~~
能帮忙改改么？
谢谢！

xyp1964 · 发表于 2005-12-7 08:09:51

[FONT=courier new](defun c:ref ()
(princ
"\n*|进入块的在位编辑→<选择非块中块的实体可以进入最上层块的编辑!>|*"
)
(setq s1 (entsel "\n")
etype (cdr (assoc 0 (entget (car s1))))
)
(if (= etype "INSERT")
(command "-refedit" (cadr s1) "o" "a" "n")
)
(princ)
)[/FONT]

andyhua5240 · 发表于 2005-12-7 23:23:47

斑竹，谢谢你的热心的回帖，但是上面的代码的结果不是我想要的。
我想要的效果是，就算是选择了块中的块，程序也能自动的去在位编辑最上一层的块，也就是那个最大的块。
但是斑竹的这个程序则不行。
谢谢！

tctabc · 发表于 2005-12-8 08:06:03

看您的要求好像是要框选一区域选取出最上层的图快并进入编辑是吗

andyhua5240 · 发表于 2005-12-9 20:21:29

好不容易能上晓东！
为什么没有人回帖哦！
我急呀！
555555555555555555555555555

狂刀 · 发表于 2005-12-9 21:20:39

块的上层含有曲线，面等还好说，如果只是文字那会有点麻烦，不过也可以

andyhua5240 · 发表于 2005-12-9 21:55:18

那如何实现呢，请狂刀兄支招！
谢谢！

狂刀 · 发表于 2005-12-10 00:44:24

１nentsel 取块实体，提取最上层块实体（此步骤也可用ssget）
２搜索最上层实体集ss（ｖｌａ－ｉｔｅｍ。。。）
　如果是曲线，或面域，提取起点(vlax-curve-getfirstpoint)或面域首定义点　ｐｔ
３(command "refedit" pt ....)

andyhua5240 · 发表于 2005-12-10 21:53:23

刀哥太高估我了，我只是懂个lisp的毛皮，刀哥这么深奥的言语，小弟我根本不懂呀？
郁闷中！

hnfsf · 发表于 2014-9-15 17:10:01

原来是带PT参数，明白。。

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

[求助] [求助]：请求各位大哥们指点迷津？怎么样才能建一个只能点选的选择集？

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

相关帖子