用于获取椭圆小调和m
您好，先生，我有一个选择集，包括椭圆的数量，我想得到每个椭圆的中心点，次要宽度和主要宽度，并存储在excel文件中。请对此提供帮助。。。。。
如果有可能从具有椭圆孔数的三维零件中获得椭圆尺寸，则也可以给出解决方案。。。 请尝试以下操作：
(defun c:e2csv ( / e f i r s )
(and (setq s (ssget '((0 . "ELLIPSE"))))
(setq f (getfiled "Create CSV File" "" "csv" 1))
(setq f (open f "w"))
(write-line "CX,CY,CZ,MAJ,MIN" f)
(repeat (setq i (sslength s))
(setq e (entget (ssname s (setq i (1- i))))
r (distance '(0.0 0.0 0.0) (cdr (assoc 11 e)))
)
(write-line (LM:lst->str (mapcar 'rtos (append (cdr (assoc 10 e)) (list r (* r (cdr (assoc 40 e)))))) ",") f)
)
(close f)
)
(princ)
)
;; List to String-Lee Mac
;; Concatenates each string in a supplied list, separated by a given delimiter
;; lst - List of strings to concatenate
;; del - Delimiter string to separate each item
(defun LM:lst->str ( lst del / str )
(setq str (car lst))
(foreach itm (cdr lst) (setq str (strcat str del itm)))
str
)
(princ)
拉杰帕特尔，
当你说3d零件时。你的意思是这些实体是实体吗？
ymg公司
页:
[1]