Question

我有一个工作的lisp，可以从三维折线创建样条线。我的问题是我无法选择多个三维多段线或整个图层，而且一个lisp也会将结果图层更改为默认图层。它应该保留原始的。这是我的工作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"，我可以选择多行但是它会更改为仅使用第一行进行样条化。

Answer 1

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

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

您只会爆炸第一个实体。我想

(command "_.explode" pl "")

所有sss项都应在内部循环中使用

。

使用lisp

1 个答案: