一个画中心线的小程序（强烈推荐）

只看该作者 · 发表于 2005-12-3 13:35:45

还真行呀.

只看该作者 · 发表于 2005-12-3 19:37:01

:'(:'(

只看该作者 · 发表于 2005-12-4 21:38:06

把文件复制到CAD安装目录下，打开CAD加载重启CAD，输CL命令即可

只看该作者 · 发表于 2005-12-7 13:32:43

好东西,顶了

只看该作者 · 发表于 2005-12-7 17:00:40

dddddddddddddddd

只看该作者 · 发表于 2005-12-7 17:30:15

椭圆不行的！不过还是谢谢！

只看该作者 · 发表于 2005-12-8 20:26:07

希望大家多给点意见，或者有好的东西也给我们共享一下啊！

只看该作者 · 发表于 2006-1-9 13:56:19

谢谢！

只看该作者 · 发表于 2006-1-18 11:11:59

很好用的，支持的对象不多，有空添加一些

只看该作者 · 发表于 2006-1-19 10:50:09

一个画圆和中心线的LSP

(defun C:Cl()
  (command "circle" pause pause pause)
  (setq e (entlast))
  (COMMAND "OSMODE" "0")
  (setq d 0.8)
  (setq cen (trans (cdr (assoc 10 (entget e))) e 1))
  (setq rad (cdr (assoc 40 (entget e))))
  (setq d (+ d rad))
  (command "line" (list (car cen) (- (cadr cen) d) (caddr cen)) (list (car cen) (+ (cadr cen) d) (caddr cen)) "")
  (command "change" "l" "" "p" "lt" "center" "co" "red" "")
  (command "line" (list (- (car cen) d) (cadr cen) (caddr cen)) (list (+ (car cen) d) (cadr cen) (caddr cen)) "")
  (command "change" "l" "" "p" "lt" "center" "co" "red" "")
  (command "osmode" "439")
)