Convert 3dpoly to Lwpolyline

Free-Lancer · 发表于 2015-4-30 08:23:06

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun polyline->lwpolyline (pl / lst p nl h l tf)
(setq l (entget pl)
tf (vlax-curve-isclosed pl)
)
(while (and (setq pl (entnext pl))
(setq lst (entget pl))
(= (cdr (assoc 0 lst)) "VERTEX")
)
(setq p (cdr (assoc 10 lst))
h (caddr p)
nl (cons (list 10 (car p) (cadr p)) nl)
)
)
(entmakex (append (list '(0 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(100 . "AcDbPolyline")
(cons 70
(if tf
1
0
)
)
(cons 90 (length nl))
(assoc 8 l)
(cons 38 h)
)
(reverse nl)
)
)
)

(defun polyline->lwpolyline (pl / lst p nl h l tf) 
  (setq        l  (entget pl) 
        tf (vlax-curve-isclosed pl) 
  ) 
  (while (and (setq pl (entnext pl)) 
              (setq lst (entget pl)) 
              (= (cdr (assoc 0 lst)) "VERTEX") 
         ) 
    (setq p  (cdr (assoc 10 lst)) 
          h  (caddr p) 
          nl (cons (list 10 (car p) (cadr p)) nl) 
    ) 
  ) 
  (entmakex (append (list '(0 . "LWPOLYLINE") 
                          '(100 . "AcDbEntity") 
                          '(100 . "AcDbPolyline") 
                          (cons        70 
                                (if tf 
                                  1 
                                  0 
                                ) 
                          ) 
                          (cons 90 (length nl)) 
                          (assoc 8 l) 
                          (cons 38 h) 
                    ) 
                    (reverse nl) 
            ) 
  ) 
)

lucas3 · 发表于 2015-4-30 09:26:30

谢谢大师分享！

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

[教学] Convert 3dpoly to Lwpolyline

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。