引线对齐

风境 · 发表于 2016-5-31 09:14:44

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

求一个批量引线对齐的LSP插件

ketxu · 发表于 2019-5-5 00:52:13

Thanks for sharing

newer · 发表于 2016-5-31 09:34:35

什么引线？贴一个图上来吧，把前后的对比显示出来，另外发帖到编程申请版块。

腾龙 · 发表于 2017-12-2 01:12:17

学习,好好学习!

liunian0524 · 发表于 2017-12-2 07:54:28

以前收集的,出处忘记了!
;; 对齐引线
(defun C:YX (/ SS PT I ENT PT1 ANT PT ENT2 PT2 PT3)
  (if (and (setq SS (ssget '((0 . "LEADER"))))
         (setq PT (getpoint "\n指定对齐点: "))
   )
(repeat (setq I (sslength SS))
   (setq ENT (entget (ssname SS (setq I (1- I))))
         PT1 (assoc 10 (reverse ENT))
         ANT (cdr (assoc 340 ENT))
         PT  (cons (car PT) (cddr PT1))
   )
   (entmod (subst (cons 10 PT) PT1 ENT))
   (if (setq ENT2 (entget ANT))
      (progn
      (setq PT1 (cdr PT1)
            PT2 (assoc 10 ENT2)
      )
      (setq PT3 (polar (cdr PT2) (angle PT1 PT)(distance PT1 PT)))
      (entmod (subst (cons 10 PT3) PT2 ENT2))
      )
   )
)
  )
  (princ)
)

liunian0524 · 发表于 2017-12-2 07:56:06

我去,居然是2016的帖子,

7079977a · 发表于 2019-1-30 16:56:38

好东西，真的不错，收藏了！

dongf2008 · 发表于 2019-3-11 15:51:25

谢谢楼主分享

jinneng · 发表于 2020-9-29 16:06:36

学习,学习！！！

账号		自动登录	找回密码
密码			立即注册

[工具] 引线对齐

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。