RemoveVertex method

[limfx 32]

Phương thức RemoveVertex method theo VBA: object.RemoveVertex nIndex

Vậy theo Visual LISP: (vlax-invoke object 'RemoveVertex nIndex)

Nhưng lại xuất hiện lỗi: Error: ActiveX Server returned the error: unknown name: "REMOVEVERTEX"

Các anh chị khắc phục lỗi này giúp em với, thanks!

 

 

[ndtnv 481]

Phương thức RemoveVertex chỉ có ở Section

LightWeightPolyline không có RemoveVertex

[tannguyen291 163]

Viết một cái hàm mới. :)) vertex của pline thì dễ

 

[limfx 32]

Vậy muốn RemoveVertex  LightWeightPolyline thì làm sao Anh?

[ndtnv 481]

Search gg có nhiều lisp

[tannguyen291 163]

Ví dụ 1 cái nhé:

(defun RemoveVertex (e n / i l1 l2 l3 l4 l5)
  (setq 
    e (entget e)
    l1 (vl-remove-if '(lambda (x) (member (car x) '(10 40 41 42 91 210))) e)
    l2 (vl-remove-if-not '(lambda (x) (member (car x) '(10 40 41 42 91))) e)
    l1 (subst (cons 90 (1- (cdr (assoc 90 e)))) (assoc 90 e) l1)
    i 0
  )
  (while (< i (length l2))
    (if (eq 0 (rem i 5))
      (setq 
        l5 (cons (reverse l4) l5)
        l4 (list (nth i l2))
      )
      (setq l4 (cons (nth i l2) l4))
    )
    (setq i (1+ i))
  )
  (setq 
    l5 (cdr (reverse (cons l4 l5)))
    l5 (vl-remove (nth n l5) l5)
    l1 (cons l1 l5)
  )
  (entmod (apply 'append l1))
)

không hề khó mà

[limfx 32]

Cảm ơn 2 anh ndtnv và tannguyen291 .Sử dụng vl-remove có vẻ hay, em sẽ vận dụng

[limfx 32]

(redraw [ename [mode]])

mode: 3 Highlight entity 4 Unhighlight entity

Theo cách này chỉ được Highlight như hình 1

Vậy em muốn như hình 2 thì làm cách nào a?

 

[quangcda 9]

Hình m1 là redraw, còn hình 2 phải là sssetfirst