柴月二号 发表于 2016-7-1 14:42:04

请教老师写的将多段线分解为直线源码实现不了，请老师指点

源码如下：
(command "explode" (ssget "x" '((0 . lwpolyline)))) 此源码不能实现全图分解多段线为直线，不知道为什么

请老师调试指点

柴月二号 发表于 2016-7-1 14:51:17

'((0 . lwpolyline)(8 . "地块边界"))我想实现某一图层的非闭合多段线转换为直线 ，然后借助g版的闭合函数实现直线批量闭合多段线

ivde 发表于 2016-7-1 15:31:12

本帖最后由 ivde 于 2016-7-1 15:32 编辑

(setvar "qaflags" 1)
(while (setq ss (ssget "x" '((0 . "lwpolyline"))))
   (vl-cmdf ".explode" ss "")
)
(setvar "qaflags" 0)

非闭合 (-4 . "&=")(70 . 0)

柴月二号 发表于 2016-7-2 10:11:30

ivde 发表于 2016-7-1 15:31 static/image/common/back.gif
(setvar "qaflags" 1)
(while (setq ss (ssget "x" '((0 . "lwpolyline"))))
   (vl-cmdf ".explode" ss...

好用，谢谢老师
页: [1]
查看完整版本: 请教老师写的将多段线分解为直线源码实现不了，请老师指点