有没有办法设置+o

Bhanson · 发表于 2022-7-6 09:57:30

我有一组代码，需要根据while循环中的条件在加号（+）和减号（-）之间交替。这比重新键入所有（setq sel\n代码）要容易得多（参见示例代码）

 (while (< count 4)
  (setq count (+ count 1))
             (setq sel_3 (list (+ ptBx 1.4) (- ptBy 1.2)) )
         (setq sel_4 (list (+ ptBx 1.41) (- ptBy 1.55)) )
         (setq sel_7 (list (+ ptBx 1.7) (- ptBy 1.0)) )
         (setq sel_8 (list (+ ptBx 2.0) (- ptBy 1.2)) )
         (setq sel_9 (list (- ptBx 0.2) (- ptBy 2.0)) )
         (setq sel_10 (list (+ ptBx 0.75) (- ptBy 2.25)) )
         (setq sel_11 (list (+ ptBx 1.0) (- ptBy 2.5)) )
(setq sel_12 (list (+ ptBx 1.25) (- ptBy 3.0)) )
         (setq sel_14 (list (- ptBx 0.6) (- ptBy 0.) )
           (setq sel_15 (list (- ptBx 0.3) (- ptBy 0.9)) )
           (THEN DO SOME PROCESS USING THE sel_N POINTS FROM ABOVE)
); END WHILE LOOP

谢谢

Lee Mac · 发表于 2022-7-6 10:14:10

我不太清楚您试图用代码实现什么，但在回答您的线程标题时：

copy

(setq plus +)
(plus 2 3)
=> 7

Bhanson · 发表于 2022-7-6 10:23:03

谢谢李，我认为这不管用，但我想有时候答案就在你面前。

顺便问一下，你是怎么对LISP了解这么多的？你会推荐一些可以学习的阅读材料吗？

再次感谢！！

Lee Mac · 发表于 2022-7-6 10:27:10

非常欢迎你BHanson

我没有读过任何关于LISP的书，只有真正的参考文献（主要是VLIDE中的帮助文档）。我的大部分知识都来自论坛

Bhanson · 发表于 2022-7-6 10:39:34

好吧，到目前为止，这很有帮助，所以我会继续这样做。谢谢

irneb · 发表于 2022-7-6 10:42:15

这是lisp的“优点”之一。由于其“所谓的函数方法”和非类型变量，变量实际上也可以包含函数。。。因此，可以直接使用这种重新分配。其他语言有类似的概念，但很少像C++的宏那样易于使用。

顺便说一句，这个特定的问题并不真正需要这种方法——尽管它是“最简单”（可能也是最有效）的方法。如果你使用VB，你会遵循一种更数学的方法：

copy

;; To subtract
(setq Sign -1)
(setq Answer (+ Variable (* Sign Value)))
;; To add
(setq Sign 1)
(setq Answer (+ Variable (* Sign Value)))

但显然这将仅限于+/-。在*和/之间做同样的事情需要像Lee所示的函数赋值（或者可能是expt函数的一些奇怪用法）-否则一些wangling使用条件（这将使代码更大）。

Bhanson · 发表于 2022-7-6 10:51:56

李的代码运行得很好，但感谢您澄清了关于变量存储函数的那一小部分。

这是代码的完成部分。
（这些变量ptAx、ptAy等是代码实体选择部分的细分点（xyz）。使用+和-函数的变量根据如下所示的计数进行交替，以避免重复键入“选择点”的交替+和-函数。

copy

(setq count 1)
(while (<= count 4.0)
    (print)(princ "Count is: ")(princ count)(print)
  (cond ((= count 1); point A
 (setq calca -)(setq calcb +)(setq calcc -)
 (setq ptNx ptAx)(setq ptNy ptAy)
 (setq scale_ammt 0.97)
 ); end of first condition
 ((= count 2); point B
 (setq calca +)(setq calcb -)(setq calcc -)
 (setq ptNx ptBx)(setq ptNy ptBy)
 (setq scale_ammt 0.935)
 ); end of second condition
 ((= count 3); point C
 (setq calca -)(setq calcb +)(setq calcc +)
 (setq ptNx ptCx)(setq ptNy ptCy)
 (setq scale_ammt 0.97)
 ); end of third condition
 ((= count 4); point D
 (setq calca +)(setq calcb -)(setq calcc +)
 (setq ptNx ptDx)(setq ptNy ptDy)
 (setq scale_ammt 0.935)
 ); end of fourth condition
   )
 
         ; Set Selection points for Top Right
(setq sel_1 (list (calca ptNx 1.2) (calcc ptNy 0.9)) )
         (setq sel_2 (list (calca ptNx 1.4) (calcc ptNy 1.25)) )
             (setq sel_3 (list (calca ptNx 1.4) (calcc ptNy 1.3)) )
         (setq sel_4 (list (calca ptNx 1.41) (calcc ptNy 1.65)) )
         (setq sel_9 (list (calcb ptNx 0.2) (calcc ptNy 2.0)) )
         (setq sel_10 (list (calca ptNx 0.75) (calcc ptNy 2.25)) )
         (setq sel_11 (list (calca ptNx 0.5) (calcc ptNy 2.5)) )
(setq sel_12 (list (calca ptNx 1.25) (calcc ptNy 3.0)) )
         (setq sel_14 (list (calcb ptNx 0.6) (calcc ptNy 0.) )
           (setq sel_15 (list (calcb ptNx 0.3) (calcc ptNy 0.9)) )
  
 ; Edit Drawing lines on cover to New Style
 ;*****************************************
           
; Edit Drawing lines
         (command "zoom" "e")
(command ".explode" (ssget "_C" sel_1 sel_2)); Explode Dart in corner
(command ".offset" 0.375 (ssget "_C" sel_1 sel_2) sel_12 ""); Offset Dart
(command "zoom" "e")            
         (setq selection (ssget "_C" sel_3 sel_4)); Modify Newline Entities
(setq ent_name (ssname selection 0))
(setq ent_temp (entget ent_name))
(setq ptM (cdr (assoc 10 ent_temp)))
         (setq ptN (cdr (assoc 11 ent_temp)))
         ; Find Center of Newline
         (setq center (list (+ (/(-(car ptM) (car ptN))2.0) (car ptN)); Find Center X Value
                   (+(/(-(cadr ptM) (cadr ptN))2.0)(cadr ptN)) ) ); Find Center Y Value
         (command "scale" (ssget "_C" sel_3 sel_4) "" center scale_ammt ""); Scale Down Newline Entities
         (command "explode" (ssget "_C" sel_11 sel_12) ); Explode L shape pline close to center
(command "zoom" "e")
         (command ".extend" (ssget "_C" sel_9 sel_10) "" (ssget "_C" sel_3 sel_4) ""); EXtend Newline to Left side of L
         (command ".trim" (ssget "_C" sel_3 sel_4) "" (ssget "_C" sel_9 sel_10) "")
         (Command ".explode" (ssget "_C" sel_14 sel_15))
(command "erase" (ssget "_C" sel_11 sel_12) ""); Erase Bottom of L (this one ^)
          (setq selection (ssget "_C" sel_14 sel_15))
         (setq ent_name (ssname selection 0))
(setq ent_temp (entget ent_name))
(setq ptM (cdr (assoc 10 ent_temp)))
(setq ptN (cdr (assoc 11 ent_temp)))
         (setq **** (list (car ptN)(calcc (cadr ptN) 0.7)(caddr ptN) ) )
         (setq ent_temp (subst (cons 11 ****)(assoc 11 ent_temp) ent_temp))
(entmod ent_temp)
   (setq count (+ count 1))
  ); END WHILE LOOP

您可以将计数增量合并到while标头中，因此：
[/列表]
[code]（setq计数0）（而（

irneb · 发表于 2022-7-6 11:00:06

[编程交流] 有没有办法设置+o

发表回复

精选推荐