小菜版选择易，欢迎使用并提出完善建议

minecad · 发表于 2011-7-4 13:39

支持源码分享我们成长更快谢谢

mj0000 · 发表于 2011-7-4 14:12

回复小菜123 的帖子

新版什么时候出？期待

小菜123 · 发表于 2011-7-4 20:58

本帖最后由小菜123 于 2011-7-4 23:20 编辑

这几天比较忙，可能要下周了楼上朋友能贡献一下选择VIEWPORT的代码么? 我试了一下，始终只是选中多义线

mj0000 · 发表于 2011-7-5 09:54

本帖最后由 mj0000 于 2011-7-5 18:22 编辑

回复小菜123 的帖子

前面的选择部分改了下：
(WHILE (not SS) ;_循环选择，数量不大于2，且不为0
  (setq S1 (Ssget ":S"))
  (if (or (not S1) (> (sslength S1) 2))
(progn (setq SS nil) (princ "\n### 不是有效样板实体，请重选 ###"))
(setq SS S1)
  )
  (if (= (getvar "ErrNo") 52)
(setq SS "Exit")
  ) ;_右键退出
)
(if (and (= 1 (sslength SS)) (/= "VIEWPORT" (cdr (assoc 0 (entget (ssname SS 0)))))) ;_选择数量为1，且不为视口
  (SETQ slent (ssname SS 0)) ;_非视口对象
  (if (and (= 1 (sslength SS)) (= "VIEWPORT" (cdr (assoc 0 (entget (ssname SS 0))))))
(SETQ slent (ssname SS 0))
(if (and (= 2 (sslength SS)) (= "VIEWPORT" (cdr (assoc 0 (entget (ssname SS 0))))))
   (SETQ slent (ssname SS 0))
   (SETQ slent (ssname SS 1))
) ;_前面这里写错了，编辑下
  )
)

小菜123 · 发表于 2011-7-5 21:34

本帖最后由小菜123 于 2011-7-5 21:53 编辑

是否选择了viewport的多义线框，就意味着采用相应的viewport作样本实体呢?程序是否需要设置一个选项，以确定是采用多义线框还是视口来作样本?先放出1.11的版本，供测试

mj0000 · 发表于 2011-7-6 00:05

下载新版。。。。
另建议：属性图块没法单独选择，建议增加属性图块组码66

小菜123 · 发表于 2011-7-6 13:17

块的伴随属性选项加在附加过滤里面了

mj0000 · 发表于 2011-7-6 22:00

选择所有属性块，不是某一种属性块

小菜123 · 发表于 2011-7-6 22:12

一楼的程序中午更新过了，只是版本号没变。确实可以选择所有带属性的块

skynoon · 发表于 2011-7-6 22:21

更新相当的到位，感谢

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

[资源] 小菜版选择易，欢迎使用并提出完善建议