折断线lisp_晓东CAD家园-论坛-A/VLISP-[LISP程序]：工艺流程图交叉线打断-我们绘制工艺流程图时，交叉线经常要打断，一般都是竖断横不断。手工打断的话，间距不一样，很不美观，所以就编了...

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有帐号？立即注册

x

我们绘制工艺流程图时，交叉线经常要打断，一般都是竖断横不断。手工打断的话，间距不一样，很不美观，所以就编了这个小程序。

由于我们的工艺流程图都是正交线段，所以这个程序就很简单了，只考虑了最基本的要求。

[PHP]

(defun c:LC (/ osm oc ol Key Space pt pt1 pt2 ss len i entn a)

(setq Space (getreal "请输入断开间距 <4>:"))

(if (= Space nil)

(setq Space 4)

)

(setq key 1)

(while (/= key nil)

(if (/= (setq pt (getpoint "\n选择需断开的交点:")) nil)

(progn

(setq pt1 (list (nth 0 pt) (+ (nth 1 pt) (/ Space 2))))

(setq pt2 (list (nth 0 pt) (- (nth 1 pt) (/ Space 2))))

(setq ss (ssget "C" (list (- (car pt) 1) (+ (cadr pt) 1))(list (+ (car pt) 1) (