API应用提取 Pline 中所有弧段信息

st788796 · 发表于 2014-11-17 14:18:07

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

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

×

(defun c:tt (/ ss lst)
(if (setq ss (ssget '((0 . "lwpolyline"))))
(progn
(mapcar '(lambda (x / n i info)
(if (xdrx_polyline_hasbulges x);_是否含有弧
(progn
(setq n (xdrx_polyline_numVerts x));_定点数
(setq i 0)
(repeat n
(if (eq (xdrx_polyline_segtype x i) "kArc");_当前段是否为弧
;;(逆顺时针圆心半径起始角终止角)
(setq
info (cons (xdrx_polyline_getarcsegat x i) info);_获取弧信息
)
)
(setq i (1+ i))
)
(if info
(setq lst (cons info lst))
);_每条线上弧构造一个子表
)
)
)
(xdrx_pickset->ents ss)
)
lst
)
)
(princ)
)

(defun c:tt (/ ss lst) 
  (if (setq ss (ssget '((0 . "lwpolyline")))) 
    (progn 
      (mapcar '(lambda (x / n i info) 
                 (if (xdrx_polyline_hasbulges x);_是否含有弧 
                   (progn 
                     (setq n (xdrx_polyline_numVerts x));_定点数 
                     (setq i 0) 
                     (repeat n 
                       (if (eq (xdrx_polyline_segtype x i) "kArc");_当前段是否为弧 
                         ;;(逆顺时针 圆心 半径 起始角 终止角) 
                         (setq 
                           info        (cons (xdrx_polyline_getarcsegat x i) info);_获取弧信息 
                         ) 
                       ) 
                       (setq i (1+ i)) 
                     ) 
                     (if info 
                       (setq lst (cons info lst)) 
                     );_每条线上弧构造一个子表 
                   ) 
                 ) 
               ) 
              (xdrx_pickset->ents ss) 
      ) 
      lst 
    ) 
  ) 
  (princ) 
)

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

[教学] API应用 提取 Pline 中所有弧段信息

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

[教学] API应用提取 Pline 中所有弧段信息