请教版主、高手，lisp怎样判断pline线有无arc？

mycad

请教版主、高手，lisp怎样判断pline线有无arc？谢谢！急用！

;; | ----------------------------------------------------------------------------
;; | PL_Arced?
;; | ----------------------------------------------------------------------------
;; | Function : Checks if a polyline has atleast one ARC segment
;; | Argument : 'ename' - Polyline object name
;; | Returns  : T if the polyline is arc'ed, else nil
;; | Updated  : August 12, 1999
;; | e-mail   : rakesh.rao@4d-technologies.com
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun PL_Arced?( ename / flag en entl VxEntl BlgLst )


(setq BlgLst (LI_MakeUnique (PL_GetBulgeLst ename)))
(if (and (= (length BlgLst) 1) (zerop (nth 0 BlgLst))) nil T)
)

819534890

这个容易吧，读出全部pline群码42，如果有不为0的，就有弧线。

mycad

我试试， 谢谢 819534890

自贡黄明儒

;;;==================================================================
  (defun checkarc (ename / BU N OBJ PLIST)
  (setq obj (vlax-ename->vla-object ename))
  (setq plist (vlax-safearray->list (vlax-variant-value (vla-get-coordinates obj))))
  (setq n 0 bu nil)
  (repeat (/ (length plist) 2)
    (if (/= (vla-getbulge obj n) 0)
      (setq bu T)
     )
    (setq n (+ n 1))
  )
  bu
)

mycad

太好了，谢谢 自贡黄明儒！

mycad

(defun c:ck()
   (setq ent (car(entsel)))
   (checkarc ent)
  
  )

阿然

(vl-remove 0.0 (mapcar 'cdr (vl-remove-if-not '(lambda(x) (= (car x) 42)) (entget (car(entsel"\n选择多义线:"))))))

nzl1116

用 vl-member-if 应该是最好的。

spiderman

自贡黄明儒 发表于 2013-10-19 09:51
;;;==================================================================
  (defun checkarc (ename / BU ...

不错的函数。

xyp1964

2. (defun aaa (s1 / lst)
   
3.   (foreach a (entget s1)
   
4.     (if        (and (= (car a) 42)
   
5.              (/= (cdr a) 0)
   
6.         )
   
7.       (setq lst (cons (cdr a) lst))
   
8.     )
   
9.   )
   
10.   (if lst t nil)
    
11. )

(defun aaa (s1 / lst)<br />   (foreach a (entget s1)<br />     (if        (and (= (car a) 42)<br />              (/= (cdr a) 0)<br />         )<br />       (setq lst (cons (cdr a) lst))<br />     )<br />   )<br />   (if lst t nil)<br /> )