|
(progn
;;;首曲线
(command "layer" "s" "0" "")
(setq a (ssget "x" (setq exdata'((-3("south"(1000 . "201101")))))))
(if a
(progn
(setq i 0)
(setq len (sslength a))
(repeat len
(setq b (ssname a i))
(command "pedit" b "w" "0.1" "" )
(setq i(+ i 1))
);end repeat
)
) (command "layer" "s" "0" "")
(setq a (ssget "x" (setq exdata'((-3("south"(1000 . "201101")))))))
(if a
(progn
(setq i 0)
(setq len (sslength a))
(repeat len
(setq b (ssname a i))
(command "pedit" b "w" "0.1" "" )
(setq i(+ i 1))
);end repeat
)
) 看看那个大侠能帮我改一下，我想处理二维多段线 这个只能处理多段线 | 
发表于 2009-10-12 16:59:00
置顶卡
变色卡
显身卡
发表于 2009-10-12 17:09:00