dxf怎么定义啊？

行雲

一段小代码，用来判定所选直线，缺少dxf
(defun c:zz()
(setq ee (entlast)
      Dat (entget ee)
       p1 (dxf 10 Dat)
       p2 (dxf 11 Dat)
)
(cond
((equal (car p1) (car p2) 1e-11) (princ "竖线"))
((equal (cadr p1) (cadr p2) 1e-11) (princ "横线"))
(T (princ "斜线"))
))

newer

取组码 10 的值。

用 组码 搜索论坛，

行雲

newer 发表于 2016-12-18 22:23

多谢版主指点，请帮我看看下面代码有什么问题？cad报错误: 参数类型错误: listp 10

(defun c:zz()
(setq ee (entlast)
      Dat (entget ee)
       p1 (dxf 10 Dat)
       p2 (dxf 11 Dat)
)
(cond
((equal (car p1) (car p2) 1e-11) (princ "竖线"))
((equal (cadr p1) (cadr p2) 1e-11) (princ "横线"))
(T (princ "斜线"))
))
(defun DXF (elst klst / massoc)
  (setq        massoc (function (lambda (lst key / l)
                           (setq l
                                  (vl-remove-if-not '(lambda (x) (= (car x) key)) lst)
                           )
                           (if (= (length l) 10)
                             (cdar l)
                             (mapcar 'cdr l)
                           )
                         )
               )
  )
  (if (listp klst)
    (mapcar (function (lambda (x) (apply massoc (list elst x))))
            klst
    )
    (apply massoc (list elst  klst))
  )
)

newer

DXF函数就是取组码10的值

(defun dxf(code ed)
  (cdr (assoc code ed))
)