- 积分
- 16937
- 明经币
- 个
- 注册时间
- 2011-10-13
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
发表于 2012-1-4 15:33:44
|
显示全部楼层
本帖最后由 VBALISPER 于 2012-1-4 15:36 编辑
我来推荐一个吧,推荐理由:使用率高,代码少,方法好.
;;;;;;;;;;;选择线,并转为多义线程序,原作者不详
(defun c:gf (/ b)
(setvar "peditaccept" 1);设置系统变量,这个方法好,避免区分直线和多段线.
(setq b (ssget '((-4 . "<OR")(0 . "LINE")(0 . "LWPOLYLINE")(0 . "ARC")(-4 . "OR>"))))
(command "pedit" "m" b "" "j" "0" "" )
(setvar "peditaccept" 0);改回来比较好,此句by konglong
(prin1)
) |
|