xin lisp wipeout cho đường mline

[tranngoctoan 0]

cho em xin lisp vẽ đường bao wipeout cho đường mline với ạ.

[limfx 32]

Bao kiểu sao bạn chụp hình ví dụ lên?

[tvgtyb08 10]

Làm gì tạo được  wipeout bằng đường Mline nhỉ

[cuongtk2 415]

Được, nhưng khó ở chỗ viết để làm gì? Khổ ở chỗ đứa cần không biết, đứa biết không cần 

 

[amateurday 16]

Khả năng là đường mline của tác giả sẽ rất to, và cần phải che giấu gì ở dưới cái mline đó.

 

Nhưng góp ý với tác giả, đừng bao giờ dùng mline, lỡ vẽ rồi sau muốn sửa thuộc tính của mline là không thể sửa được (Ví dụ cần thay linetype, color, ...). Hình như phải xóa hết và vẽ lại.

[vietduc147258 88]

Lúc mới biết đến MLine thấy nó thật tuyệt. Dùng nó để vẽ đường ống với co ống (Co hàn theo dạng hình gò) thì không gì bằng. Nhưng càng dùng thì càng thấy tù túng. Anh Autodesk bỏ rơi luôn Mline rồi.

Nếu muốn che chi tiết dưới thì Mline style chọn Fill Color:250,250,250 là được.

Nhưng đã có Mline rồi thì không Modify được nữa. Đây là điểm chí mạng của Mline.

Những chi tiết đơn giản thì có thể dùng hatch màu 250,250,250 để che. chi tiết phức tạp thì chịu rồi

[tranngoctoan 0]

cảm ơn các bác đã chia sẽ. mình vẽ đường ống sử dụng mline nên muốn có wipeout để che và thể hiện rỏ các lớp ống thôi. Không biết các bác có phương án nào đỡ đau đầu hơn thằng mline này ko ạ.

[tranngoctoan 0]

1 giờ} trướ}c, vietduc147258 đã nói:

Lúc mới biết đến MLine thấy nó thật tuyệt. Dùng nó để vẽ đường ống với co ống (Co hàn theo dạng hình gò) thì không gì bằng. Nhưng càng dùng thì càng thấy tù túng. Anh Autodesk bỏ rơi luôn Mline rồi.

Nếu muốn che chi tiết dưới thì Mline style chọn Fill Color:250,250,250 là được.

Nhưng đã có Mline rồi thì không Modify được nữa. Đây là điểm chí mạng của Mline.

Những chi tiết đơn giản thì có thể dùng hatch màu 250,250,250 để che. chi tiết phức tạp thì chịu rồi

rất đồng tình với bác.Mline tiện nhưng hơi tù túng

[cuongtk2 415]

Đây nhé

 

(defun c:mline2wipeout ( / I JUST LS LS1 MSPACE N OBJ PLINE PLINE1 PLINE2 WID WID1)
(defun var->list (var)
  (vlax-safearray->list(vlax-variant-value var))
  )
  
(setq obj (vlax-ename->vla-object(car (entsel)))
      wid (vla-get-MLineScale obj)
      just (vla-get-Justification obj)
      wid1 (/ wid 2))

(setq mspace (vla-get-modelspace (vla-get-activedocument 
              (vlax-get-acad-object))))
(setq pline (vla-addPolyline mspace (vla-get-coordinates obj)))
(if (= just 0) (setq pline2 (car (var-a>list (vla-Offset pline wid)))))
(if (= just 2) (setq pline2 (car (var->list (vla-Offset pline (- 0 wid))))))
(if (= just 1) (setq pline2 (car (var->list (vla-Offset pline wid1)))
                     pline1 (car (var->list (vla-Offset pline (- 0 wid1))))
                     )
  )
(if (not (null pline1)) (setq pline pline1))
(setq ls (var->list(vla-get-coordinates pline2))
      n (length ls)
      i 0
      ls1 nil)
(vla-Delete pline2)
(while (<= i (- n 3))
  (setq ls1 (append ls1 (list (list (nth i ls)
                                    (nth (+ i 1) ls)
                                    (nth (+ i 2) ls)
                                    ))
                    )
        )
  (setq i (+ i 3))
  )
(setq ls1 (REVERSE ls1)
      n (length ls1)
      i 0)
(foreach pt ls1 (vla-AppendVertex pline (vlax-3d-point pt)))
(vla-put-Closed pline 1)
  (command "wipeout" "p" (vlax-vla-object->ename pline) "y")
  )