怎样用LISP提取多义线的坐标

caoxia

ll_j

(setq en(entget(car(entsel)))
        plist nil
  )
  (mapcar
    '(lambda(x)
       (if (= (car x) 10) (setq plist(cons (cdr x) plist)))
     )
    en
  )
  (reverse plist)

mccad

函数：返回包含选定细多义线线段的端点列表

(defun getseg (poly pt / pts i)
  (setq        pts (massoc 10 (entget poly))
        i   (caddar (ssnamex (ssget pt)))
  )
  (list        (nth (1- i) pts)
        (if (and (isclosed poly)
                 (= i (length pts))
            )           (car pts)
          (nth i pts)
        )
  )
)


功能

返回包含选定细多义线线段的端点列表

参数

细多义线的图元名称和所选定的点

示例

(apply 'getseg (entsel))

注意

该程序不是很稳定，所以请进行严密的测试

作者

未知

ztp0804

很西化你这个哦