[编程申请]： 智能中心线

zxcvbnm-cad

谁能帮我做个在圆、矩形、多边形的中心线
图层可以自由选择

lsjjm

要学会使用和搜索论坛, 这样的程序很多, 下面是其中之一:
[PHP]
(defun c:test (/ pts)
  (setq ent (car (entsel)))
  (setq        pc (dxf 10 ent)
        d  0.1  )
  (cond
    ((= (dxf 0 ent) "LINE")
     (if p1
       (setq pq        (cadr (last (car (ssnamex ss (1- ns)))))
             p2        (osnap pq "MID,ENDP")
             p1        (polar p1 (angle p2 p1) d)
             p2        (polar p2 (angle p1 p2) d)
       )
       (setq p1 (osnap pq "MID,ENDP"))
     )
    )
    ((= (dxf 0 ent) "LWPOLYLINE")
     (foreach i        (entget ent)
       (if (= 10 (car i))
         (setq pts (append pts (list (cdr i))))
       )
     )
     (setq pc (inters (car pts) (caddr pts) (cadr pts) (last pts)))
     (setq w  (distance (car pts) (cadr pts))
           h  (distance (car pts) (last pts))
           p1 (polar pc (angle (car pts) (cadr pts)) (+ (/ w 2) d))
           p2 (polar pc (angle (cadr pts) (car pts)) (+ (/ w 2) d))
     )
    )
    ((= (dxf 0 ent) "ARC")
     (setq rad (dxf 40 ent)
           p1  (polar pc (dxf 50 ent) (+ rad d))
           p2  (polar pc (angle p1 pc) (+ rad d))
     )
    )
    ((= (dxf 0 ent) "CIRCLE")
     (setq rad (dxf 40 ent)
           p1  (polar pc 0 (+ rad d))
           p2  (polar pc pi (+ rad d))
     )
    )
    ((= (dxf 0 ent) "ELLIPSE")
     (setq px        (dxf 11 ent)
           px        (list (+ (car pc) (car px)) (+ (cadr pc) (cadr px)) 0)
           rad        (distance pc px)
           p1        (polar pc (angle pc px) (+ rad d))
           p2        (polar pc (angle px pc) (+ rad d))
           rad1        (* (dxf 40 ent) rad)
           ri        (/ (+ rad1 d) (+ rad d))
     )
    )
  )
  (if p2
    (vl-cmdf "line" p1 p2 "")
  )
  (setq lline (entlast))
  (if (/= (dxf 0 ent) "LINE")
    (vl-cmdf "copy"             (entlast)             ""             pc             pc             ""             "rotate"
             (entlast)             ""             pc             90    )
  )
  (if (= (dxf 0 ent) "ELLIPSE")
    (vl-cmdf "scale" lline "" pc ri)
  )
)
(defun dxf (code ename)(cdr (assoc code (entget ename))))
[/PHP]

hisen

不行呀，这是我CAD的提示：
命令:  TEST
选择对象: 应用程序错误: 命令输入时发送的类型无效

lsjjm

刚才在2000i上又测试了，没问题！

zxcvbnm-cad

白金长老 你好
你看我用的是你的程序,怎么会这样不在中心

xyp1964

试试这个：
尚有BUG，不能识别椭圆。
加载zxx.fas，运行zxx（中心线）。
2004年12月14日 13:02  原始版
2004年12月15日, 13:06:18  增加中心线长度控制
移动：
http://www.xdcad.net/forum/showthread.php?s=&threadid=313654

xyp1964

程序示意：

c7242865

非常实用

zxcvbnm-cad

谢了
能不能自定义线的长度
如超出图形5mm

xyp1964

已经增加“自定义线长度”的功能。
程序见6楼。

zxcvbnm-cad

非常的感谢
现在用起来挺方便

ps122

要是拾取的实体在块里呢？

wzw3392008

我有一个
在命令行输入zxx即可

ps122

最初由 wzw3392008 发布
[B]我有一个
在命令行输入zxx即可 [/B]

你说的好像不行，什么效果也没有，还把我搞死机了。

xyp1964

最初由 wzw3392008 发布
[B]我有一个
在命令行输入zxx即可 [/B]

何时我的中心线程序zxx.lsp变成tmp.lsp了？呵呵……