vẽ mũi tên trong acad

[funnyboy89 0]

bác admin giúp em voi , em moi hoc auto cad , bac chi giup em ve mui tên dan đuờng trong auto cad , cam on bac nhiều !

[SONCAD 864]

bác admin giúp em voi , em moi hoc auto cad , bac chi giup em ve mui tên dan ðuờng trong auto cad , cam on bac nhiều !

Bạn có thể dùng lệnh Le (QLeader) ðể vẽ mũi tên hoặc bạn dùng lệnh Pline bằng cách vẽ 1 ðoạn thẳng là thân mũi tên, sau ðó nhập chiều rộng phần ðầu mũi tên rồi phần mũi nhọn cho giá trị = 0 (Specify starting width : 1, Specify ending width : 0)

[dinhcong 5]

Bạn nói rõ hơn được không? Mình làm như bạn nhưng không viết được giá trị chiều rộng của mũi tên.

[KE AN MAY DI VANG 574]

Bạn xem bài viết ở đây:

http://www.cadviet.com/forum/index.php?sho...amp;#entry17912

[phamthe 1]

nhờ các bác giúp em sửa cái code vẽ mũi tên có thêm độ lớn của mũi tên (arrow size) là 2 giúp em với!

(defun c:Arrow (/ _group _dist lastentity p1 p2 ent obj gr coords pt)
  (vl-load-com)  (defun _group (l) 
    (if (caddr l) (cons (list (car l) (cadr l) (caddr l)) (_group (cdddr l)))))
  (defun _dist (a b) (distance (list (car a) (cadr a)) (list (car b) (cadr b))))
  (setq lastentity (entlast)) 
  (if (and (setq p1 (getpoint "\nSpecify first point: "))
           (setq p2 (getpoint p1 "\nSpecity next point: "))
           (vl-cmdf "_.leader" "_non" p2 "_non" p1 "" "" "_N")
           (not (equal lastentity (setq ent (entlast))))
           (setq obj (vlax-ename->vla-object ent)))
    (while (eq 5 (car (setq gr (grread T 15 0))))
      (redraw)
      (grdraw (cadr gr)
              (trans (vlax-curve-getClosestPointTo ent (setq pt (trans (cadr gr) 1 0))) 0 1)  3  -1)
      (if  (equal (last (setq coords (_group (vlax-get obj 'Coordinates))))
          (car (vl-sort coords (function (lambda (a b) (< (_dist a pt) (_dist b pt)))))))
         (vlax-put obj 'Coordinates (apply (function append) (reverse coords))))
      (grdraw (cadr gr) (trans (car coords) 0 1) 1 -1)))  (redraw)  (princ))

[Doan Van Ha 3.180]

Bạn nhập dòng dưới đây, sau đó dùng lisp.

DIMASZ >> 2

[phamthe 1]

oh, cảm ơn anh Hà nhiều nhiều

[Cùi Bắp Số 1 1]

Mình vẫn vẽ mũi tên bằng lệnh LE, rồi sau đó kích vào mũi tên để điều chỉnh

[ngocan336 0]

Mình vẫn vẽ mũi tên bằng lệnh LE, rồi sau đó kích vào mũi tên để điều chỉnh

bạn điều chỉnh cho mũi tên to ra như nào chỉ mình với

[namnhim 6]

[memory021091 0]

sau khi dung LE để vẽ được mũi tên rồi, bạn nháy vào mũi tên và ấn Ctrl + 1 , tại linetype bạn nhập kích thước cho mũi tên là ok