如何: 将 【多 重 引 线 】有序排列?

fengyu6913

如何:  将 【多 重 引 线 】有序排列?


详见样图内所述！
肯请大佬帮助

xtjd

(defun c:t1()
  (setvar "cmdecho" 0)
  (defun t1(en)
    (setq
      ed(entget en)
      ps1(vl-remove-if-not '(lambda(x)(wcmatch(itoa(car x))"10,12,110"))ed)
      ps2 (mapcar 'cdr(reverse(cdr(reverse ps1))))
      ed1(subst(cons 10(setq p6(polar(nth 2 ps2)(* pi 0.5)500)))(nth 5 ps1)ed)
      ed2(subst(cons 10(setq p4(polar p6 0 1000)))(nth 3 ps1)ed1)
      ed3(subst(cons 12(setq p2(list(+ 200(car p6))(+ 50(cadr p6)))))(nth 1 ps1)ed2)
    )
    (entmod ed3)
  )
  (if(setq ss(ssget '((0 . "MULTILEADER"))))
    (mapcar 't1(vl-remove-if 'listp(mapcar 'cadr(ssnamex ss))))
  )
  (prin1)
)

fengyu6913

自己顶一下，求助ing

fengyu6913

自己再顶一下，求助ing

fengyu6913

xtjd 发表于 2024-8-27 17:38
(defun c:t1()
  (setvar "cmdecho" 0)
  (defun t1(en)

xtjd 大佬，重又叠的问题可否再帮解决下

xtjd

fengyu6913 发表于 2024-8-28 15:39
xtjd 大佬，重又叠的问题可否再帮解决下

fengyu6913

xtjd 发表于 2024-8-28 16:28

感谢 xtjd 大佬

源码放出来学习一下嘛

fengyu6913

xtjd 发表于 2024-8-28 16:28

大佬，把源码的文件也发个收费的呀