社区 › Auto Lisp › 切换时切换线宽

tzframpton 发表于 2022-7-6 06:09:01

切换时切换线宽

我有一个谦逊的请求。有没有办法在进入任何图纸空间布局时启用线宽，然后在返回模型空间时关闭线宽？我想要一些简单的东西，我可以添加到我的阿卡多克。lsp文件。这件事容易做吗？
 
我愿意支付。。。一杯咖啡还是六包啤酒？Paypal或其他。
 
提前感谢-坦纳

BlackBox 发表于 2022-7-6 06:15:06

... 我现在得走了，但我会回来帮你的（除非有人打败我）。

tzframpton 发表于 2022-7-6 06:15:35

谢谢BlackBox！！非常感谢。

BlackBox 发表于 2022-7-6 06:20:21

没问题；我一定要Lisp程序吗。NET好吗？

tzframpton 发表于 2022-7-6 06:22:14

不管你怎么选择。只要我每次打开AutoCAD时它都能加载并工作，并且。网对我来说很好。
 
*编辑*
这个请求背后的原因是因为我想设置AutoCAD Revit的工作方式。我想将图纸空间设置为白色背景，然后使用“显示打印样式”选项，这样当线宽切换打开时，它会给我一个排序为“打印预览”的选项。Revit在处理此类事情时非常高效，我希望AutoCAD也能有类似的表现，但恒定的LWT切换非常烦人。

BlackBox 发表于 2022-7-6 06:25:46

2012年或更新？

tzframpton 发表于 2022-7-6 06:31:01

2014布鲁塔！
 
我上周刚在新电脑上安装了家用许可证。

BlackBox 发表于 2022-7-6 06:33:32

完美的当我做得不好时，给我一个自动装弹机。捆绑，使其基本上拖放（即使您的会话已经打开）。
 
干杯

tzframpton 发表于 2022-7-6 06:36:20

令人惊叹的再次感谢。我会正式让你成为这个小金块的目标。伙计，我很兴奋！！

Tharwat 发表于 2022-7-6 06:39:53

你好
 
将这段代码保存在acaddoc中，然后重新启动Autocad并通知我
 

(vl-load-com)
(vlr-command-reactor nil '(
                         (:vlr-commandended . CommandEnded)
                         )
)
(defun CommandEnded (reactor param)
(if (eq 1 (getvar 'TILEMODE))
   (setvar 'LWDISPLAY 0)(setvar 'LWDISPLAY 1)
)
(princ)
)

查看完整版本: 切换时切换线宽