CAD批量提取矩形顶点坐标的代码？

bodhi_li · 发表于 2018-1-2 22:42:28

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

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

×

CAD批量提取矩形顶点坐标的代码，请高手指教。希望能提取多个矩形的对角点坐标，并导出到文本或者EXCEL。

newer · 发表于 2018-1-2 23:02:21

加载 XDRX API

(defun c:tt ()
(if (and (xdrx_initssget "选择矩形<退出>:")
(setq ss (xdrx_ssget '((0 . "LWPOLYLINE"))))
)
(progn
(setq pts nil)
(mapcar '(lambda (x)
(if (setq pt (xd::polyline:isrectang x))
(setq pts (cons (list (car pt) (caddr pt)) pts))
)
)
(xdrx_pickset->ents ss)
)
(if (setq fn (xdrx_system_selectFiles "选择保存的文件" "" "txt" 1))
(progn
(setq fn (car fn))
(xd::list:tofile
fn
(mapcar '(lambda (x)
(strcat (xdrx_string_join
(mapcar 'vl-princ-to-string (car x))
","
)
" "
(xdrx_string_join
(mapcar 'vl-princ-to-string (cadr x))
","
)
)
)
pts
)
)
(startapp "Notepad.exe" fn)
)
)
)
)
(princ)
)

(defun c:tt () 
  (if (and (xdrx_initssget "选择矩形<退出>:") 
           (setq ss (xdrx_ssget '((0 . "LWPOLYLINE")))) 
      ) 
    (progn 
      (setq pts nil) 
      (mapcar '(lambda (x) 
                 (if (setq pt (xd::polyline:isrectang x)) 
                   (setq pts (cons (list (car pt) (caddr pt)) pts)) 
                 ) 
               ) 
              (xdrx_pickset->ents ss) 
      ) 
      (if (setq fn (xdrx_system_selectFiles "选择保存的文件" "" "txt" 1)) 
        (progn 
          (setq fn (car fn)) 
          (xd::list:tofile 
            fn 
            (mapcar '(lambda (x) 
                       (strcat (xdrx_string_join 
                                 (mapcar 'vl-princ-to-string (car x)) 
                                 "," 
                               ) 
                               "  " 
                               (xdrx_string_join 
                                 (mapcar 'vl-princ-to-string (cadr x)) 
                                 "," 
                               ) 
                       ) 
                     ) 
                    pts 
            ) 
          ) 
          (startapp "Notepad.exe" fn) 
        ) 
      ) 
    ) 
  ) 
  (princ) 
)

bodhi_li · 发表于 2018-1-2 23:31:25

非常感谢。

kqqt6236 · 发表于 2018-1-3 06:54:10

谢谢分享。

栋梁 · 发表于 2018-8-1 22:20:11

感谢分享啊

364041954 · 发表于 2019-3-29 08:44:36

感谢分享多谢

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

[求助] CAD批量提取矩形顶点坐标的代码？

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