批量绘制椭圆及圆的圆心点...

flytoday02 · 发表于 2012-4-29 21:58:31

就是针对圆纸中的所有已绘制好的...椭圆、圆、圆弧
批量生成....椭圆、圆及圆弧的圆心点.....是个点哦......

椭圆的圆心点为绿色......圆的圆心为红色......圆弧的圆心为红紫色

新生成一个层名叫:圆心层

麻烦路过滴老师了谢谢。。。。

xyh · 发表于 2012-4-29 21:58:32

本帖最后由 xyh 于 2012-4-30 10:30 编辑

见5楼程序。
(defun c:test(/ ss)
  (setq ss (ssget "X" '((0 . "ARC,CIRCLE,ELLIPSE"))))
  (setq en0 '((0 . "POINT") (100 . "AcDbEntity") (67 . 0)(8 . "圆心层")  (100 . "AcDbPoint") (210 0.0 0.0 1.0) (50 . 0.0)))
  (setq ct 0)
  (repeat (sslength ss)
(setq ent (entget (ssname ss ct)))
(setq enn (cdr (assoc 0 ent)))
(cond
      ((= enn "ARC")
         (setq en1 (append en0 (list (cons 62 6))(list (assoc 10 ent))))
      )
      ((= enn "CIRCLE")
         (setq en1 (append en0 (list (cons 62 1))(list (assoc 10 ent))))
      )
      ((= enn "ELLIPSE")
         (setq en1 (append en0 (list (cons 62 3))(list (assoc 10 ent))))
      )
)
(entmake en1)
(setq ct (1+ ct))
  )
  (princ)
)

langjs · 发表于 2012-4-29 22:47:06

自己动手，丰衣足食

flytoday · 发表于 2012-4-29 22:48:27

动滴了就搞定了啊大师..

Andyhon · 发表于 2012-4-30 08:10:12

建议楼主提供配合调试用的样本文件(*.Dwg)

xyh · 发表于 2012-4-30 09:11:08

对于块内部和多段线形式的未处理

ZZXXQQ · 发表于 2012-4-30 09:12:48

本帖最后由 ZZXXQQ 于 2012-4-30 09:23 编辑

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

flytoday02 · 发表于 2012-4-30 11:24:34

先顶上下哈谢谢各位大师了

xiaodao520 · 发表于 2012-4-30 11:36:38

做什么用的，楼主。

凝望你 · 发表于 2013-2-8 21:59:12

谢谢各位大师了

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

批量绘制椭圆及圆的圆心点...

最佳答案

评分

评分

本帖子中包含更多资源

浏览过的版块