Lisp

[lephuocly 7]

Mình tìm được cái lisp tính diện tích trên diễn đàn như sau(file đính kèm).

Mình muốn các Pro sửa dùm một tý cho phù hợp cho phù hợp với ý muốn:

1. Diện tích xuất ra có MÀU ĐỎ

2. Vị tri xuất diện tích theo chỉ điểm(pick).

Cảm ơn các Pro nhiều !

AREA_ae.LSP

[alisp 73]

Chỉ sửa theo yêu cầu, những chỗ khác ko đụng đến.

AREA_ae1.LSP

[lephuocly 7]

4 giờ trước, alisp đã nói:

Chỉ sửa theo yêu cầu, những chỗ khác ko đụng đến.

AREA_ae1.LSP

Cảm ơn Pro !

Làm ơn viết thêm cho tý là: pick điểm tới đâu thì hatch luôn tới đó để tránh pick thiếu.

[lephuocly 7]

5 giờ trước, alisp đã nói:

Chỉ sửa theo yêu cầu, những chỗ khác ko đụng đến.

AREA_ae1.LSP

Pro xem dùm. Tại sao Lisp đó không chạy trên file này

TNCT Km318-Km319.dwg

[duy782006 1.559]

File cad đời cao hơn 2007 mở không được. Dự là do height của text hiện hành bằng 0 nên lỗi xuất text.

[lephuocly 7]

5 phút trước, duy782006 đã nói:

File cad đời cao hơn 2007 mở không được. Dự là do height của text hiện hành bằng 0 nên lỗi xuất text.

Nhờ Pro viết lại cho cad 2010. Trân trọng cảm ơn !

[duy782006 1.559]

File cad của bạn đời cao, tôi dùng cad2007 mở không được nên dự đoán lỗi như trên chứ ko phải cad đời cao hơn cad2007 không hiểu lisp này.

[lephuocly 7]

Vừa xong, duy782006 đã nói:

File cad của bạn đời cao, tôi dùng cad2007 mở không được nên dự đoán lỗi như trên chứ ko phải cad đời cao hơn cad2007 không hiểu lisp này.

Vậy để mình chuyển nó về cad 2007. Pro xem giúp 

TNCT Km318-Km319 2007.dwg

[duy782006 1.559]

Bạn đổi textstyle hiện hành thành cái khác standard (các textstyle có height là 0.00) mà chạy được thì là tôi đoán đúng chỉ cần sửa 1 dòng là xong. Do cad tôi có nhiều lisp chỉnh thông số mặc định nên file cad và lisp của bạn tôi dùng thử vẫn được.

[lephuocly 7]

2 giờ trước, duy782006 đã nói:

Bạn đổi textstyle hiện hành thành cái khác standard (các textstyle có height là 0.00) mà chạy được thì là tôi đoán đúng chỉ cần sửa 1 dòng là xong. Do cad tôi có nhiều lisp chỉnh thông số mặc định nên file cad và lisp của bạn tôi dùng thử vẫn được.

Đổi textstyle có height =0 thì chạy được Pro ơi !

Giúp minh với. Mình mù về công nghệ(sinh năm 1967). Cảm ơn nhiều !

[duy782006 1.559]

Em có tên bên trên đấy ông anh! Đừng gọi pro nghe chán.

 

AREA_ae1.LSP

[DuongTrungHuy 132]

31 phút trước, lephuocly đã nói:

Đổi textstyle có height =0 thì chạy được Pro ơi !

Giúp minh với. Mình mù về công nghệ(sinh năm 1967). Cảm ơn nhiều !

Chào!

Mình có chỉnh sửa 1 chút. Bạn thử xem sao nhé.

 

(defun C:ae(/ N SS1 NUM EN CO)
  (if (not "acadapp.exp") (xload "acadapp.exp"))
  (setq N 0 co (getvar 'cecolor) SS1 (ssadd))
  (command "layer" "s" DiTi "")
  (setq PT1 (getpoint "\n Chon diem trong vung can tinh dien tich:") inra pt1)
  (command "BPOLY" PT1 "")
  (setq SS1 (ssadd (entlast) SS1) NUM (sslength SS1))
  (command ".area" "a" "e")
  (while (/= NUM N) (setq EN (ssname SS1 N)) (command EN)(setq N (1+ N)))
  (command "" "") (command "redraw")
  (setq SS nil) (prin1)
  (setq val (* 1 (getvar "area")))
  (princ "Gia tri la : ") (princ val)
  (prin1) (setvar 'cecolor "1")
  ;(command "TEXT" (getpoint)  "" "" (rtos val 2 2))
  (command "TEXT" pt1 0.2 (rtos val 2 2))
  (setvar 'cecolor co) (princ)
)

[lephuocly 7]

11 phút trước, duy782006 đã nói:

Em có tên bên trên đấy ông anh! Đừng gọi pro nghe chán.

 

AREA_ae1.LSP

Có cái gì đó không ổn bạn ơi ! Kiểm tra lại giúp mình .

[lephuocly 7]

13 phút trước, DuongTrungHuy đã nói:

Chào!

Mình có chỉnh sửa 1 chút. Bạn thử xem sao nhé.

 

(defun C:ae(/ N SS1 NUM EN CO)
  (if (not "acadapp.exp") (xload "acadapp.exp"))
  (setq N 0 co (getvar 'cecolor) SS1 (ssadd))
  (command "layer" "s" DiTi "")
  (setq PT1 (getpoint "\n Chon diem trong vung can tinh dien tich:") inra pt1)
  (command "BPOLY" PT1 "")
  (setq SS1 (ssadd (entlast) SS1) NUM (sslength SS1))
  (command ".area" "a" "e")
  (while (/= NUM N) (setq EN (ssname SS1 N)) (command EN)(setq N (1+ N)))
  (command "" "") (command "redraw")
  (setq SS nil) (prin1)
  (setq val (* 1 (getvar "area")))
  (princ "Gia tri la : ") (princ val)
  (prin1) (setvar 'cecolor "1")
  ;(command "TEXT" (getpoint)  "" "" (rtos val 2 2))
  (command "TEXT" pt1 0.2 (rtos val 2 2))
  (setvar 'cecolor co) (princ)
)

Cảm ơn bạn ! Nhưng cái này xử lý sao đây, mình mù về công nghệ. Hay nói khác đi là làm sao chuyển về *.lsp

[lephuocly 7]

3 phút trước, lephuocly đã nói:

Có cái gì đó không ổn bạn ơi ! Kiểm tra lại giúp mình .

Nó xuất ra text chứ không phải diện tích

[duy782006 1.559]

Ko hiểu sao nó gửi nhầm file chưa sửa xong. Gửi lại anh đây.

AREA_ae1.LSP

[lephuocly 7]

7 phút trước, duy782006 đã nói:

Ko hiểu sao nó gửi nhầm file chưa sửa xong. Gửi lại anh đây.

AREA_ae1.LSP

Vẫn giống cái trước ban ơi .

[duy782006 1.559]

Bị sao anh. máy em chạy ầm ầm í mà. copy dòng command lên khám xem.

[lephuocly 7]

31 phút trước, duy782006 đã nói:

Bị sao anh. máy em chạy ầm ầm í mà. copy dòng command lên khám xem.

[lephuocly 7]

Vừa xong, lephuocly đã nói:

[lephuocly 7]

Vừa xong, lephuocly đã nói:

Kết quả là đây

[duy782006 1.559]

Chịu. Máy nhà và cơ quan cad2007 file cad và lisp này chạy ầm ầm. Em xin dừng ở đây.