求框选图元，根据图元类型进入不同图层

龙城飞将36 · 发表于 2013-5-12 06:54:04

期待高手~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Andyhon · 发表于 2013-5-12 10:17:18

http://bbs.mjtd.com/thread-100603-1-1.html
4. ... 若发帖者的目的仅仅是为求编写程序...

yaokui25 · 发表于 2013-5-12 11:11:29

上网找找有很多类似的例子，以前我也遇到过这样的问题

半听可乐 · 发表于 2013-5-12 15:48:58

Andyhon 发表于 2013-5-12 10:17
http://bbs.mjtd.com/thread-100603-1-1.html
4. ... 若发帖者的目的仅仅是为求编写程序...

那我把帖子弄到编程申请里去吧，支持明经社区有序发展

半听可乐 · 发表于 2013-5-12 16:04:32

wowan1314 发表于 2013-5-12 03:26
(Defun c:j1 ()
(Sets Ss (ssget ":L" '((0 . "Circle")));建选择集
(command "_chprop" Ss "" "la" "立管 ...

no function definition: SETS 选择之后没反应

wowan1314 · 发表于 2013-5-12 17:02:19

是setq..其他的你可以参照修改得出！混了这么久，你应该可以的

半听可乐 · 发表于 2013-5-12 23:34:20

ZZXXQQ 发表于 2013-5-11 09:42

想要的终于实现了，效果非常好！非常感谢Z版再次相助！
有时间一定要学习一下lisp

1993063 · 发表于 2013-5-13 22:23:50

wowan1314 发表于 2013-5-11 09:26
(Defun c:j1 ()
(Sets Ss (ssget ":L" '((0 . "Circle")));建选择集
(command "_chprop" Ss "" "la" "立管 ...

这个要先建立图层才能归层

1993063 · 发表于 2013-5-13 22:27:54

本帖最后由 1993063 于 2013-5-13 04:33 编辑

半听可乐发表于 2013-5-11 01:45
你们不能这样啊~

自己参照写个
(Defun c:j1 (/ ss)
(vl-cmdf "layer" "make" "圆" "Color" 3 "" "")
(setq Ss (ssget ":L" '((0 . "Circle"))));建选择集
(command "_chprop" Ss "" "la" "圆" "") ;改图层
)

半听可乐 · 发表于 2013-5-19 13:00:37

ZZXXQQ 发表于 2013-5-11 09:42

Z版，这个程序功能非常如愿，选择上还能不能优化一下呢？目前就是要把图元完全框选进去才能选上，能不能弄成从右下角开始的框选只要框到就能选上？同时还能点选，期待您再次相助！

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