caoxia 发表于 2002-7-3 17:08:00

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

ll_j 发表于 2002-7-3 19:06:00

参考

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

mccad 发表于 2002-7-3 19:50:00

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

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

(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 发表于 2016-6-5 23:07:29

很西化你这个哦
页: [1]
查看完整版本: 怎样用LISP提取多义线的坐标