多点打断问题，及想问下list的用法

xiaxiang · 发表于 2011-10-19 13:31:20

break 命令后必须使用(list(图元拾取点))构建一个新表，因为命令本身要求使然。
这个跟其它不一样，还需要(car(entsel))什么的

zzl9105 · 发表于 2011-10-19 14:00:53

本帖最后由 zzl9105 于 2011-10-19 14:33 编辑

也有直线有多个交点的，它能打断其中的两个交点，有的，则只能打断唯一的一个交点，我想应该还是点表有特殊要求，要有对应关系，而不是一根线不能一次性的在多点处打断。
我知道有人提议说打断一个点，再增加一个en1，再判断点在哪个上面，再打断，再增加，我想这个方法，是基本的，能实现，但总感觉比较烦琐，愚钝之见，望不吝赐教，谢谢

xiaxiang · 发表于 2011-10-19 14:28:56

zzl9105 发表于 2011-10-19 14:00
也有直线有多个交点的，它能打断其中的两个交点，有的，则只能打断唯一的一个交点，我想应该还是点表有特殊 ...

好像没有必要这么复杂的？用别的方法可以实现的

zzl9105 · 发表于 2011-10-19 14:48:30

本帖最后由 zzl9105 于 2011-10-19 14:50 编辑

经过对点表稍加处理，能实现交点处打断，只是水平线，还是只能打断一个点，竖向线能全部打断，望高手指教。

(vl-load-com)
(defun c:bbb (/ SS OS PT_LST PT_LSTALL N EN OBJ
E1 E2 M EM PT1 PT2 PT3 PT4 PT)
(command "_.UNDO" "BEGIN")
(setq PT_LSTALL '() )
(setq OS (getvar "osmode"))
(setvar "osmode" 0)
(setq SS (ssget '((0 . "LINE"))))
(setq N 0)
(repeat (sslength SS)
(setq EN (ssname SS N))
(setq PT_LST '() )
(setq OBJ (vlax-ename->vla-object EN))
(setq PT1 (vlax-curve-getstartpoint EN))
(setq PT2 (vlax-curve-getendpoint EN))
(setq M 0)
(repeat (sslength SS)
(if (/= M N)
(progn
(setq EM (ssname SS M))
(setq PT3 (vlax-curve-getstartpoint EM))
(setq PT4 (vlax-curve-getendpoint EM))
(if (setq PT (inters PT1 PT2 PT3 PT4))
(setq PT_LST (cons PT PT_LST))
)
)
)
(setq M (1+ M))
)
(setq PT_LST
(vl-sort PT_LST
(function (lambda (E1 E2)
(< (car E1) (car E2))))))
(setq PT_LST
(vl-sort PT_LST
(function (lambda (E1 E2)
(< (cadr E1) (cadr E2))))))
(setq PT_LSTALL (cons PT_LST PT_LSTALL))
(setq N (1+ N))
)
(setq PT_LSTALL (reverse (cons PT_LST PT_LSTALL)))
(setq N 0)
(repeat (sslength SS)
(setq EN (ssname SS N))
(setq PT_LST (nth N PT_LSTALL))
(foreach PT PT_LST
(command "_.break" (list EN PT) "f" "non" PT "non" PT)
)
(setq N (1+ N))
)
(setvar "osmode" OS)
(command "UNDO" "END")
(princ)
)

(vl-load-com) 
(defun c:bbb (/ SS OS PT_LST PT_LSTALL N EN OBJ   
                  E1 E2 M EM PT1 PT2 PT3 PT4 PT) 
    (command "_.UNDO" "BEGIN") 
    (setq PT_LSTALL '() ) 
    (setq OS (getvar "osmode")) 
    (setvar "osmode" 0) 
    (setq SS (ssget '((0 . "LINE")))) 
    (setq N 0) 
    (repeat (sslength SS) 
        (setq EN (ssname SS N)) 
        (setq PT_LST '() ) 
        (setq OBJ (vlax-ename->vla-object EN)) 
  (setq PT1 (vlax-curve-getstartpoint EN)) 
  (setq PT2 (vlax-curve-getendpoint EN)) 
              (setq M 0)    
              (repeat (sslength SS)             
                  (if (/= M N) 
                     (progn 
                         (setq EM (ssname SS M))            
                   (setq PT3 (vlax-curve-getstartpoint EM)) 
                   (setq PT4 (vlax-curve-getendpoint EM)) 
                         (if (setq PT (inters PT1 PT2 PT3 PT4)) 
                             (setq PT_LST (cons PT PT_LST)) 
                         ) 
                     ) 
                  ) 
              (setq M (1+ M)) 
              ) 
       
         (setq PT_LST 
         (vl-sort PT_LST 
         (function (lambda (E1 E2) 
         (< (car E1) (car E2)))))) 
         (setq PT_LST 
         (vl-sort PT_LST 
         (function (lambda (E1 E2) 
         (< (cadr E1) (cadr E2)))))) 
         (setq PT_LSTALL (cons PT_LST PT_LSTALL)) 
    (setq N (1+ N)) 
    ) 
    (setq PT_LSTALL (reverse (cons PT_LST PT_LSTALL))) 
    (setq N 0) 
    (repeat (sslength SS) 
        (setq EN (ssname SS N)) 
        (setq PT_LST (nth N PT_LSTALL)) 
              (foreach PT PT_LST 
                 (command "_.break" (list EN PT) "f" "non" PT "non" PT) 
              ) 
        (setq N (1+ N)) 
    ) 
    (setvar "osmode" OS) 
    (command "UNDO" "END") 
    (princ) 
)

xiaxiang · 发表于 2011-10-19 15:21:12

(defun c:test (/ i j en iss)
(setq cmd (getvar 'cmdecho))
(setvar 'cmdecho 0)
(while (setq ss (ssget ":S"))
(setq pts nil)
(command "undo" "g")
(ss->lst ss)
(setq sslst1 (reverse (cdr (reverse sslst)))
sslst2 (cdr sslst)
)
(interss sslst1 sslst2)
(foreach n pts
(if
(setq iss (ssget "c"
(mapcar '+ n '(1e-13 1e-13 0))
(mapcar '- n '(1e-13 1e-13 0))
)
)
(progn
(setq j 0)
(repeat (sslength iss)
(setq en (ssname iss j))
(command "break" en n "@")
(setq j (1+ j))
)
)
)
)
)
(setvar 'cmdecho cmd)(princ)
)
(defun ss->lst (ss / e i)
(setq i 0 sslst '())
(while (setq e (ssname ss i))
(setq sslst (cons (vlax-ename->vla-object e) sslst))
(setq i (1+ i))
)
sslst
)
(defun interss (s1 s2 / newpts ipts)
(foreach x sslst1
(foreach y sslst2
(setq ipts (vla-intersectwith x y 0)
ipts (vlax-variant-value ipts)
)
(if (> (vlax-safearray-get-u-bound ipts 1) 0)
(progn
(setq ipts (vlax-safearray->list ipts))
(while (> (length ipts) 0)
(setq newpts (list (car ipts)
(cadr ipts)
(caddr ipts)
)
)
(if (not (member newpts pts))
(setq pts (cons newpts pts))
)
(setq ipts (cdddr ipts))
)
)
)
)
)
pts
)
(defun ss->po (ss)
(setq plpr (last (ssnamex ss 0)))
(setq p1 (last (cadr plpr))
p3 (last (cadddr plpr))
)
(setq p1 (trans p1 0 1)
p3 (trans p3 0 1)
)
(ssget "w" p1 p3)
)

(defun c:test (/ i j en iss) 
  (setq cmd (getvar 'cmdecho)) 
  (setvar 'cmdecho 0) 
  (while (setq ss (ssget ":S")) 
    (setq pts nil) 
    (command "undo" "g") 
    (ss->lst ss) 
    (setq sslst1 (reverse (cdr (reverse sslst))) 
    sslst2 (cdr sslst) 
    ) 
    (interss sslst1 sslst2) 
    (foreach n pts 
      (if 
  (setq iss (ssget "c" 
       (mapcar '+ n '(1e-13 1e-13 0)) 
       (mapcar '- n '(1e-13 1e-13 0)) 
      ) 
  ) 
   (progn 
     (setq j 0) 
     (repeat (sslength iss) 
       (setq en (ssname iss j)) 
       (command "break" en n "@") 
        (setq j (1+ j)) 
     ) 
   ) 
      ) 
    ) 
  )   
  (setvar 'cmdecho cmd)(princ) 
) 
 
 
(defun ss->lst (ss / e i) 
  (setq  i 0 sslst '()) 
  (while (setq e (ssname ss i)) 
    (setq sslst (cons (vlax-ename->vla-object e) sslst)) 
    (setq i (1+ i)) 
  ) 
  sslst 
) 
 
(defun interss (s1 s2 / newpts ipts) 
  (foreach x sslst1 
    (foreach y sslst2 
      (setq ipts (vla-intersectwith x y 0) 
      ipts (vlax-variant-value ipts) 
      ) 
      (if (> (vlax-safearray-get-u-bound ipts 1) 0) 
  (progn 
    (setq ipts (vlax-safearray->list ipts)) 
    (while (> (length ipts) 0) 
      (setq newpts (list (car ipts) 
             (cadr ipts) 
             (caddr ipts) 
       ) 
      ) 
      (if  (not (member newpts pts)) 
        (setq pts (cons newpts pts)) 
      ) 
      (setq ipts (cdddr ipts)) 
    ) 
  ) 
      ) 
    ) 
  ) 
  pts 
) 
 
(defun ss->po (ss) 
  (setq plpr (last (ssnamex ss 0))) 
  (setq  p1 (last (cadr plpr)) 
  p3 (last (cadddr plpr)) 
  ) 
  (setq  p1 (trans p1 0 1) 
  p3 (trans p3 0 1) 
  ) 
  (ssget "w" p1 p3) 
)

看看这是您要的东西吗？
打断后的实体不应该再参与运算！

Andyhon · 发表于 2011-10-19 15:31:51

zzl9105 发表于 2011-10-19 14:48
经过对点表稍加处理，能实现交点处打断，只是水平线，还是只能打断一个点，竖向线能全部打断，望高手指教。 ...

一个实验 ...
测测将水平线旋转 180 度 ....
自己分析呗

zzl9105 · 发表于 2011-10-19 15:34:43

本帖最后由 zzl9105 于 2011-10-19 15:44 编辑

Andyhon 发表于 2011-10-19 15:31
一个实验 ...
测测将水平线旋转 180 度 ....
自己分析呗

经分析，把测试的线，变成不是水平和竖直的，打断成功，原来排序不全面，没包含横竖正交的，适用斜向的线，不适应横竖正交的线，奇怪？？？

zzl9105 · 发表于 2011-10-19 15:51:05

xiaxiang 发表于 2011-10-19 15:21
看看这是您要的东西吗？
打断后的实体不应该再参与运算！

谢谢你，这个能实现，学习了

zzl9105 · 发表于 2011-10-19 17:07:11

本帖最后由 zzl9105 于 2011-10-19 17:22 编辑

回复vormittag 的点评
打断的思路有很多的，你说的这点，早有想到，呵呵，也很好操作，不存在排序问题，但求交点集时，得判断及处理点有没有重复的问题（不好意思，暂没想好怎么判断处理），而且，我还想增加一个功能，把打断的线，比如小于300长的，集中到一个集ss1中来，好作后期操作，该如何写。
其中vormittag 回避了：一线，多点一次打断的可实现性，转而换思路了，我想说，不一次性打断，势必要加图元，势必要判断点与新增加的图元的对应性，我认为还是要判断的。否则你要重新定ss，重求点集，重新求交点，多重循环，我想这个方法，思路及过程比较混乱，欢迎更多大虾给予指点，我在17的疑问，谢谢。

xiaxiang · 发表于 2011-10-19 17:57:36

重新生成直线的程序。

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

多点打断问题，及想问下list的用法

点评

本帖子中包含更多资源

本帖子中包含更多资源