entmake根据点表和凸度创建有弧的轻多段线问题

stoyer

  entmake能创建有弧的轻多段线吗？我下面代码不正确，应该怎么写才能实现这功能呢。？
(entmake (append    (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 90 (length pt_list)) (cons 70 1))
      (mapcar '(lambda (pt) (list (cons 10 (car pt)) (cons 42 (cadr pt)))) pt_list )
      )
   )
;;pt_list内容：
(((2669.57 1610.96) 0.0) ((3325.8 1653.6) -0.602411) ((3555.22 1280.51) 0.0) ((2669.57 1610.96) 0.0))

stoyer

自己搞定了：
  (entmake (append    (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 90 (length pt_list)) (cons 70 1))
     (foreach p pt_list
       (setq a (list (cons 10 (car p))))
       (setq ptll (append ptll a))
       (setq a (list (cons 42 (cadr p))))
       (setq ptll (append ptll a))
     )
     )
  )

xiabin68

学习了，，，，，，，，，，，，，，，，

434939575

好资料。谢谢！