|
发表于 2003-1-8 13:42:00
|
显示全部楼层
;;列示半径
;;这个办法在对大型3DSOLID非常慢
(defun CXF6 (/ SS DXF40)
(setq SS (cadr (ENTSEL "\n请选3DSOLID边线为圆的物件: ")))
(setq ENT (entlast))
(command "_.solidedit" "e" "c" SS "" "0,0" "0,0" "" "")
(if (= "CIRCLE" (cdr (assoc 0 (entget (entlast)))))
(progn
(setq DXF40 (cdr (assoc 40 (entget (entlast)))))
(prompt (strcat "\n半径: "
(rtos DXF40)
" 直径: "
(rtos (* DXF40 2))
)
)
)
)
(if (not (equal ENT (entlast)))
(entdel (entlast))
)
(princ)
) |
|