圆生成特定4处小缺圆

啵浪鼓

想做一个程序,将任意多个圆生成每个圆4个带小缺口的图元,并串接成聚合线 "LWPOLYLINE"

a,所选择的圆不管多大小,程序自动以45度方向凸出0.02mm的4处R0.2的小缺口

b,能识别图层和色型,选择对象后只处理图层名为 "*_W" 内的圆和色号为1#的圆

c,生成出来的新图元需是聚合线 "LWPOLYLINE"

请问这个程序该怎么编,提供一个测试图!

啵浪鼓

有沒有人提供一下思路的﹐現在不曉得該如何下手才好﹗

ZZXXQQ

编程思路：
1、用ssget取得图中的圆；
2、使用repeat循环，循环数量为取得圆的数量；
3、用entget,ssname取得单个圆的数据表；
4、从上面数据表中读取圆心和半径；
5、用polar函数计算要画的四个小弧的中心位置；
6、在算好的四个点画四个半径为0.2的圆；
7、使用trim命令对画好的圆进行剪裁；
8、使用pedit命令对剪裁后的线条进行联接。

能力有限写不出来,ZZXXQQ版主帮忙写出后面的程序吧,依我现在的能力可能研究半年后才能写得出这完整的程序来

(defun c:ttt ()
   (setvar "osmode" 0)
   (setq ss (ssget (0 . "circle")))
   (setq i 0)
   (repeat (sslength ss)
      (setq c1 (ssname ss i))
      (setq d1 (cdr (assoc 40 (entget c1))))  ;圆半径
      (setq dzb (cdr (assoc 10 (entget c1)))) ;圆坐标点
      (setq p1 (polar ))  ;得到0.2圆的坐标点,这里开始不会写了
      (setq i (+ i 1))
   )
   (princ)
)

啵浪鼓

能力有限在做半径为0.2的坐标点就不知怎么写了,后面的还要trim截除和Pedit串接更加难写了,依我现在的能力得再学半年才有可能写得出来了,ZZXXQQ版主请帮忙写完下面的程序吧!

(defun c:ttt ()
   (setvar "osmode" 0)
   (setq ss (ssget (0 . "circle")))
   (setq i 0)
   (repeat (sslength ss)
      (setq c1 (ssname ss i))
      (setq d1 (cdr (assoc 40 (entget c1))))  ;圆半径
      (setq dzb (cdr (assoc 10 (entget c1)))) ;圆坐标点
      (setq p1 (polar ))  ;得到0.2圆的坐标点,这里开始不会写了
      (setq i (+ i 1))
   )
   (princ)
)

ZZXXQQ

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

啵浪鼓

非常感謝ZZXXQQ版主的熱心幫助﹗

目前程序支持直徑1mm以上的圓﹐1以下的圓trim可能出錯,0.4以下的圓還應該加上出錯提示并不執行程序

ZZXXQQ

5楼已改，再试试。

啵浪鼓

0.6以上圓可以,0.55以下的還是老樣子
沒關系了﹐這樣已經挺好用了﹐能否加個判斷﹐如果是0.6以下的圓將不做修改﹐待程序執行完所有0.6以上的圓后出個提示﹕
(princ 有""個為0.6的圓由于直徑太小未作修改)

ZZXXQQ

五楼已改，再试试。