fengyu6913 发表于 2024-8-24 15:56:38

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

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


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

xtjd 发表于 2024-8-24 15:56:39



(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 发表于 2024-8-25 21:10:02

自己顶一下，求助ing

fengyu6913 发表于 2024-8-27 10:39:09

自己再顶一下，求助ing

fengyu6913 发表于 2024-8-28 15:39:35

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


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

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

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




fengyu6913 发表于 2024-8-28 16:54:36

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


感谢 xtjd 大佬

源码放出来学习一下嘛

fengyu6913 发表于 2024-8-28 16:56:04

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


大佬，把源码的文件也发个收费的呀
页: [1]
查看完整版本: 如何: 将 【多 重 引 线 】有序排列?