社区 › AutoLISP/Visual LISP 编程技术 › 小菜版选择易，欢迎使用并提出完善建议

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

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

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

回复 小菜123 的帖子

新版什么时候出？期待

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

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

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

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

本帖最后由 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:33

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

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

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

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

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

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

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

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

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

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

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

更新相当的到位，感谢

查看完整版本: 小菜版选择易，欢迎使用并提出完善建议