直线相交 断开

maoyangmy

我们在画系统图时，当管线相交时应断开，线一般为直线或多段线，有没有这种程序，在很多管线相交处，统一按横向或竖向断开同样距离？？？

JSKSGS

管线相交时，怎么也不会自行断开，只有用打断命令，执行打断才行!

小灰豆

使用打断命令或裁剪,然后在COPY就好了

willovu

似乎没有规定说要一样距离的

5 q( l' A1 b+ t# `# }基本凭感觉打断

sealive_leafage

你可以用lisp试试看，方法是选择交点，输入水平或垂直方向，再调用两点打断命令，可以程序控制断开的间隙，系统图一般在断开后还要绘制半圆弧跳过，亦即在水平或垂直方向绘制半圆，圆的直径为断开处的间隙大小；

wsj249201

原帖由 maoyangmy 于 2008-2-19 05:40 发表 http://www.3dportal.cn/discuz/images/common/back.gif
- x3 e3 Y% C3 g我们在画系统图时，当管线相交时应断开，线一般为直线或多段线，有没有这种程序，在很多管线相交处，统一按横向或竖向断开同样距离？？？

8 g3 I3 D2 J, ]. u! s8 L  E+ b据说你的二次开发编写得不错，不防按照5楼的建议自己编写一个共享，这样一则展示自己的真实水平，二则给其他的会员学习的机会，何乐而不为呢？

maoyangmy

回复“高山流水”：
如果采用二次开发来解决这个问题，查找到交点后用命令断开容易实现， 但如何查找到交点，我还没有很好的解决办法，因为对象可能是线、多段线、圆弧、块等，类型太多， 不好判断

maoyangmy

5楼说的情况我已完成了编程, 但必须一个一个的交点来选择, 无法用框选方式一次选中, 请教各位有没有更好的办法

番禺理工

为什么要简单的问题复杂化
$ i$ `* a5 w9 Z7 u+ \/ B3 y$ CCAD本身有点打断的命令，这个不是花瓶

maoyangmy

相交线横断程序

(DEFUN C:HD()
5 a7 _" B9 R( \( D0 k' U+ N  c(SETVAR "OSMODE" 32)
$ U, f% d: g6 ?" c) `(SETQ a (getpoint "\n Select intersection to break: "))
# n( [% P* ~) e- L" ^9 ?(setq x (car a))
; A6 `9 f5 W5 L, l; ^3 S(setq y (cadr a))
(command "break" (list (- x 2) y) "@4,0" "@4,0")
(SETVAR "OSMODE" 231)
/ O$ `0 I* L: ~2 Y, v)

$ ?/ r/ z/ n! s4 Y& ^( A断开距离为两边各2，如果需要距离加大，可自行修改

细看涛生

在交点上画个圆.剪.

wsj249201

原帖由 maoyangmy 于 2008-6-29 20:31 发表 http://www.3dportal.cn/discuz/images/common/back.gif
( A  Q% S( C' ^( s2 u相交线横断程序

. Q+ |7 x8 o4 D: M# h(DEFUN C:HD()
  n7 k/ X: ], G% x1 ?(SETVAR "OSMODE" 32)
(SETQ a (getpoint "\n Select intersection to break: &quot)
$ m3 @/ c* }: C  M" t(setq x (car a))
7 b! M% z4 c  G8 v2 _( L+ S- ~(setq y (cadr a))
(command "break" (list (- x 2) y) "@4,0" "@4,0")
0 R8 {0 p  |7 }& w: ~(SETVAR "OSMODE" 231)
)

* {6 K% h8 Y4 j1 R# h. t断开距离为两边各2，如果需要距离加大，可自行修改

5 n$ D1 f# v7 u, ~' Z* @* t楼主同志
看了你的大作，我喜忧掺半 ，喜的是三维有这样优秀的会员，水平之高目前没人匹敌good ，悲的是我这大老粗刚开始看不懂“Select intersection to break”这是吗玩意:lol: ，高人呀高人 。
, d( X# Q/ f- o$ \3 V/ h8 I

悲喜交加使我彻夜未眠,转辗反侧时，一位仙人告诉我比着葫芦画瓢吗？titter 于是找来了葫芦分成两半开始了如下的诉说：

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
! B) g1 t; m; l5 M6 A! J9 z

仙人告诉我：“一楼的题目很大，解决的办法是有，但不是一两个人短时间内能完成的。这个题目有点像填充中的孤岛检测，要遍历所有有关的对象，分析所有可能的情况，CAD的填充在图形复杂时经常不灵，可能就是程序员没把可能的情况都估计到吧。别把简单问题复杂话吗 ”
1 ^2 H( H) m$ r: F. Z) q

我默默的点头titter

楼主同志，睡梦中将你的大作进行了白话解析，放在此处，供像我这样一点不懂的人去理解，不对处望能海涵:handshake
. h3 u# g- ^7 U  y3 h

2 P3 c4 y! Q/ m: g) o# [) R2 k(DEFUN C:HD()
这一行是在定义一个命令“HD”
(SETVAR "OSMODE" 32)
3 M; @: B4 ~1 ?% I' f. @" `2 t( S这一行是修改系统变量“OSMODE”（对象捕捉）的值为32，即“交点”
9 [0 G# p: M& o7 k(SETQ a (getpoint "\n Select intersection to break: "))

这一行是在屏幕上指定一个点（即交点），并给这个点取名“a”。“Select intersection to break:”是在命令行提示用户拾取点（英国历史我没学几天，不知道对否titter ）
  m* B  w  g$ P/ x( f9 b7 D6 P( d(setq x (car a))
6 A+ D, X( g& {) {; k提取a点的X坐标，取名“x”
& E/ o, \4 i1 n; Y/ a- i9 L(setq y (cadr a))
8 R( z- t0 V1 U9 t3 J4 B& y提取a点的Y坐标，取名“y”
. v2 O" T7 L; H(command "break" (list (- x 2) y) "@4,0" "@4,0")
+ q/ `- L  K2 m# b- x- h1 G" Y向命令行发送“"break" (list (- x 2) y) "@4,0" "@4,0"”字符串，相当于手工在命令行输入“break”，空格键或回车，命令行提示选择对象时在a点左侧2个图形单位处指定点（“(list (- x 2) y)”是坐标(x-2,y)），命令行提示指定第二个打断点或输入“f”时在命令行输入“@4,0”，空格键或回车后又输入一个“@4,0”，回车
(SETVAR "OSMODE" 231)
把“OSMODE”系统变量（对象捕捉）改为231，即“1+2+4+32+64+128”，即“端点+中点+圆心+交点+插入点+垂足”
, A6 ]& x% E/ ?7 k" v)
+ P4 v5 A- B5 _+ ?, B1 m程序结束
$ T& o8 ?( l) O6 L' E! N+ J% Q/ _
★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
分析一下程序可以看出：让你见笑了:handshake

' `4 E/ K9 I" J6 S6 [' D
1、(SETVAR "OSMODE" 32)把“对象捕捉”改为“交点”后，在程序结束之前改为231，没有考虑使用者之前的设置是否是231。（不知对否？高人同志:handshake ）
2、(command "break" (list (- x 2) y) "@4,0" "@4,0")这一行问题多多。首先，调用"break"命令，当命令行提示选择对象时在a点左侧2个图形单位处指定点会出现意外。举个例子，在图上先画一条水平直线，再画一条垂直直线与水平直线相交（此时垂直直线绘图顺序在上），当视图缩得比较小而拾取框比较大，a点左侧2个图形单位处拾取框能同时覆盖两个对象时，CAD会选择垂直直线而不是水平直线打断；再举个例子，在图上画两条倾斜的相交直线，把视图放得很大，a点左侧2个图形单位处拾取框不能覆盖对象时，CAD会找不到对象，程序执行完了，CAD还在提示选择对象。其次，第一个"@4,0"的用处原本是在拾取框右侧4个图形单位处设置第二个打断点，但实际使用中如果视图缩得比较小，对象捕捉会捣乱，把"@4,0"点改到交点上。最后，第二个"@4,0"完全是多余的。（看看我这智商特低，理解对吗？ ）
# j) }, n9 z4 }( Z, o" w- ?1 s1 g6 |

9 u1 S4 g* K6 M/ K$ u0 H' |
★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
3 h' P/ n  m  v/ M3 L* c, m5 A
5 Z( T% k: E0 B. b- U4 Z
0 ~. N- ^5 [# E! q7 |/ l- ]# `7 ^8 F这个程序如果不做大的改动又要求好用，可以这么做（不好用我也不再研究了，因为没有多大的实际意义:lol: ）
9 C- r7 X: d& C6 j" U* y

' n: l+ s4 M# {6 L" c4 v) m
3 }9 T8 n" t7 b* Y, g/ t1 k6 p5 z1、使用说明：要打断的对象必须处于绘图顺序的顶层；如果该对象是水平直线则在交点的左右两侧各2个图形单位处打断，否则在交点的左右两侧2个图形单位处的点向该对象做垂线的垂足处打断。
; s5 K6 w5 }9 S. G, r0 p; g1 O2、修改后的程序：
(DEFUN C:HD()
' ~) G8 r2 m; T(setq b(getvar "osmode"))
(SETVAR "OSMODE" 32)
, I5 x( [& C. m# c5 T(SETQ a (getpoint "\n Select intersection to break: "))
0 a/ Y6 p3 O7 L* S7 N+ g( f(SETVAR "OSMODE" 0)
(command "break" a "f" "@-2,0" "@4,0")
6 ~* G8 X* H: M# C2 @* R( L8 J(SETVAR "OSMODE" b)
  r9 v7 c' d% W# C- v- B)
' t  q# a1 i; q! K; }
把这个程序翻译成白话
(DEFUN C:HD()
9 S$ e1 N: t5 Q) n, }( F' ~! T定义一个命令“HD”
(setq b(getvar "osmode"))
把使用者原来的“对象捕捉”设置保存为b
(SETVAR "OSMODE" 32)
) B0 Z+ ?7 p8 o  j( M4 B修改“对象捕捉”为“交点”
(SETQ a (getpoint "\n Select intersection to break: "))
在屏幕上指定交点
(SETVAR "OSMODE" 0)
取消对象捕捉
4 @" W6 Z2 D8 }(command "break" a "f" "@-2,0" "@4,0")
向命令行发送“"break" a "f" "@-2,0" "@4,0"”字符串，相当于手工在命令行输入“break”，空格键或回车，命令行提示选择对象时在a点指定点（既然在a点左侧2个图形单位处不能保证正确选择，还不如直接在a点选择），命令行提示指定第二个打断点或输入“f”时在命令行输入“f”，空格键或回车，在a点左侧2个图形单位处指定第一个打断点，在第一个打断点的右侧4个图形单位处指定第二个打断点。
(SETVAR "OSMODE" b)
& D9 _, }3 A9 a) ]& j: L* [- f恢复使用者原来的“对象捕捉”设置
) V( W% {" L" W)
程序结束

over

muhdi

既然是大作
4 D- m. X) F  B; Z" S/ K9 Z那版主給加幾分呀
3 A* n( w5 u7 X9 p^^