- (defun vxs (e / i v lst)
- (setq i 0)
- (while
- (setq v (vlax-curve-getpointatparam e (setq i (1+ i))))
- (setq lst (cons v lst))
- )
- (reverse lst))
- ;;;;;;;;;;;;;;;
- (setq ssa (ssget '((0 . "POLYLINE") (8 . "sjw"))))
- (setq ii 0
- no 0
- )
- (repeat (sslength ssa)
- (setq en (ssname ssa ii)
- ptb (vxs en)
- pzx (append pzx (list ptb))
- ii (1+ ii) )
- ; (setq pzx (list (car pt) (cadr pt) (caddr pt)))
-
- )
- ;(write-line (strcat pzx) fff)
- ; (close fff)
- ;(princ (strcat "\n坐标已存入"" wjm ""中"))
-
- ;(setvar "cmdecho" cm)
- (princ)
- (foreach n pzx
- (entmake (list '(0 . "3dface") (cons 10 (nth 0 n))
- (cons 11 (nth 1 n))
- (cons 12 (nth 2 n))
- (cons 13 (nth 0 n))
- '(8 . "0")
- '(62 . 3)
- ) )
- )
|