CAD插件-高手需要攻克的难题

xingyun300

事先声明：我不懂编程！

只是想让大家考虑一下这些功能是不是可能实现！请大家研究一下！
第一个：对齐标注

xingyun300

第二个：交点复制

xingyun300

第三个：两条直线连结

xingyun300

第四个:交点画圆  别人的，能不能添加一个对话框，像CAD默认画圆一个，能选半径和直径，然后输大小！！！

;所有交点上画圆
(setq *ModelSpace*
       (vla-get-ModelSpace
   (vla-get-ActiveDocument
     (vlax-get-acad-object)
   ) ;_ 结束vla-get-ActiveDocument
       ) ;_ end of vla-get-ModelSpace
) ;_ end of setq
(defun c:cc (/ ss)
  (vl-load-com)
  (if (setq ss (ssget))
    (foreach x (IntersectionsinSet ss)
      (vla-AddCircle *ModelSpace* (vlax-3d-point x) 10)
    ) ;_ 结束foreach
  ) ;_ 结束if
  (princ)
) ;_ 结束defun
(defun IntersectionsinSet (ss / a b i j l)
  (setq i (sslength ss))
  (while (not (minusp (setq j (1- i)
          i (1- i)
          ) ;_ 结束setq
        ) ;_ 结束minusp
   ) ;_ 结束not
    (setq a (vlax-ename->vla-object (ssname ss i)))
    (while (not (minusp (setq j (1- j))))
      (setq b (vlax-ename->vla-object (ssname ss j))
      l (cons (GroupByNum (vlax-invoke a 'IntersectWith b acExtendNone) 3)
        l
        ) ;_ 结束cons
      ) ;_ 结束setq
    ) ;_ 结束while
  ) ;_ 结束while
  (apply 'append l)
) ;_ 结束defun
(defun GroupByNum (l n / r)
  (if l
    (cons
      (reverse (repeat n
     (setq r (cons (car l) r)
           l (cdr l)
     ) ;_ 结束setq
     r
         ) ;_ 结束repeat
      ) ;_ 结束reverse
      (GroupByNum l n)
    ) ;_ 结束cons
  ) ;_ 结束if
) ;_ 结束defun

xingyun300

怎么没人气呀

cabinsummer

可以实现～～～～～～

xingyun300

xingyun300 发表于 2011-11-20 16:28
第二个：交点复制

就是选择这条直线与其它所有线的交点，复制一个图形！

xingyun300

怎么实现 呀！！！！大家编一下看看！

yjr111

看来楼主需要的功能程序较多，还是自己学一点，一般2个月，有些简单的自己就可以搞定了，复杂的遇到问题可以上来请大虾！

x_s_s_1

以我的提问经验，这样的问题别人会认为您是在直接索取程序，不劳而获会引起别人的反感，您可以先自己尝试写一些，在哪部分有疑问，先到BBS中搜索，实在解决不了，再将问题到BBS中提出来，大家有时间可以帮您解决，实际上有些问题不一定高手才能解决的，像我这样的菜鸟说不定也可提供帮助。这样的话您的问题解决了，还学到了东西，何乐而不为呢。或者到编程申请板块去碰运气。
（另：您的标题确实有点那个）