将选择的XREF插入点设置到(0.0 0.0 0.0)

Lisphk · 发表于 2017-5-12 22:23:40

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

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

×

(defun c:XR20 (/ a b xset ent entl)
(cond
((setq xset (ssget '((0 . "INSERT"))))
(setq a 0
b 0
)
(repeat (sslength xset)
(setq ent (ssname xset a)
entl (entget ent)
a (1+ a)
)
(cond
((>= (cdr (assoc 70 (tblsearch "BLOCK" (cdr (assoc 2 entl))))) 4)
(setq entl (subst
'(10 0.0 0.0 0.0)
(assoc 10 entl)
entl
)
entl (subst
(cons 50 0.0)
(assoc 50 entl)
entl
)
)
(and
(entmod entl)
(setq b (1+ b))
)
)
)
)
)
)
b
)

(defun c:XR20 (/ a b xset ent entl) 
  (cond 
    ((setq xset (ssget '((0 . "INSERT")))) 
      (setq a 0 
            b 0 
      ) 
      (repeat (sslength xset) 
        (setq ent (ssname xset a) 
              entl (entget ent) 
              a (1+ a) 
        ) 
        (cond 
          ((>= (cdr (assoc 70 (tblsearch "BLOCK" (cdr (assoc 2 entl))))) 4) 
            (setq entl (subst 
                         '(10 0.0 0.0 0.0) 
                         (assoc 10 entl) 
                         entl 
                       ) 
                  entl (subst 
                         (cons 50 0.0) 
                         (assoc 50 entl) 
                         entl 
                       ) 
            ) 
            (and 
              (entmod entl) 
              (setq b (1+ b)) 
            ) 
          ) 
        ) 
      ) 
    ) 
  ) 
  b 
)

Bao_lai · 发表于 2017-5-12 22:25:54

学习学习…

qqqincccken · 发表于 2017-5-13 00:39:35

雖然暫時不知怎麽用銜謝謝了

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

[每日一码] 将选择的XREF插入点设置到(0.0 0.0 0.0)

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