setq，关于autolisp的问题setq不能赋值点对吗为什么我在赋值的时候总

来源：整理时间：2024-12-16 04:28:32 编辑：智能门户手机版

本文目录一览

1，关于autolisp的问题setq不能赋值点对吗为什么我在赋值的时候总
2，在AutoCAD里面的LISP语言中设两个相同字母是什么意思比如说setq
3，CAD的lisp语言中 setq mm1mm 是什么意思
4，cad打开下面一直闪烁setq bzag
5，请教lisp高手这段代码错在哪了总是提示错误 SETQ 中参数太少
6，SET 函数有什么用

1，关于autolisp的问题setq不能赋值点对吗为什么我在赋值的时候总

额

关于autolisp的问题setq不能赋值点对吗为什么我在赋值的时候总

2，在AutoCAD里面的LISP语言中设两个相同字母是什么意思比如说setq

你好！rr是变量名称。如有疑问，请追问。

在AutoCAD里面的LISP语言中设两个相同字母是什么意思比如说setq

3，CAD的lisp语言中 setq mm1mm 是什么意思

setq 是赋值变量mm 是变量名这句的意思是：设置变量mm为mm+1 也就是mm递增1

你好！赋值，令mm=1+mm如有疑问，请追问。

CAD的lisp语言中 setq mm1mm 是什么意思

4，cad打开下面一直闪烁setq bzag

简单：这是CAD病毒引起的，先用360CAD专杀工具。后开打CAD看看。这种情况一般无法根治因为有病毒渗根。只有打开CAD后按ESC解除或重装CAD

你好！文件掉失如有疑问，请追问。

5，请教lisp高手这段代码错在哪了总是提示错误 SETQ 中参数太少

程序中语句错误太多，主要是括号不匹配，括号不匹配不是简单的在最后把右括号加够个数(setq p3 (list (car (p1)这里P1是不能当成函数的。。。。。改了之后程序好下，但不知道是不是你想要的(defun c:flat (/ p0 d b t1 l bl pa p2 p3 p4 p5) (setq p0 (getpoint "\n输入圆心坐标: ")) (setq d (getdist p0 "\n输入直径: ")) (setq b (getdist p0 "\n输入键槽宽度: ")) (setq t1 (getdist p0 "\n输入键槽深度: ")) (setq l (* 0.5 d)bl (* 0.5 b)) (setq p1 (list (+ (car p0) l) (+ (cadr p0) bl))) (setq p3 (list (car p1) (- (cadr p1) b))) (setq p2 (list (car p0) (- (cadr p0) l))) (setq p4 (list (- (car p1) t1)(cadr p1))) (setq p5 (list (- (car p3) t1)(cadr p1))) (command "pline" p1"a" "s"p2 p3"l" p4 p5 "c" ))

你好！看下第6行和第9行，似乎有写法错误，少空格了另外，（setq P3 ......那一段你看下，括号应该有问题希望对你有所帮助，望采纳。

6，SET 函数有什么用

zxq0220 的程序很好用。可以举一反三地运用 set 函数对图层、颜色等进行统计操作

关于8楼所贴评论中提到的问题“不能重复使用（数量会累加）”应该是由于该程序未设清零。“用纯数字做块名，会出错。”是因为程序中用块名作为变量名，而变量名不能为全数字。可以通过用一个字符加上块名作为变量名的方法来解决。

非常感谢3楼的程序，不仅是一个set 函数的很好的应用，也是一个非常实用的程序，可以用来统计材料表。该程序的核心语句应该是(SET (READ BNM) (1+ (EVAL (READ BNM)))主要思路我看懂了，就是以每个块的块名作为变量名，并作为该块数量的累加器，程序简洁，妙哉！如果不用 set 函数，恐怕难做到这么简洁。

用set统计存在的问题（看最下方的评论）:

三楼程序有BUG，下面是更改过的程序。PHP代码: [拷贝到剪切板](DEFUN C:SUMBLK () (IF (SETQ SS (SSGET "X" (LIST (CONS 0 "INSERT")))) (PROGN (SETQ SL (SSLENGTH SS) I 0 BL (LIST)) (REPEAT SL (SETQ ENT (ENTGET (SSNAME SS I)) I (1+ I) BNM (CDR (ASSOC 2 ENT))) (IF (EVAL (READ BNM)) (SET (READ BNM) (1+ (EVAL (READ BNM)))) (PROGN (SETQ BL (CONS (LIST BNM 1) BL)) (SET (READ BNM) 1) )) ) (SETQ SL (LENGTH BL) I 0 BL (REVERSE BL)) (PRINC "图块名:数量\n") (REPEAT SL (SETQ B (NTH I BL) BNM (CAR B) BL (SUBST (LIST BNM (EVAL (READ BNM))) B BL)) (PRINC BNM) (PRINC " : ") (PRINC (EVAL (READ BNM))) (PRINC "\n") (SETQ I (1+ I)) (SET (READ BNM) nil) ) )) (PRINC) )