Xin Lisp !

[thienhadi 1]

Mình cần 1 cái lisp dánh lệnh cái nó ra chữ"  vị trì khu đất và có mũi tên chỉ dẫn".Mình tìm nhiều rùi không thấy mong các Anh/Chị và các bạn ai biết thì xin chỉ mình. Thanks All!

[thienhadi 1]

Mình đã tìm được, thanks all

[Huynh Nghia 22]

Up lên cho mình xin với bạn

[ginger 11]

Up lên cho mình xin với bạn

bạn gõ Lệnh LE và chỉnh là được mà 

[Huynh Nghia 22]

bạn gõ Lệnh LE và chỉnh là được mà 

Đánh lệnh nó ra chữ mà bạn ginger

[thienhadi 1]

Mình sử sụng lisp này nè. Mình up không được ai chỉ minh với. mình dán len đay luôn.

 

;;;Viet dong chu "Vi tri khu dat"

 (defun C:VTKD(/ pt1 pt2)

  (setvar "CMDECHO" 0)

  (setq osm (getvar "OSMODE"))

  ;(setq pt1 (getpoint "\nDiem dat text : "))

  (while (= (setq pt1 (getpoint "\nDiem dat text : ")) nil))

  (setq pt2 (polar pt1 0 10.2))

  (setq vt (polar pt1 1 0.5))

  (setvar "OSMODE" 0)

  (command ".line" pt1 pt2 "")

  (command ".text" vt 1.2 0 "Vò trí khu ñaát" "")

  (setvar "OSMODE" osm)

  (princ)

)

 

 

;;;Ve mui ten

(defun C:MT (/ pt pt1 pt2 ang)

  (setvar "CMDECHO" 0)

  (setq osm (getvar  "OSMODE"))

  (while (= (setq pt1 (getpoint "\nDiem dau mui ten : ")) nil))

  (while (= (setq pt2 (getpoint pt1 "\nDiem cuoi mui ten : ")) nil))

  (setq ang (angle pt1 pt2)  pt (polar pt1 ang 1.0))

  (setvar "OSMODE" 0)

  (command "PLINE" pt2 "W" 0 0 pt "W" 0.5 0 pt1  "")

  (setvar "OSMODE" osm)

  (princ)

)

 

 

;;;Viet dong chu "Vi tri khu dat"

 (defun C:VT(/ pt pt2 pt3 ang)

  (setq osm (getvar "OSMODE"))

  (setq pt2 (getpoint "\nDiem dat VTKD: "))

  (setvar "OSMODE" 0)

  (setq pt3 (getpoint "\nHuong VTKD: "))

  (if (< (car pt2) (car pt3))

    (setq pt3 (polar pt2 0 10.2))

    (setq pt3 (polar pt2 PI 10.2))

  );if

  (command "PLINE" pt2 pt3 "")

  (if (< (car pt2) (car pt3))

    (setq vttext (polar pt2 1 0.5))

    (setq vttext (polar pt3 1 0.5))

  );if

  (command "TEXT" vttext 1.2 0 "Vò trí khu ñaát" "")

  (setvar "OSMODE" osm)

  (princ)

)

 

 

 

;;;Ve mui ten + Viet dong chu "Vi tri khu dat"

 (defun C:q(/ pt pt1 pt2 PT3 ang)

  (setq osm (getvar "OSMODE"))

  (setvar "OSMODE" 512)

  (setq pt1 (getpoint "\nDiem dau mui ten: "))

  (setvar "OSMODE" 0)

  (setq pt2 (getpoint pt1 "\nDiem cuoi mui ten: "))

  (setq ang (angle pt1 pt2))

  (setq pt (polar pt1 ang 1))

(command "PLINE" pt1 "W" 0.0 0.5

                   pt "W" 0.0 0.0 pt2 "")

  (setq pt3 (getpoint "\nHuong VTKD: "))

  (if (< (car pt2) (car pt3))

    (setq pt3 (polar pt2 0 8.0))

    (setq pt3 (polar pt2 PI 8.0))

  );if

  (command "PLINE" pt2 pt3 "")

  (if (< (car pt2) (car pt3))

    (setq vttext (polar pt2 1 0.5))

    (setq vttext (polar pt3 1 0.5))

  );if

  (command "TEXT" vttext 0.8 0 "Vò trí khu ñaát" "")

  (setvar "OSMODE" osm)

  (princ)

)

Chỉnh sửa Tháng 9 8, 2016 theo thienhadi