stoyer 发表于 2013-5-26 12:34:10

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

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 发表于 2013-5-26 14:30:22

自己搞定了：
(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 发表于 2013-5-26 14:53:13

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

434939575 发表于 2014-11-2 11:55:50

好资料。谢谢！
页: [1]
查看完整版本: entmake根据点表和凸度创建有弧的轻多段线问题