Đến nội dung


Hình ảnh
- - - - -

lisp tính tổng chiều dài các line hay pline


  • Please log in to reply
27 replies to this topic

#21 yakumoster

yakumoster

    biết pan

  • Members
  • Pip
  • 5 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 08 May 2015 - 02:48 PM

Mình cũng bị trường hợp tương tự bạn tienquyet123, có cao thủ nào giải thích dùm được hem ^_^


  • 0

#22 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 08 May 2015 - 07:24 PM

 

Mình cũng bị trường hợp tương tự bạn tienquyet123, có cao thủ nào giải thích dùm được hem ^_^

 

Hề hề hề,

CAD2015 qua mới nên việc cập nhật nó hơi bị hiếm. Đành là chờ bác nào đã cài CAD2015 trả lời vậy....

Nghèo nó đi với hèn là rứa.......


  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#23 hoan2182

hoan2182

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2646 Bài viết
Điểm đánh giá: 832 (rất tốt)

Đã gửi 08 May 2015 - 10:50 PM

 

Rảnh nên làm bậy, bác Bình đừng quở nhé ! :D

;; free lisp from cadviet.com
;;; this lisp was downloaded from http://www.cadviet.com/forum/topic/3778-lisp-tinh-tong-chieu-dai-cac-line-hay-pline/
;;;;;;;;;;;;;;;;;;;;;;;;;;

;;; Sua theo yeu cau cua Khang (Cadviet) de thong ke thep co cong them doan noi = 30\40*d khi Lthanh >1170mm, luu y ham add_mline ko sua vi thep thuong ko ve bang mline

(defun add_mline ()
(foreach e_record_sub e_record
(cond ((= 10 (car e_record_sub))
(setq pt1 (cdr e_record_sub)
mline_len 0.0
)
)
((= 11 (car e_record_sub))
(setq pt2 (cdr e_record_sub)
mline_len (+ mline_len (distance pt2 pt1))
pt1 pt2
)
)
)
)
(setq tot_len (+ tot_len mline_len))
(ssdel e_name ss)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;Doi ten lenh thanh TKT = thong ke thep de khoi lan lon !


(defun C:TKT (/ tot_len ss e_name e_record e_type dk hs len_i)
(princ "\nCADViet.com © 2007")
(setq cmd (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq tot_len 0.0)
(setq ss (ssget))
(initget 1)
(setq dk (getreal "\nNhap duong kinh thanh thep (mm): "))
(initget 1 "30d 40d")
(setq hs (atof (getkword "\nNhap chieu dai doan noi <30d/40d>: ")))
(if (null ss)
(exit)
)
(while (> (sslength ss) 0)
(setq e_name (ssname ss 0))
(setq e_record (entget e_name))
(setq e_type (cdr (assoc '0 e_record)))
(cond ((wcmatch e_type "LINE,ARC,CIRCLE,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE")
(command "lengthen" e_name "")
(setq len_i (getvar "PERIMETER"))
(setq len_i (+ (* hs dk (fix (/ len_i 1170))) len_i))
(setq tot_len (+ tot_len len_i))
(ssdel e_name ss)
)
((wcmatch e_type "MLINE") (add_mline))
(e_type (ssdel e_name ss))
)
)
(prompt (strcat "\nTong chieu dai thep (da tinh phan moi noi): " (rtos tot_len 2 2)))
(princ)
)
(setvar "cmdecho" cmd)
(princ)

 

Em thử lisp của anh Hiệp trên AutoCAD2013 , không vấn đề gì:

Command:
TKT
CADViet.com © 20073 found
Nhap duong kinh thanh thep (mm): 20
Nhap chieu dai doan noi <30d/40d>: 30d

..........................................................................

 

Bác Phamthanhbinh nói rất đúng: "...Nghèo nó đi với hèn là rứa.......".

Câu nói của bác, khiến em liên tưởng đến mấy câu thơ của nhà thơ Nguyễn Bùi Vợi:

 "... Xin đừng tô vẽ, đôn những vùng quê lên mười tấn

Hạt lúa lép ngoài đồng mà trên trang giấy thơm tho

Ai ngợi gió ca mây hoài mà bữa cơm vẫn độn

Tháng giáp hạt dài, tóc mẹ bạc vì lo

Xin đừng lấy cái nghèo làm điều cao thượng

Trên thế gian này không ai nói nghèo sang..."

:) :) :)


  • 0

Gió đưa cây cải về trời

Rau răm ở lại chịu lời đắng cay...


#24 phan duy son

phan duy son

    biết pan

  • Members
  • Pip
  • 6 Bài viết
Điểm đánh giá: -2 (bình thường)

Đã gửi 20 July 2015 - 04:10 PM

bạn nào có cái lip đó tổng độ dài không cho mình xin . giúp mình với mình đang cần gấp. và nhớ  chỉ mình cài đặt cái líp đó với nhé mình không biết cách mà . mình cảm ơn!


  • -1

#25 phan duy son

phan duy son

    biết pan

  • Members
  • Pip
  • 6 Bài viết
Điểm đánh giá: -2 (bình thường)

Đã gửi 20 July 2015 - 04:13 PM

cái lisp đó tổng độ dài trong cad đó. bạn nào có giúp mình với. mình đang cần gấp.


  • -1

#26 phan duy son

phan duy son

    biết pan

  • Members
  • Pip
  • 6 Bài viết
Điểm đánh giá: -2 (bình thường)

Đã gửi 21 July 2015 - 04:28 PM

 ban nao co líp do tong do dai khong cho minh xin voi.


  • 0

#27 phan duy son

phan duy son

    biết pan

  • Members
  • Pip
  • 6 Bài viết
Điểm đánh giá: -2 (bình thường)

Đã gửi 22 July 2015 - 10:30 AM

p do tong do dai . ban nao co gui cho minh voi tim cai lí


  • 0

#28 phan duy son

phan duy son

    biết pan

  • Members
  • Pip
  • 6 Bài viết
Điểm đánh giá: -2 (bình thường)

Đã gửi 22 July 2015 - 10:34 AM

Mình đang sử dụng lisp này ở cad 2012 trở xuống OK

Nhưng khong hiểu sao khi dùng trên Cad 2015 bản quyền thì lại bị lỗi,rõ ràng đã thông báo load thành công?

Bác nào có thể giải thích giúp em không,liệu có phải sửa gì không ah.

Nó báo:error funtion cancelled

Các bác giup em với.

bạn có lip đó tổng độ dài ko gửi cho mình với . mình đang cần gấp . mình dùng cad 2007.


  • 0