全局更改psltscale

Polly · 发表于 2022-7-6 15:40:44

非常感谢大家。

chulse · 发表于 2022-7-6 15:43:35

是的，我记得有一天我第一次意识到这一点时，真的很困惑。我认为是这句话帮助了我

alanjt · 发表于 2022-7-6 15:49:18

我在旧文件中对此有一个问题，我刚刚写了一个反应堆，当我切换到纸质空间时，它会将psltscale设置为1。

我回家后会把它寄出去。

alanjt · 发表于 2022-7-6 15:52:26

干得好。无论何时切换到布局，它都会将psltscale设置为1

copy

(defun ChangedLayout (reactor layout / )
 (if (/= (nth 0 layout) "Model")
   (setvar "psltscale" 1)
 );if
);defun
 
(if
 (not *LayoutLTS*)
  (setq *LayoutLTS*
   (VLR-Miscellaneous-Reactor nil '((:VLR-layoutSwitched . ChangedLayout)))
  );setq
);if

chulse · 发表于 2022-7-6 15:54:06

好的，我很感兴趣-作为一个完整的LISP新手，reator到底是什么，你如何使用它们？

抱歉，如果我正在劫持线程

谢谢

lpseifert · 发表于 2022-7-6 15:58:17

这里有一个很好的解释和例子
http://www.afralisp.net/vl/reactors1.htm

skipsophrenic · 发表于 2022-7-6 16:02:57

男孩，我知道那种感觉吗，我打开一幅画，看了看，想尖叫，介意我用你的Lisp程序吗？

从AutoCAD帮助：

vlr lisp反应堆

构造一个编辑器反应器对象，通知LISP事件
（vlr lisp反应堆数据回调）
论据
数据与反应堆对象关联的任何AutoLISP数据；否则，如果没有数据，则为零。

回调以下形式的配对列表：
（事件名称.回调函数）
其中，事件名称是下表“Lisp reactor events”中列出的符号之一，回调函数是表示事件触发时要调用的函数的符号。每个回调函数接受两个参数：
reactor_对象调用回调函数的VLR对象。
列表与特定事件关联的额外数据元素的列表。此列表中特定事件的内容显示在Lisp reactor callback data表中。

返回值
reactor\u对象参数。
Lisp反应堆事件
事件名称
描述
：vlr lispWillStart
要计算AutoLISP表达式。
：vlr lispEnded
AutoLISP表达式的计算已完成。
：vlr LISP取消
已取消对AutoLISP表达式的求值。

Lisp反应堆回调数据
名称
列表长度
参数
：vlr lispEnded
：vlr LISP取消
0

：vlr lispWillStart
1.
包含要计算的AutoLISP表达式第一行的字符串。

alanjt · 发表于 2022-7-6 16:08:04

加油，伙计
我必须写下这件事，我厌倦了老板看着我正在修改的旧计划集，他会说的第一句话是“所有的行都发生了什么，我以为有些应该被打破？”
每次，这只是一个修复psltscale的问题。我从零开始的新项目似乎从来没有问题，只是旧项目。

[编程交流] 全局更改psltscale

发表回复

精选推荐