有一个愚蠢的星期五时刻。。。

brawleyman · 发表于 2022-7-6 07:54:20

我试图创建一个LISP例程，当一个图形打开时，它没有设置为我列表中批准的比例，它会提醒用户，并将比例设置为默认的1/8”。这是我到目前为止拥有的部分，但无法使其正常工作。我想我需要mapcar或其他东西，但现在是星期五下午，我梦想着有一个为期3天的周末。我希望在一天结束前完成这项工作。感谢任何帮助！

copy

  (setq approvedscales '(0.125 0.25 0.333 0.5 0.667 1 1.33 2 1.25 2.5 3.75 5 6.25 7.5 8.75 10 11.25 12.5))
 (if (/= (getvar "dimscale") approvedscales)
   (progn
     (alert "No usable scale has been detected in this drawing!\nThis drawing has been set to the default 1/8" scale.")
     (setq thehfscale "1/8")
   );end progn
 );end if

BlackBox · 发表于 2022-7-6 08:04:03

考虑vl定位方法。

copy


(if (vl-position (getvar 'dimscale) myDimScaleList)
 T
 nil
 )

pBe · 发表于 2022-7-6 08:17:44

另一种选择：

copy

 (if (member (getvar "dimscale") approvedscales)
     T
     nil
     )

brawleyman · 发表于 2022-7-6 08:25:39

谢谢大家的建议！我最终使用了pBe的“成员”格式，效果很好！

BlackBox · 发表于 2022-7-6 08:34:50

FWIW-vl位置为f a s t e r

示例代码。。。。

copy


(setq dimScales '(0.125 0.25 0.333 0.5 0.667 1 1.33 2 1.25 2.5 3.75 5 6.25 7.5 8.75 10 11.25 12.5))
(defun _member ( dimScales )
 (member (getvar "dimscale") dimScales)
 )
(defun _vl-position ( dimScales )
 (vl-position (getvar 'dimscale) dimScales)
 )
(bench '( _member _vl-position ) (list dimScales) 10000)

速度测试。。。。

copy


_MEMBER
Elapsed: 62
Average: 0.0062
_VL-POSITION
Elapsed: 31
Average: 0.0031

Lee Mac · 发表于 2022-7-6 08:41:03

好奇，为什么：

copy

(if <something>
   t
   nil
)

结构

由于任何非零值都被认为是真的，IF语句变得多余，因此测试可以简单地进行：

copy

(defun _member ( dimScales )
   (member (getvar 'dimscale) dimScales)
)

BlackBox · 发表于 2022-7-6 08:51:27

简单答案。。。用户错误。

BlackBox · 发表于 2022-7-6 08:57:48

此处更新了速度测试。

[编程交流] 有一个愚蠢的星期五时刻。。。

发表回复

精选推荐