求一段简单的代码

冶躁

现在有几段长度信息存在datalist这个表中 如（200 50 100）

现在有一条直线长1200 希望可以自动在 相对（原直线长度为200 250 300）处 或者打断原直线 最后的效果为 四段直线 长度分别为200 50 100 850  求autolisp原代码

Andyhon

(defun C:B@D ()
   (setq ee (ssget '((0 . "LINE")))
         ee (ssname ee 0)
        Dat (entget ee)
         pa (cdr (assoc 10 dat))
         pb (cdr (assoc 11 dat))
         vv (angle pa pb)
         DL '(200 50 100)
         nn (1+ (length DL))
        pts (list pa)
         pt  pa
   )
   (entdel ee)
   
   (setvar "Clayer" (cdr (assoc 8 dat)))
   (while (setq dd (car DL))
     (setq pt (polar pt vv dd)
          pts (cons pt pts)
           DL (cdr DL)
     )
   )
   
   (setq pts (reverse (cons pb pts))
           a (car pts)     
         pts (cdr pts)
   )
     
   (repeat nn
     (setq b (car pts))
     (entmake (list '(0 . "LINE") (cons 10 a) (cons 11 b)))
     (setq pts (cdr pts) a b)
   )
)

冶躁

(while (length datalist)
     (setq pt (vlax-curve-getPointAtDist en (car datalist)))
      (command "break" en pt "@")
    (setq datalist (cdr datalist))
      (setq en (entlast))

革天明

高手不少啊，

soly2006

钱都没有，拿啥子悬赏啊？呵呵

preone