愿意花100明经币求写代码

198526

langjs 发表于 2012-4-26 17:44
1.用删除重复线的程序解决。
2.这个好弄
3and4，编起来太复杂

学习了，谢谢langjs大师
(if (not (assoc 62 ent))
      (setq color (cdr (assoc 62 (tblsearch "LAYER" (cdr (assoc 8 ent)))))) ;获得随层的颜色
      (setq color (cdr (assoc 62 ent)))
    )
很好很实用。
(foreach x ptslist
          (if (null pt1)(setq pt1 x pt3 x ) (setq pt2 x))
          (if pt2 (progn (dimtext pt1 pt2) (setq pt1 pt2)))
        )
        (if (= 1 (cdr (assoc 70 ent)))(dimtext pt2 pt3))
这个遍历也很爽！
赞一个！

198526

flytoday 发表于 2012-4-26 18:08
不知道为什么有时重线消除不干净。。侧试图中我试了下有些重线无法消除。。
那个两边标注我想将程序用到 ...

如果一定要做的话也不是很难，我表A里已经记录了长度，只要再把两点的弧度加进去。标注时只要比较长度与角度 如果长度相等且两个(REM 弧度 PI)也相等，那么就视为平行且相等线不做标注

xyp1964

线长标注距离控制，本例控制为220：

T_T

谢谢，复杂！下载来慢慢品尝。复杂的东西里面才多营养。