- 积分
- 27300
- 明经币
- 个
- 注册时间
- 2002-2-15
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
发表于 2012-5-25 10:26:31
|
显示全部楼层
本帖最后由 e2002 于 2012-5-25 10:31 编辑
做这个的还真是无聊...
看了一下,其实就是 多重插入的匿名块
上面的解决基本都是一层一层的"剥皮",其实再想一下,何必如此麻烦,直接一刀切开,拿走...
对本图来说,总共就三条语句(其实实质性的只有一条即第二条) :
- (vl-cmdf "_erase" "_all" "")
- (entmake '((0 . "INSERT") (10 0.0 0.0 0.0) (2 . "*U90")))
- (vl-cmdf "_.explode" (entlast) "")
复制代码 |
|