lisp定义一个函数j11，功能如下 1.选取一条样条曲线、圆弧、圆、多段线、线段，得到它周长。 2.用周长作为矩阵的长，用户输入宽度。 3.绘画出矩阵

在LISP中，你可以定义一个名为`j11`的函数来完成上述任务，大致步骤如下：

(defun j11 () 
  (interactive) ; 交互式地获取用户的输入
  (setq cmdecho 1) ; 显示命令执行过程
  (setq obj-type '(spline arc circle polylines line)) ; 定义可以选取的对象类型
  (setq obj-list (mapcar 'ssget obj-type)) ; 获取用户选择的图形

  (dolist (obj obj-list)
    (let ((data (ent-get obj)))
      (if (and (eq (cadr data) :length) ; 检查是否是闭合图形
               (not (null (caddr data)))) ; 确保有周长信息
        (let* ((perimeter (cadr (caddr data))) ; 提取周长
              (matrix-width (read-from-string "请输入矩阵宽度: "))) ; 用户输入宽度
          (progn
            (princ "对象周长: ")
            (print perimeter) ; 打印周长
            (make-matrix-perimeter matrix-width perimeter) ; 绘制矩阵
            ))))

  ) ; 函数结束
)

(defun make-matrix-perimeter (width perimeter)
  ; 这里你需要实现矩阵的绘制逻辑，比如用perimeter作为列数，宽度作为行数
  ; 可能涉及到图形构造、坐标变换等操作
  ; ... (具体的矩阵绘制代码)
)

注意，`make-matrix-perimeter`函数需要你自己实现矩阵的具体绘制逻辑，这通常会涉及到创建一系列图形元素，例如矩形或点，来表示矩阵。在实际代码中，这部分可能会依赖于特定的图形库或绘图函数。