Lisp thay lệnh PE với tham số j.

[hhhhgggg 29]

Bác Pro nào viết júp em cái CODE của lisp mà khi mình đánh lệnh nó bao hàm lệnh PE và tham số j để nối các line được chọn lại thành Pline ! Thanks !

[tucdrom 644]

Bác Pro nào viết júp em cái CODE của lisp mà khi mình đánh lệnh nó bao hàm lệnh PE và tham số j để nối các line được chọn lại thành Pline ! Thanks !

Ko cần dùng đến Lisp đâu bác ạ.Lệnh PE ngoài chức năng edit và joint các pline với nhau,nó còn có chức năng joint các line thành 1 pline.

Command:PE

Command:PEDIT Select polyline or [Multiple]:M+Space

Chọn các Line.

Command:Convert Lines and Arcs to polylines [Yes/No]? Y+Space

Command:Enter an option [Close/Open/Join/Width/Fit/Spline/Decurve/Ltype gen/Undo]: J+Space

:cheers:

[q288 166]

Bác Pro nào viết júp em cái CODE của lisp mà khi mình đánh lệnh nó bao hàm lệnh PE và tham số j để nối các line được chọn lại thành Pline ! Thanks !

 

 

 

(command "pedit" (ssname (setq ssg (ssget '((0 . "LINE")))) 0) "y" "j" ssg "" "")