Đến nội dung


Hình ảnh

Nối Pline của diễn đàn bị lỗi


  • Please log in to reply
5 replies to this topic

#1 FoJ

FoJ

    biết zoom

  • Members
  • Pip
  • 12 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 04 December 2007 - 12:50 PM

em đã sử dụng lisp NN để nối Pline, nhưng sao với đời cad2007 em thấy hình như nó bị rơi vào 1 vòng lặp mà không có điểm dùng, chỉ có cách là endtask cái cad thôi, các bác giúp em được không ?

(defun c:nn (/ tdt ssdt sodt index)
(defun ObjName (ssdt /)
(cdr (assoc '0 (entget ssdt)))
)
(defun MoPL (ssdt /)
(= (cdr (assoc '70 (entget ssdt))) 0)
)
(defun NoiPL (ssdt /)
(if (MoPL ssdt)
(command ".PEDIT" ssdt "J" "All" "" "X")
)
)
(defun NoiLC (ssdt /)
(command ".PEDIT" ssdt "Y" "J" "All" "" "X")
)
(setq
tdt (ssget)
sodt (sslength tdt)
index 0
)
(repeat sodt
(setq
ssdt (ssname tdt index)
index (1+ index)
)
(if (or (= (Objname ssdt) "LWPOLYLINE")
(= (Objname ssdt) "POLYLINE")
)
(NoiPL ssdt)
)
(if (or (= (Objname ssdt) "LINE") (= (Objname ssdt) "ARC"))
(NoiLC ssdt)
)
)
(princ)
)

em không rành về lisp lắm chỉ biết ứng dụng thôi, còn các bác bảo em ngồi coding thì em chịu à, hì hì
  • 0

#2 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 4105 Bài viết
Điểm đánh giá: 4495 (đỉnh cao)

Đã gửi 04 December 2007 - 12:57 PM

Không phải lặp đâu, do bản vẽ của bạn nhiều đối tượng quá.

Khi nối, bạn nên chọn ít đối tượng thì sẽ nhanh hơn. Lệnh NN sẽ tự tìm các đối tượng 'dính' với đối tượng được chọn.
  • 0

#3 FoJ

FoJ

    biết zoom

  • Members
  • Pip
  • 12 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 04 December 2007 - 01:07 PM

không phải anh ạ, em đã thử với ít đối tượng cũng vậy mà
  • 0

#4 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 4105 Bài viết
Điểm đánh giá: 4495 (đỉnh cao)

Đã gửi 04 December 2007 - 01:09 PM

không phải anh ạ, em đã thử với ít đối tượng cũng vậy mà

bạn có thể upload 1 file mà bạn dùng bị lỗi lên diễn đàn được không?
Tôi dùng thử thấy bình thường mà!
  • 0

#5 FoJ

FoJ

    biết zoom

  • Members
  • Pip
  • 12 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 04 December 2007 - 01:30 PM

công ty không cho phép up file lung tung anh ạ, thông cảm nhé :)
  • 0

#6 Theghost

Theghost

    biết dimlinear

  • Members
  • PipPipPipPipPip
  • 309 Bài viết
Điểm đánh giá: 31 (tàm tạm)

Đã gửi 04 December 2007 - 01:37 PM

Thế thì bó ..., vậy làm sao giúp được
  • 0
Có khi nào trên đường đời tấp nập.Ta vô tình đi lướt qua nhau.Bước lơ đãng k0 ngờ đang để mất.Một tâm hồn ta đợi đã từ lâu