[求助]关于线的打断break问题，大家帮帮忙

maomao2004

我有一个想法，选取一条直线后，通过输入平分的段数，通过divide操作后，获取平分点的坐标
，然后根据输入的距离，再线上的平分点左右得到另外两个点，这样再通过break断开这两点间距离。。。不知道说清楚没有，呵呵，下面我编了点，可是到break的时候就出错了。大家帮我看看吧。。谢谢~~~~
(defun c:bre ()
(setq ent (entsel "select the Line you need:"))
(setq ent0 (car ent))
(setq data (entget ent0))
(setq etype (cdr (assoc 0 data)))
(if (/= etype "LINE")
(progn
(prompt "The entity is not 'LINE' ")
(exit)
)
)
(setq spnt (assoc 10 data))
(setq epnt (assoc 11 data))
(setq langle (getangle "Input lines' Angel:"))
(setq vpnt (getint "Input the number of bridge:"))
(setq dis (getint "Input the distance of bridge:"))
(setq vn (+ 1 vpnt))
(command "_.divide" ent vn)
(setvar "osmode" 0)
(setq psele (ssget "p"))
(setq i 0)
(while (< i vpnt)
(setq e (ssname psele i))
(setq spdat (cdr (assoc 10 (entget e))))
(setq epdat1 (polar spdat langle (/ dis 2)))
(setq epdat2 (polar spdat (+ pi langle) (/ dis 2)))
(command "_.break" (list ent epdat1) "f" epdat1 epdat2)
(setq ent (entlast))
(setq i (+ i 1))
)
)

lazybug

在(while (< i vpnt)语句之前加一句
(SETQ ENT (CAR ENT))

maomao2004

我试过啦，不行的

ljpnb

(defun c:bre ()
  (setq ent (entsel "\n select the Line you need:"))
  (setq ent0 (car ent))
  (setq data (entget ent0))
  (setq etype (cdr (assoc 0 data)))
  (if (/= etype "LINE")
    (progn
      (prompt "The entity is not 'LINE' ")
      (exit)
    )
  )
  (setq spnt (CDR (assoc 10 data)))
  (setq epnt (cdr (assoc 11 data)))
;;;(setq langle (getangle "Input lines' Angel:"))
  (setq langle (angle spnt epnt));_换成这样格式
  (setq vpnt (getint "\n Input the number of bridge:"))
  (setq dis (getint "\n Input the distance of bridge:"))
  ;;(setq vn (+ 1 vpnt))
  (command "_.divide" ent (1+ vn))
  (setvar "osmode" 0)
  (setq psele (ssget "p"))
  (setq i 0)
  (while (< i (sslength psele))
    (setq e (ssname psele i))
    (setq spdat (cdr (assoc 10 (entget e))))
    (setq epdat1 (polar spdat langle (/ dis 2.0)))
    (setq epdat2 (polar spdat (+ pi langle) (/ dis 2.0)))
    (command "break" (list ent0 epdat1) "f" epdat1 epdat2);;ent改成ent0
    (setq ent0 (entlast));_
    (setq i (1+ i))
  )
)

龙龙仔

3. ;;我写的打缺口程式为什么有时会出错?
4. ;;该程式是用来将线、圆、弧打上缺口,缺口大小与个数由用户输入,
5. ;;但是在使用过程中,当用户输入的个数太多时,经常会发生所生成的缺口
6. ;;不是用户输入的大小,并且位置也不正确,请大家帮我分析一下此程式,谢谢!
7. ;;这个程式是用在镭射切割图形方面的，这个缺口，
8. ;;专有名词叫"桥位元"，就是镭射按照图形切割时，
9. ;;桥位元的地方就不要切，目的是防止图形中闭合部分掉下去，
10. ;;举例：我画一个100x100的方框，先炸开它，输入命令bk，默认的半断宽度为6mm,
11. ;;若是直线，默认的半断的个数是1个，若为圆，默认的半断是3,我先选直线，
12. ;;输入2个、3个、4个、等，都能正确的打上缺口，但是若输入的缺口个数过多，
13. ;;则会出现所打的缺口不在我所想要的位置，此时再选其他的线、圆等，
14. ;;都会出现所打的缺口不是6mmm,并且不在要求的位置，但是开新档后，
15. ;;一切又恢复正确，另外我还写了一个程式是用来恢复这个缺口的，
16. ;;我现在检查了bk.lsp的所有参数，但就是找不出为什么会出错
17. (defun C:BK (/     HOLDECHO   HOLDOSMODE HOLDCL QBLL   AA
18.       QI     QCCC   CBB   AAB  BB ST     QED    AD
19.       DD     AJ    XAA   AED  ANG SPT    ANS    ANE
20.       ANG    PT    PT1   ACCC  ARC_1 ARC_L
21.      )
22.   (setq HOLDECHO (getvar "cmdecho"))
23.   (setvar "cmdecho" 0)
24.   (command "_.undo" "group")
25.   (setq HOLDOSMODE (getvar "osmode"))
26.   (setq HOLDCL (getvar "clayer"))
27.   (setvar "osmode" 0)
28.   (setq QBL (getdist (strcat "\n 请输入缺口尺寸:<6>: ")))
29.   (if (= QBL NIL)
30.     (setq QBL 6.0)
31.   )
32.   (setq AA (ssget '((0 . "line,circle,arc"))))
33.   (setq QI 0
34. QCCC 1
35. QCC NIL
36. CBB 1
37. CB NIL
38. ACCC 1
39. ACC NIL
40.   )
41.   (if (/= NIL AA)
42.     (repeat (sslength AA)
43.       (setq AAB (ssname AA QI))
44.       (redraw AAB 3)
45.       (setq BB (cdr (assoc 0 (entget AAB))))
46.       (setvar "clayer" (cdr (assoc 8 (entget AAB))))
47.       (cond
48. ((= BB "LINE")
49.   (setq ST (cdr (assoc 11 (entget AAB))))
50.   (setq QED (cdr (assoc 10 (entget AAB))))
51.   (setq AD (distance ST QED)
52.         DD (angle ST QED)
53.   )
54.   (if (< QBL AD)
55.     (progn
56.       (while (or (= QCC NIL) (> (* QCC QBL) AD))
57.         (setq QCC
58.         (getint
59.    (strcat "\n 输入直线缺口个数 :<" (rtos QCCC) ">: ")
60.         )
61.         )
62.         (if (= QCC NIL)
63.    (setq QCC QCCC)
64.    (setq QCCC QCC)
65.         )
66.       )
67.       (setq AJ (/ (- AD (* QBL QCC)) (+ QCC 1)))
68.       (setq XAA (polar ST DD (+ AJ QBL)))
69.       (entdel AAB)
70.       (command "_.line" ST (polar ST DD AJ) "")
71.       (repeat QCC (command "_.copy" (entlast) "" ST XAA))
72.     )
73.   )
74. )
75. ((= BB "CIRCLE")
76.   (setq ST (cdr (assoc 10 (entget AAB))))
77.   (setq AED (cdr (assoc 40 (entget AAB))))
78.   (if (< QBL (* pi 2 AED))
79.     (progn
80.       (while (or (= CB NIL) (> (* CB QBL) (* pi 2 AED)))
81.         (setq
82.    CB
83.     (getint
84.       (strcat "\n 输入圆上缺口个数 :<" (rtos CBB) ">: ")
85.     )
86.         )
87.         (if (= CB NIL)
88.    (setq CB CBB)
89.    (setq CBB CB)
90.         )
91.       )
92.       (setq AJ (/ (- (* pi 2 AED) (* QBL CB)) CB))
93.       (setq ANG (/ AJ AED 2.0))
94.       (if
95.         (>= (distance (polar ST (- ANG) AED) (polar ST ANG AED))
96.      0.0001
97.         )
98.   (progn
99.     (entdel AAB)
100.     (command "_.arc"
101.       (polar ST (- ANG) AED)
102.       (polar ST 0 AED)
103.       (polar ST ANG AED)
104.     )
105.     (if (> CB 1)
106.       (command "_.array" (entlast) "" "p" ST CB "" "")
107.     )
108.   )
109.       )
110.     )
111.   )
112. )
113. ((= BB "ARC")
114.   (setq ST (cdr (assoc 10 (entget AAB))))
115.   (setq AED (cdr (assoc 40 (entget AAB))))
116.   (setq SPT (polar ST (cdr (assoc 50 (entget AAB))) AED))
117.   (setq ANS (cdr (assoc 50 (entget AAB))))
118.   (setq ANE (cdr (assoc 51 (entget AAB))))
119.   (if (> ANE ANS)
120.     (setq ANG (- ANE ANS))
121.     (setq ANG (+ ANE (- (* 2 pi) ANS)))
122.   )
123.   (setq ARC_L (* AED ANG))
124.   (if (< QBL ARC_L)
125.     (progn
126.       (while (or (= ACC NIL) (> (* ACC QBL) ARC_L))
127.         (setq ACC
128.         (getint
129.    (strcat "\n 输入弧线缺口个数 :<" (rtos ACCC) ">: ")
130.         )
131.         )
132.         (if (= ACC NIL)
133.    (setq ACC ACCC)
134.    (setq ACCC ACC)
135.         )
136.       )
137.       (setq ARC_1 (/ (- ARC_L (* QBL ACC)) (1+ ACC) AED))
138.       (entdel AAB)
139.       (command "_.arc" "c" ST SPT "A" (/ (* ARC_1 180) pi))
140.       (command "_.ARRAY"
141.         (entlast)
142.         ""
143.         "P"
144.         ST
145.         (1+ ACC)
146.         (/ (* (- (/ ARC_L AED) ARC_1) 180) pi)
147.         ""
148.       )
149.     )
150.   )
151. )
152.       )
153.       (setq QI (1+ QI))
154.     )
155.   )
156.   (setvar "clayer" HOLDCL)
157.   (setvar "osmode" HOLDOSMODE)
158.   (command "_.undo" "end")
159.   (setvar "cmdecho" HOLDECHO)
160.   (princ)
161. )

;;我写的打缺口程式为什么有时会出错? ;;该程式是用来将线、圆、弧打上缺口,缺口大小与个数由用户输入, ;;但是在使用过程中,当用户输入的个数太多时,经常会发生所生成的缺口 ;;不是用户输入的大小,并且位置也不正确,请大家帮我分析一下此程式,谢谢! ;;这个程式是用在镭射切割图形方面的，这个缺口， ;;专有名词叫"桥位元"，就是镭射按照图形切割时， ;;桥位元的地方就不要切，目的是防止图形中闭合部分掉下去， ;;举例：我画一个100x100的方框，先炸开它，输入命令bk，默认的半断宽度为6mm, ;;若是直线，默认的半断的个数是1个，若为圆，默认的半断是3,我先选直线， ;;输入2个、3个、4个、等，都能正确的打上缺口，但是若输入的缺口个数过多， ;;则会出现所打的缺口不在我所想要的位置，此时再选其他的线、圆等， ;;都会出现所打的缺口不是6mmm,并且不在要求的位置，但是开新档后， ;;一切又恢复正确，另外我还写了一个程式是用来恢复这个缺口的， ;;我现在检查了bk.lsp的所有参数，但就是找不出为什么会出错 (defun C:BK (/     HOLDECHO   HOLDOSMODE HOLDCL QBLL   AA       QI     QCCC   CBB   AAB  BB ST     QED    AD       DD     AJ    XAA   AED  ANG SPT    ANS    ANE       ANG    PT    PT1   ACCC  ARC_1 ARC_L      )   (setq HOLDECHO (getvar "cmdecho"))   (setvar "cmdecho" 0)   (command "_.undo" "group")   (setq HOLDOSMODE (getvar "osmode"))   (setq HOLDCL (getvar "clayer"))   (setvar "osmode" 0)   (setq QBL (getdist (strcat "\n 请输入缺口尺寸:<6>: ")))   (if (= QBL NIL)     (setq QBL 6.0)   )   (setq AA (ssget '((0 . "line,circle,arc"))))   (setq QI 0 QCCC 1 QCC NIL CBB 1 CB NIL ACCC 1 ACC NIL   )   (if (/= NIL AA)     (repeat (sslength AA)       (setq AAB (ssname AA QI))       (redraw AAB 3)       (setq BB (cdr (assoc 0 (entget AAB))))       (setvar "clayer" (cdr (assoc 8 (entget AAB))))       (cond ((= BB "LINE")   (setq ST (cdr (assoc 11 (entget AAB))))   (setq QED (cdr (assoc 10 (entget AAB))))   (setq AD (distance ST QED)         DD (angle ST QED)   )   (if (< QBL AD)     (progn       (while (or (= QCC NIL) (> (* QCC QBL) AD))         (setq QCC         (getint    (strcat "\n 输入直线缺口个数 :<" (rtos QCCC) ">: ")         )         )         (if (= QCC NIL)    (setq QCC QCCC)    (setq QCCC QCC)         )       )       (setq AJ (/ (- AD (* QBL QCC)) (+ QCC 1)))       (setq XAA (polar ST DD (+ AJ QBL)))       (entdel AAB)       (command "_.line" ST (polar ST DD AJ) "")       (repeat QCC (command "_.copy" (entlast) "" ST XAA))     )   ) ) ((= BB "CIRCLE")   (setq ST (cdr (assoc 10 (entget AAB))))   (setq AED (cdr (assoc 40 (entget AAB))))   (if (< QBL (* pi 2 AED))     (progn       (while (or (= CB NIL) (> (* CB QBL) (* pi 2 AED)))         (setq    CB     (getint       (strcat "\n 输入圆上缺口个数 :<" (rtos CBB) ">: ")     )         )         (if (= CB NIL)    (setq CB CBB)    (setq CBB CB)         )       )       (setq AJ (/ (- (* pi 2 AED) (* QBL CB)) CB))       (setq ANG (/ AJ AED 2.0))       (if         (>= (distance (polar ST (- ANG) AED) (polar ST ANG AED))      0.0001         )   (progn     (entdel AAB)     (command "_.arc"       (polar ST (- ANG) AED)       (polar ST 0 AED)       (polar ST ANG AED)     )     (if (> CB 1)       (command "_.array" (entlast) "" "p" ST CB "" "")     )   )       )     )   ) ) ((= BB "ARC")   (setq ST (cdr (assoc 10 (entget AAB))))   (setq AED (cdr (assoc 40 (entget AAB))))   (setq SPT (polar ST (cdr (assoc 50 (entget AAB))) AED))   (setq ANS (cdr (assoc 50 (entget AAB))))   (setq ANE (cdr (assoc 51 (entget AAB))))   (if (> ANE ANS)     (setq ANG (- ANE ANS))     (setq ANG (+ ANE (- (* 2 pi) ANS)))   )   (setq ARC_L (* AED ANG))   (if (< QBL ARC_L)     (progn       (while (or (= ACC NIL) (> (* ACC QBL) ARC_L))         (setq ACC         (getint    (strcat "\n 输入弧线缺口个数 :<" (rtos ACCC) ">: ")         )         )         (if (= ACC NIL)    (setq ACC ACCC)    (setq ACCC ACC)         )       )       (setq ARC_1 (/ (- ARC_L (* QBL ACC)) (1+ ACC) AED))       (entdel AAB)       (command "_.arc" "c" ST SPT "A" (/ (* ARC_1 180) pi))       (command "_.ARRAY"         (entlast)         ""         "P"         ST         (1+ ACC)         (/ (* (- (/ ARC_L AED) ARC_1) 180) pi)         ""       )     )   ) )       )       (setq QI (1+ QI))     )   )   (setvar "clayer" HOLDCL)   (setvar "osmode" HOLDOSMODE)   (command "_.undo" "end")   (setvar "cmdecho" HOLDECHO)   (princ) )

lazybug

maomao2004发表于2006-1-10 9:11:00我试过啦，不行的

我又试了一遍，没有问题。其实我的改法跟4楼ljpnb的原理是一样的。

你的程序第一次执行“(command "_.break" (list ent epdat1) "f" epdat1 epdat2)”语句时，ent 的内容是（<图元名: ####>（选取点坐标））而本应该只是（<图元名: ####>）。

我想你试不出来是否输入数目太多或角度问题

maomao2004

hehe,好了，谢谢了，还有这个程序是调试版本，还没有优化呢，比较粗糙

见笑阿！

xyp1964

2. (load "xyp_lib.vlx") ;版本 V.20051230 (1873)
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
5. ★1·在acad.lsp中增加(load"xyp_lib")
6. ■2·在每个程序内增加(load"xyp_lib")
7. ■3·在command下，输入(load"xyp_lib")
8. ■4·在菜单.mnl中增加(load"xyp_lib")
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
11. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
12. [url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url]
13. |;
14. ;;;线开口
15. (defun c:test040 (/ pt1 pt2 ss i e leng df ss1)
16.   (CMDLA0)
17.   (setvar "osmode" 0)
18.   (setq NO1 (UREAL 7 "" "\n线长" no1)
19. NO2 (UREAL 7 "" "\n缺口长" no2)
20. ss  (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC")))
21. i   -1
22.   )
23.   (while (setq e (ssname ss (setq i (1+ i))))
24.     (setq leng (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e))
25.    df   (fix (abs (/ leng (+ NO1 no2))))
26.     )
27.     (repeat df
28.       (setq pt1 (vlax-curve-getPointAtDist
29.     (vlax-ename->vla-object e)
30.     no1
31.   )
32.      pt2 (vlax-curve-getPointAtDist
33.     (vlax-ename->vla-object e)
34.     (+ no1 no2)
35.   )
36.       )
37.       (command "break" e pt1 pt2)
38.       (setq e (entlast))
39.     )
40.   )
41.   (CMDLA1)
42. )

(load "xyp_lib.vlx") ;版本 V.20051230 (1873) ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下) 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序： ★1·在acad.lsp中增加(load"xyp_lib") ■2·在每个程序内增加(load"xyp_lib") ■3·在command下，输入(load"xyp_lib") ■4·在菜单.mnl中增加(load"xyp_lib") ■5·将xyp_lib.vlx文件直接拽到cad屏幕 [COLOR=red] ★通用函数下载地址：[/COLOR] [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url] [url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url] |; ;;;线开口 (defun c:test040 (/ pt1 pt2 ss i e leng df ss1)   (CMDLA0)   (setvar "osmode" 0)   (setq NO1 (UREAL 7 "" "\n线长" no1) NO2 (UREAL 7 "" "\n缺口长" no2) ss  (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC"))) i   -1   )   (while (setq e (ssname ss (setq i (1+ i))))     (setq leng (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e))    df   (fix (abs (/ leng (+ NO1 no2))))     )     (repeat df       (setq pt1 (vlax-curve-getPointAtDist     (vlax-ename->vla-object e)     no1   )      pt2 (vlax-curve-getPointAtDist     (vlax-ename->vla-object e)     (+ no1 no2)   )       )       (command "break" e pt1 pt2)       (setq e (entlast))     )   )   (CMDLA1) )