[已解决]根据多段线点表，重新生成开放多段线

yu960312 · 发表于 2024-5-3 19:18:54

本帖最后由 yu960312 于 2024-5-3 19:27 编辑

;;多段线点表
(setq point_list_new '(((37225.7 856.217 0.0) 0.0) ((37225.7 854.217 0.0) 0.0) ((37208.7 854.217 0.0) 0.0) ((37205.7 857.217 0.0) 0.0) ((37205.7 864.217 0.0) -0.414214) ((37206.7 865.217 0.0) 0.0) ((37209.7 865.217 0.0) 0.414214) ((37210.7 866.217 0.0) 0.0) ((37210.7 872.217 0.0) 0.414214) ((37209.7 873.217 0.0) 0.0) ((37206.7 873.217 0.0) -0.414214) ((37205.7 874.217 0.0) 0.0) ((37205.7 881.217 0.0) -0.414214)))
;;重新生成开放多段线?不知为何会生成首尾封闭的多段线
(entmake (append(list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 90 (length point_list_new)) (cons 70 0))(foreach p point_list_new(setq a (list (cons 10 (car p))))(setq ptll (append ptll a))(setq a (list (cons 42 (cadr p))))(setq ptll (append ptll a)))))

yu960312 · 发表于 2024-5-3 19:29:17

;;多段线点表
[size=15.5325pt]

(setq point_list_new '(((37225.7 856.217 0.0) 0.0) ((37225.7 854.217 0.0) 0.0) ((37208.7 854.217 0.0) 0.0) ((37205.7 857.217 0.0) 0.0) ((37205.7 864.217 0.0) -0.414214) ((37206.7 865.217 0.0) 0.0) ((37209.7 865.217 0.0) 0.414214) ((37210.7 866.217 0.0) 0.0) ((37210.7 872.217 0.0) 0.414214) ((37209.7 873.217 0.0) 0.0) ((37206.7 873.217 0.0) -0.414214) ((37205.7 874.217 0.0) 0.0) ((37205.7 881.217 0.0) -0.414214)))

;;重新生成开放多段线
[size=15.5325pt]

(entmake (append(list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 90 (- (length point_list_new) 1)) (cons 70 0))
(foreach p point_list_new
(setq a (list (cons 10 (car p))))
(setq ptll (append ptll a))
(setq a (list (cons 42 (cadr p))))
(setq ptll (append ptll a))
)
)
)

ssyfeng · 发表于 2024-5-3 19:31:46

试试这样
(entmake (append(list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 90 (length point_list_new)) (cons 70 1))(foreach p point_list_new(setq a (list (cons 10 (car p))))(setq ptll (append ptll a))(setq a (list (cons 42 (cadr p))))(setq ptll (append ptll a)))))

yu960312 · 发表于 2024-5-3 19:47:53

ssyfeng 发表于 2024-5-3 19:31
试试这样
(entmake (append(list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (c ...

解决了
(cons 90 (- (length point_list_new) 1))

账号		自动登录	找回密码
密码			注册

[提问] [已解决]根据多段线点表，重新生成开放多段线