非协调层反应器

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方法来协调一个层，这可能就是构建反应堆的方法：

copy


(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

呵呵谢谢

[编程交流] 非协调层反应器

发表回复

精选推荐