Bác Pro nào sửa cho em đoạn Lisp cái !

[hhhhgggg 29]

Đây là đoạn Lisp thay lệnh PE với tham số J,

1.em muốn đưa thêm khoảng hở giữa các line bằng 50 vào. Có nghĩa là line nào cách nhau <=50 thì vẫn nối vào nhau.

2. Em muốn thay đổi là chọn đối tượng xong đánh lệnh chứ ko phải đánh lệnh xong mới chọn đối tượng. Có nghĩa em chọn các line sau đánh jj thì nó liền vào thành 1 Pline .

Bác pro nào sửa cho em với !!!

 

CODE

 

(defun c:jj()

(setq b (ssget))

(COMMAND "PEDIT" "M" b "" "j" "" "")

(princ)

)

[Tue_NV 3.912]

Đây là đoạn Lisp thay lệnh PE với tham số J,

1.em muốn đưa thêm khoảng hở giữa các line bằng 50 vào. Có nghĩa là line nào cách nhau

2. Em muốn thay đổi là chọn đối tượng xong đánh lệnh chứ ko phải đánh lệnh xong mới chọn đối tượng. Có nghĩa em chọn các line sau đánh jj thì nó liền vào thành 1 Pline .

Bác pro nào sửa cho em với !!!

 

CODE

 

(defun c:jj()

(setq b (ssget))

(COMMAND "PEDIT" "M" b "" "j" "" "")

(princ)

)

Đây bạn:

(defun c:jj()
(COMMAND "PEDIT" "M" "P" "" "Y" "j" "50" "")
(princ)
)

Bạn phải chọn Line trước bằng Grid thì nó mới chạy đấy nhé. Đối tượng là Line

[hhhhgggg 29]

Đây bạn:

(defun c:jj()
(COMMAND "PEDIT" "M" "P" "" "Y" "j" "50" "")
(princ)
)

Bạn phải chọn Line trước bằng Grid thì nó mới chạy đấy nhé. Đối tượng là Line

ok ! Thanks bác tuệ nhiều nhé !

[hhhhgggg 29]

ok ! Thanks bác tuệ nhiều nhé !

Bác Tuệ xem sửa lại giúp em đoạn Code đó đi, nó chạy hay bị lỗi treo máy lắm và hay lỗi ko chạy được lắm ! huhu

[Tue_NV 3.912]

ok ! Thanks bác tuệ nhiều nhé !

Bác Tuệ xem sửa lại giúp em đoạn Code đó đi, nó chạy hay bị lỗi treo máy lắm và hay lỗi ko chạy được lắm ! huhu

Sửa đây bạn :

(defun c:jj()
(setq ss (ssget "P"))
(if (null ss) (prompt "khong co doi tuong nao duoc chon")
(COMMAND "PEDIT" "M" ss "" "Y" "j" "50" "")
)
(princ)
)

ok ! Thanks bác tuệ nhiều nhé !

Chỉ cần tick thanks nhiều nhiều là OK :cheers:

[hhhhgggg 29]

Sửa đây bạn :

(defun c:jj()
(setq ss (ssget "P"))
(if (null ss) (prompt "khong co doi tuong nao duoc chon")
(COMMAND "PEDIT" "M" ss "" "Y" "j" "50" "")
)
(princ)
)

 

Chỉ cần tick thanks nhiều nhiều là OK :cheers:

Bác Tuệ này làm sao rùi ấy ! Bác sửa lại cho em đi. cái Code bác vừa sửa chẳng chạy được ! Bác test thử sẽ thấy. huhuhu

[Tue_NV 3.912]

Bác Tuệ này làm sao rùi ấy ! Bác sửa lại cho em đi. cái Code bác vừa sửa chẳng chạy được ! Bác test thử sẽ thấy. huhuhu

Theo yêu cầu của bạn -> Chọn đối tượng trước bằng Grid -> sau đó đánh lệnh jj

Bạn phải chọn Line trước bằng Grid thì nó mới chạy đấy nhé. Đối tượng là Line

[hhhhgggg 29]

Theo yêu cầu của bạn -> Chọn đối tượng trước bằng Grid -> sau đó đánh lệnh jj

em chọn Line trước rồi mà. chọn kiểu j nó cũng ko chạy. Với lại bác có thể mở rộng đối tượng lên là 1 cái là line và 1 cái là Pline mà vẫn nối vào nhau được ko ? Bác cứ Test kỹ júp em nhé. Tránh mất thời gian !

[q288 166]

em chọn Line trước rồi mà. chọn kiểu j nó cũng ko chạy. Với lại bác có thể mở rộng đối tượng lên là 1 cái là line và 1 cái là Pline mà vẫn nối vào nhau được ko ? Bác cứ Test kỹ júp em nhé. Tránh mất thời gian !

 

Mình xin sửa cái lisp của bạn như sau, bạn test thử xem sao, mình test thếy ok.

 

(defun c:jj()

(setq ss (ssget "_i"))

(COMMAND ".PEDIT" "M" ss "" "Y" "J" "50" "")

)

[hhhhgggg 29]

Mình xin sửa cái lisp của bạn như sau, bạn test thử xem sao, mình test thếy ok.

 

(defun c:jj()

(setq ss (ssget "_i"))

(COMMAND ".PEDIT" "M" ss "" "Y" "J" "50" "")

)

ok ! Mình mới chạy test sơ bộ thấy ok. Để dùng một thời gian xem nó có bị lỗi ko đã. Nếu lỗi thì mình sẽ nhờ bạn sửa lại júp mình nhé . Thanks !

[q288 166]

ok ! Mình mới chạy test sơ bộ thấy ok. Để dùng một thời gian xem nó có bị lỗi ko đã. Nếu lỗi thì mình sẽ nhờ bạn sửa lại júp mình nhé . Thanks !

 

Chú ý là cái lisp trên chỉ chạy đc khi có ít nhất 1 trong các đối tượng đc chọn là line, nếu chỉ toàn là pline thì sẽ bi lỗi.