龙城飞将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 static/image/common/back.gif
http://bbs.mjtd.com/thread-100603-1-1.html
4. ... 若发帖者的目的仅仅是为求编写程序...
那我把帖子弄到编程申请里去吧,支持明经社区有序发展
半听可乐
发表于 2013-5-12 16:04:32
wowan1314 发表于 2013-5-12 03:26 static/image/common/back.gif
(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 static/image/common/back.gif
想要的终于实现了,效果非常好!非常感谢Z版再次相助!
有时间一定要学习一下lisp
1993063
发表于 2013-5-13 22:23:50
wowan1314 发表于 2013-5-11 09:26 static/image/common/back.gif
(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 static/image/common/back.gif
你们不能这样啊~
自己参照写个
(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 static/image/common/back.gif
Z版,这个程序功能非常如愿,选择上还能不能优化一下呢?目前就是要把图元完全框选进去才能选上,能不能弄成从右下角开始的框选只要框到就能选上?同时还能点选,期待您再次相助!