展点函数

springwillow

用点表生成多段线

2. (defun zhandian  (pointlst)
   
3.   (entmake (append (list '(0 . "LWPOLYLINE")
   
4.      '(100 . "AcDbEntity")
   
5.      '(100 . "AcDbPolyline")
   
6.      (cons 90 (length pointlst))
   
7.             )
   
8.        (mapcar '(lambda (p) (cons 10 p)) pointlst))
   
9.   )
   
10. )

(defun zhandian  (pointlst)<br />   (entmake (append (list '(0 . "LWPOLYLINE")<br />      '(100 . "AcDbEntity")<br />      '(100 . "AcDbPolyline")<br />      (cons 90 (length pointlst))<br />             )<br />        (mapcar '(lambda (p) (cons 10 p)) pointlst))<br />   )<br /> )

wowan1314

  呵呵！ 支持。
来个COMMAND的。
  (COMMAND "PLINE")
  (APPLY 'COMMAND PTS)
  (COMMAND "")

liu_kunlun

再简洁一点的：(apply 'command (append (list "pline") pts (list "")))

vectra

我喜欢楼主的方案

lzr_00

楼主的方案更直观

wmz

liu_kunlun 发表于 2013-7-14 22:11
再简洁一点的：(apply 'command (append (list "pline") pts (list "")))

这写起来简单，但可比楼主的慢多了！

caogis

测量用得多吧！