LISP程序中如何创建一个匿名块

计算中心点1

(defun zxd181 (obj / obj ss x y)

 (vla-getboundingbox obj 'x 'y)

 (setq ss (mapcar 'vlax-safearray->list (list x y)))

 (list (mapcar 'car ss) (mapcar 'cadr ss))

)

建立无名块

(defun wmk1815 (ss / ent name pt ss ss1 ss2 ss3 x x1 x2 y1 y2)

 (setq ss1 '())

 (while (setq ent (ssname ss 0)) (setq ss (ssdel ent ss) ss1 (cons ent ss1)) )

 (setq ss2 (mapcar 'zxd181 (mapcar 'vlax-ename->vla-object ss1)))计算坐标

 (setq ss3 (vl-sort (apply 'append (mapcar 'car ss2)) '<) x1 (car ss3) x2 (last ss3))最小x1,最大x2

 (setq ss3 (vl-sort (apply '弊源append (mapcar 'cadr ss2)) '<) y1 (car ss3) y2 (last ss3))最小y1,最大y2

 (setq pt (mapcar '* '(0.5 0.5) 裂此(list (+ x1 x2) (+ y1 y2))))计算中心点完成

 租源态(entmake (list '(0 . "block") '(2 . "*U") '(70 . 1) (cons 10 pt)))

 (mapcar '(lambda (x) (entmake (cdr (entget x)))) ss1)

 (setq name (entmake '((0 . "ENDBLK"))))

 (mapcar 'entdel ss1)

 (entmake (list '(0 . "INSERT") (cons 2 name) (cons 10 pt)))

)

例

(defun c:tes ( / ss)

 (vl-load-com)

 (princ "\n请选择要变为块的对象")

 (if (setq ss (ssget))

  (wmk1815 ss)变为无名块

 )

 (princ)

)

MySQL 启动失败的最常见的原因有两类，分别是无法访问系统资源和参数设置错误造成的，下面分别分析如下。

MySQL 不能访问启动需要的资源是造成而 MySQL 无法启动的一个常见原因，如：文件，端口等。由于 linux 中用于启动 mysqld 进程的 mysql 用户通常是不能登陆的，可以使用类似下手拦面的命令检查文件的访问权限。

找出问题后，修改对应文件或目录的权限或属主后通常可以解决问题。但有时 mysql 用户有访问文件和目录的权限，但仍然会被拒绝访问，例如下面这个例子：

测试说明 mysql 用户有这个毕袭胡目录的访问权限，但创建文件还是失败，这种情况让很多人困惑，这个时候通常是 mysqld 进程的访问被 linux 的 selinux 或 apparmor 给阻止了，大家可以看到创建的表不是在 mysql 的默认目录下面，因此 selinux 或 apparmor 的 policy 里面没有包含这个目录的访问权限，此时只要对禅尘应的修改 policy 就行了，当然把 selinux 或 apparmor 停了也行。

有时虽然对系统资源有访问的权限，但系统资源已经被占用：

这个故障产生的原因是另外一个 mysqld 进程已经启动并占用了对应的文件。

参数设置错误造成 MySQL 无法启动的原因也非常常见，此时先要检查 MySQL 启动时会调用的参数，下面的命令可以查询 MySQL 启动时调用参数文件的顺序：

知道了 MySQL 参数文件的调用顺序，我们就可以检查对应的参数文件，找出其中的错误，如果觉得参数文件的可读性不强，可以使用下面的命令显示 mysqld 程序将要调用的参数：

注意这个命令显示完参数后就退出，不会真正运行 mysqld。这个命令和 my_print_defaults mysqld 完全是等价的，只不过后者的显示方式是一行一个参数。

然后开始对可疑的参数进行调试，我个人喜欢加的参数和顺序如下：

看这个例子：

看这个例子，我们很容易知道是需要我们同时设置参数 GTID_MODE 和 ENFORCE_GTID_CONSISTENCY 同时为 on 才行。

MySQL技术特点

（1）它使用的核心线程是完全多线程，支持多处理器。

（2）有多种列类型：1、2、3、4和8字节长度自有符号/无符号整数、FLOAT、DOUBLE、CHAR、VARCHAR、TEXT、BLOB、DATE、TIME、DATETIME、TIMESTAMP、YEAR和ENUM类似。

（3）它通过一个高度化的类库实现SQL函数库并像其一样快速，通常在查询初始化后不该有任何内存分配。没有内存漏洞。

（4）全面支持SQL的GROUP BY 和ORDER BY 子句，支持聚合函数（COUNTO()、AVG()、STD()、SUM() 、MAX()和散搭MIN()。你可以在同一查询中来自不同数据库的表。

（5）支持ANSI SQL的LEFTOUTER JON和ODBC。

（6）所有列都有默认值。你可以用INSERT插入一个表列的子集，那些没有明确给定值的列设置为他们的默认值。

（7）MySQL可以工作在不同的平台上。支持C、C++、Java、Perl、PHP、Python和TCLAPI。

（8）利用优化的一遍扫描多重连接（one-sweepmulti-join）工具可以非常快速地进行网络连接。

（9）通过高度优化的类库实现SQL函数库，通常在查询初始化后没有任何内存分配。

（10）可以在同一查询中混用来自不同数据库的表。

（11）灵活且安全的权限和口令系统，并且准许其他主机的认证，口令有较高的安全性，因为当与一个服务器连接时，所有传送的口令都会被加密。

（12）大数据库处理。可举空以对某些包含50,000,000个记录的数据库使用MySQL。

（13）没有内存漏洞。

（14）所有MySQL程序可以使用“##help"或“_？”选项获得联机帮助。

（15）服务器能为客户提供多种语言的出错信息。

（16）客户端使用TCP/IP连接或Linux(Socket)和NT下的命令管道连正掘瞎接MySQL。

（17）MySQL特有的show命令可用来检索数据库表和索引的信息，explain命令可用来确定优化器如何解决一个查询。

---