0

我有一个可以从 3d 折线创建样条的工作 lisp。我的问题是我无法选择多条 3d 折线或整个图层，而且 lisp 将结果图层更改为默认图层。它应该保留在原来的那个上。这是我的工作口齿不清：

(defun c:3p2spl ( / *error* line2spl loop pl e s ss sss )

  (vl-load-com)

  (defun *error* ( msg )
    (vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))
  )

  (defun line2spl ( e / sp ep d )

    (setq sp (cdr (assoc 10 (entget e)))
          ep (cdr (assoc 11 (entget e)))
          d (distance sp ep)
    )

    (entdel e)

    (entmakex
      (list
        '(0 . "SPLINE") '(100 . "AcDbEntity") '(100 . "AcDbSpline") '(210 0.0 0.0 1.0) '(71 . 1) '(73 . 2)
        '(42 . 1.0e-010) '(43 . 1.0e-010) '(40 . 0.0) '(40 . 0.0) (cons 40 d) (cons 40 d) (cons 10 sp) (cons 10 ep)
      )
    )

  )

  (vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))  
  (setq loop T)
  (setq sss (ssget "_I"))
  (if (and sss (eq (cdr (assoc 0 (entget (setq pl (ssname sss 0))))) "POLYLINE") (< 7 (cdr (assoc 70 (entget pl))) 14)) (setq loop nil))
  (while loop
    (setq pl (car (entsel "\nPick 3DPOLYLINE to convert it to SPLINE")))
    (if (and (eq (cdr (assoc 0 (entget pl))) "POLYLINE") (< 7 (cdr (assoc 70 (entget pl))) 14)) (setq loop nil))
  )
  (setq e (entlast))
  (command "_.explode" pl "")
  (setq ss (ssadd))
  (while (setq e (entnext e))
    (if (eq (cdr (assoc 0 (entget e))) "LINE")
      (progn
        (setq s (line2spl e))
        (ssadd s ss)
      )
    )
  )
  (command "_.join" (ssname ss 0) ss "")
  (*error* nil)
  (princ)
)

如果我将其更改ssget "_I"为ssget "_:E"我可以选择多条线，但它将更改为仅第一条线。

4

1 回答 1

2

我没有测试这段代码，只是阅读，所以也许我错了，但我认为问题是因为：

...
(setq pl (ssname sss 0))
...
(command "_.explode" pl "")

你只爆炸第一个实体。我认为

(command "_.explode" pl "")

sss所有项目都应在循环内使用。

于 2016-11-16T07:16:12.817 回答