刷直线为引线（Z版提供）

偏爱云~小吴 · 发表于 2013-12-7 20:41:38

(defun c:tt ()
(setvar "CMDECHO" 0)
(if (setq ss (ssget '((0 . "LINE")))) (progn
(setq i -1)
(repeat (sslength ss)
(setq ent (entget (ssname ss (setq i (1+ i))))
p1 (cdr(assoc 10 ent))
p2 (cdr(assoc 11 ent)))
(command "_.LEADER" p1 p2 "" "" "N")
)
(command "_.ERASE" ss "")
))
(setvar "CMDECHO" 1)
(princ)
)
感谢大神

w245272914 · 发表于 2018-6-6 11:49:13

dabingrain 发表于 2016-6-1 10:52

能不用端點去判斷箭頭就好了，直線自由點在屏幕上，離那個端點近自由判斷箭頭在那邊，這樣操作比較爽

清风明月名字 · 发表于 2013-12-8 09:17:30

谢谢楼主！又学一招。

偏爱云~小吴 · 发表于 2013-12-9 21:27:31

Z版提供的感谢Z版吧

yiqisese · 发表于 2013-12-11 17:25:05

纯支持。

wudi · 发表于 2013-12-11 18:40:24

试用了下不错

lucas_3333 · 发表于 2014-3-8 19:01:25

希望Z版主改进一下，最好支持PLINE，可刷PL为引线，另外箭头可以选择在哪一侧,谢谢

lucas_3333 · 发表于 2014-3-9 21:51:28

这么快就沉啦？

偏爱云~小吴 · 发表于 2014-3-9 22:08:51

你可以直接找Z版

xieyanghui · 发表于 2014-3-10 06:07:37

希望Z版主改进一下，最好支持PLINE，可刷PL为引线，另外箭头可以选择在哪一侧,谢谢,支持

ZZXXQQ · 发表于 2014-3-10 19:55:59

xieyanghui 发表于 2014-3-10 06:07
希望Z版主改进一下，最好支持PLINE，可刷PL为引线，另外箭头可以选择在哪一侧,谢谢,支持

PLINE?直接炸开不就是直线了。

账号		自动登录	找回密码
密码			注册

[源码] 刷直线为引线（Z版提供）