ssget用法大全（基本上把能想到都覆盖了）

894560869 · 发表于 2019-4-6 11:21:39

(setq ss1 (ssget "P" '((0 . "line.LWPOLYLINE"))))(command "Explode" ss1)
(setq ss (ssget "P" '((0 . "*E"))))
请问：一次选择集中，如果是矩形就炸开，再选中（包括炸开）之后的line
怎么写？

1291500406 · 发表于 2019-4-6 12:43:07

本帖最后由 1291500406 于 2019-4-7 13:52 编辑

894560869 发表于 2019-4-6 11:21
(setq ss1 (ssget "P" '((0 . "line.LWPOLYLINE"))))(command "Explode" ss1)
(setq ss (ssget "P" '((0 ...

(defun c:bb()(setvar "cmdecho" 0)(command "undo" "be")(setq bb1(ssget '((0 . "line,LWPOLYLINE"))))
(setvar "qaflags" 1)(command "explode" bb1 "")(setvar "qaflags" 0)(setq bb2 (ssget "p"))
(if bb2 (progn(command ".select" bb1 bb2 "")(setq bb3 (ssget "p")))(setq bb3 bb1))
(sssetfirst nil bb3)(zg_makeblock bb3)(command "undo" "e")(setvar "cmdecho" 1)(princ))

894560869 · 发表于 2019-4-7 23:53:06

非常感谢 1291500406 君热心回复，试过了，不行啊
一次选中的对象中如果是矩形就炸开再选中炸开矩形后的直线

流动的清泉 · 发表于 2019-4-8 10:28:58

不错，会很有用的

ninja37 · 发表于 2019-4-9 06:01:54

谢谢楼主分享这个对新手来说很重要很有用

894560869 · 发表于 2019-4-10 07:27:37

本帖最后由 894560869 于 2019-4-10 07:30 编辑

一次选中的对象,中如果是直线
矩形（就炸开再选中炸开矩形后的直线）最后选择中的是直线

yshf · 发表于 2019-4-10 08:22:00

谢谢分享！

iszc · 发表于 2019-4-10 08:45:57

楼主辛苦了

894560869 · 发表于 2019-4-11 06:27:12

非常感谢 1291500406 君热心回复，试过了，可以啊！是(zg_makeblock bb3)

wrf610051 · 发表于 2019-5-7 06:43:23

楼主辛苦了,谢谢分享.

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

[源码] ssget用法大全（基本上把能想到都覆盖了）