求引注线（LEADER）平行源码！……如果比较难写，可以付点辛苦费(^_^)

szxgsh

是否要判断这条引线是否是折型的，就是转弯的那种？
如果不用判断，就选择一条母线，去刷其他的。一定是只能调整中间那个折弯位置那个点，其他2个点是不能动的（就是引出位置点，和文字接入点）。
就高手赐教源码！


如果比较难写，可以适当支付辛苦费。有意者可以给我留言。

danxingpen

(defun LeadParallel(/  standlead ent plist p1 p2 v12 leadsels n rlist p1 p2 p3 rightp2 )
  (setq standlead(car(entsel "\n选择作为标准的引线标注:")))
  (setq ent(entget standlead))
  (setq plist nil)
  (foreach x ent
    (if (= 10 (car x))
      (setq plist(cons (cdr x) plist))
    )
  )
  (setq plist(reverse plist))
  (setq p1(car plist)
p2(cadr plist))
  (setq v12(mapcar '- p2 p1))
  (setq leadsels(ssget (list '(0 . "LEADER"))))
  (repeat (setq n(sslength leadsels))   
    (setq ent(entget(ssname leadsels (setq n(1- n)))))
    (setq plist nil)
    (setq rlist nil)
    (foreach x ent
      (if (= 10 (car x))
(setq plist(cons (cdr x) plist))
(setq rlist (cons x rlist))
)
      )
    (setq rlist(reverse rlist))
    (setq plist(reverse plist))
    (setq p1(car plist)
   p2(cadr plist)
   p3(caddr plist))
    (setq rightp2(inters p1 (mapcar '+ p1 v12) p2 p3 nil))
    (if rightp2
      (progn
(setq rlist(append rlist (list (cons 10 p1))))
(setq rlist(append rlist (list (cons 10 rightp2))))
(setq rlist(append rlist (list (cons 10 p3))))
(entmod rlist)
      )
    )
  )
  (princ)
)
;纯粹操作,,没有出错处理!

qq1254582201

ZZXXQQ 发表于 2013-8-11 11:03
[/post]

非常给力啊

szxgsh

莫非我这个需求很多人用不到么？没高手出手……

szxgsh

期待高手！

szxgsh

如果比较难写，可以适当支付辛苦费。有意者可以给我留言。

szxgsh

高手尚未关注，再顶一下！

wowan1314

去任务大厅发布。 估计马上就会有人给写了

wowan1314

另外据我分析： 楼主现在发布任务的话。会很占便宜。

因为任务大厅才建设好。作为第一个发布任务的人。
版主们肯定不会让他空手而归。会第一时间不计代价的满足你的要求。

是个花少量代价，得大量好处的机会！ 注意把握。。

ZZXXQQ

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

chendili

楼上的测试了，好用，要是能加上框选就好了