社区 › Auto Lisp › 非协调层反应器

RyanAtNelco 发表于 2022-7-6 11:58:22

非协调层反应器

大家好，
 
有谁知道一个反应堆可以自动协调所有未协调的层？
 
谢谢

JohnM 发表于 2022-7-6 12:13:05

我不明白，你能再详细一点吗
听起来你想清除所有未使用的层。

RyanAtNelco 发表于 2022-7-6 12:18:53

插入外部参照图形时，该图形中的图层将作为“未协调图层”输入。为了打印，您必须选择它们并对其进行对账。我正在寻找一种在外部参照图形时自动执行此操作的方法。

Lee Mac 发表于 2022-7-6 12:24:17

LAYEREVAL=0有任何影响吗？

RyanAtNelco 发表于 2022-7-6 12:38:51

这正是我想要的！
 
谢谢

Lee Mac 发表于 2022-7-6 12:43:27

别担心
 
如果有一种VL方法来协调一个层，这可能就是构建反应堆的方法：
 

(defun c:XR_ON nil
(vl-load-com)
(if (not *xr_reac*)
   (progn
   (setq *xr_reac*
       (vlr-xref-reactor "Xref Reactor"
         (list
         (cons :vlr-endAttach 'Do_Recon))))
   (princ "\n<< Reactor Activated >>"))
   (princ "\n** Reactor Already Running **"))
(princ))


(defun Do_Recon (React Args)
(princ "\n<< Layers Need to be Reconciled >>")
(princ))


(defun c:XR_OFF nil
(if (or (and *xr_reac* (vlr-added-p *xr_reac*))
         (setq *xr_reac*
         (car
             (vl-remove-if-not
               (function
               (lambda (x) (eq "Xref Reactor" (vlr-data x))))
               (mapcar (function cadr)
               (vlr-reactors :vlr-xref-reactor))))))
   (progn
   (vlr-remove *xr_reac*)
   (setq *xr_reac* nil)
   (princ "\n<< Reactor Deactivated >>"))
   (princ "\n** Reactor Not Running **"))
(princ))

RyanAtNelco 发表于 2022-7-6 12:52:26

李，你真是太棒了。

Lee Mac 发表于 2022-7-6 13:02:44

 
呵呵谢谢

查看完整版本: 非协调层反应器