/db_自贡黄明儒_
发表于 2015-1-12 10:03:16
[功能] 多段线接着画
本帖最后由 yularna 于 2015-1-12 13:20 编辑
;;[功能] 多段线接着画
(defun C:ContinuePL (/ E LST)
(cond
((setq e (ssget "_+.:E:S" '((0 . "LWPOLYLINE"))))
;;如果击点在起点，则多段线要反向，本程序略
(setq e (ssname e 0))
(setq lst (PL->List e))
(entdel e)
(apply 'command (cons "_.pline" lst))
)
)
(princ)
)
**** Hidden Message *****
/db_自贡黄明儒_
发表于 2015-1-12 10:12:57
支持输入U和C。{:soso_e106:}
819534890
发表于 2015-1-12 10:41:48
支持支持，{:soso_e179:}
漫漫遥
发表于 2015-1-12 10:44:39
很不错的样子！
qyming1996
发表于 2015-1-12 11:38:49
什么东东。。。。。。。。。
芦苇芦苇
发表于 2015-1-12 11:56:46
试一下，感觉挺好的
434939575
发表于 2015-1-12 11:59:05
每日一码，不要停下来{:soso_e113:}
q3_2006
发表于 2015-1-12 13:16:02
不要略嘛...加个函数而已...
myfrankie
发表于 2015-1-12 13:38:29
这个可以有
lucas3
发表于 2015-1-12 14:06:39
顶顶顶，支持！！！
lymyllove
发表于 2015-1-12 14:51:02
代码怎么弄呀？
zhenyoucai
发表于 2015-1-12 15:29:43
不错不错，非常不错
HLCAD
发表于 2015-1-12 17:43:30
学习！学习！
hao3ren
发表于 2015-1-12 17:45:00
老黄劲头十足啊
wzg356
发表于 2015-1-12 21:41:51
写过，看看
页:
[1]
2
3
4
5
6
7
8
9
10