龙城飞将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版,这个程序功能非常如愿,选择上还能不能优化一下呢?目前就是要把图元完全框选进去才能选上,能不能弄成从右下角开始的框选只要框到就能选上?同时还能点选,期待您再次相助!
页: 1 [2] 3
查看完整版本: 求框选图元,根据图元类型进入不同图层