Đến nội dung


Hình ảnh
- - - - -

[Xin] Lisp cộng Dimension


  • Please log in to reply
26 replies to this topic

#21 NguyenNgocSon

NguyenNgocSon

    biết dimbaseline

  • Members
  • PipPipPipPipPip
  • 368 Bài viết
Điểm đánh giá: 39 (tàm tạm)

Đã gửi 29 November 2012 - 10:05 AM

w1nDream không có gì khó đâu, mình cũng sửa lisp thôi mà, cái yêu cầu của bạn giống lisp tb hôm qua, bạn dựa vào đó sửa nhé
Mạo phép anh em tôi sửa như sau
Như vậy sự khác nhau ở đây:
;(alert (rtos S 2 0)) - Bo cai này
(Luachon S) - Them hàm này vào
Như vậy các lần sau bạn copy hàm Luachon vào lisp vào chỗ nào có kết quả thì hàm là:
(Luachon kq)

(defun c:congdim(/ S)
(setq S 0)
(foreach x (acet-ss-to-list (ssget '((0 . "DIMENSION"))))
(setq S (+ S (cdr(assoc 42 (entget x)))))
)
;(alert (rtos S 2 0))
(Luachon S)
(princ))
;Doan ma lua chon ghi ket qua
(defun Luachon(tbinh)
(setq Kieu (strcase (getstring "\nGhi ra Text co san <Co>/Khong: ")))
(Cond
((/= Kieu "K")
(setq elst (entget (car (entsel "\n Thay cho so: "))))
(setq elst (subst (cons 1 (rtos tbinh 2 2)) (assoc 1 elst) elst))
;; doan ma lisp chuyen mau ket qua tinh
(if (assoc 62 elst)
(setq elst (subst (cons 62 80) (assoc 62 elst) elst))
(setq elst (append elst (list (cons 62 80))))
)
(entmod elst)
(princ)
)
((= Kieu "K")
;--------------------------------------------
(setq point (getpoint "\n Chon diem ghi ket qua: "))
(setq th (getvar "textsize"))
(setq th (getstring (strcat "\nChieu cao chu <"(rtos th)"> :")))
(command "TEXT" point th 0 (rtos tbinh 2 2))
;(alert (strcat "Chieu dai trung binh cac doan vua chon: "(rtos tbinh 2 2)))
;---------------------------------------------
)
)
)

  • 1

#22 w1nDream

w1nDream

    biết lệnh ddedit

  • Members
  • PipPipPipPip
  • 293 Bài viết
Điểm đánh giá: 73 (tàm tạm)

Đã gửi 29 November 2012 - 10:39 AM

TKS anh Sơn nhé.Để em thử.Hj.Nhân tiện anh xem lại hộ em cái Lisp DAI nhé.Nó đang không ghi được kết quả anh à
  • 0
__Tâm tựa lưu thủY__
Vi nhân nan

#23 hieumxd

hieumxd

    Chưa sử dụng CAD

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

Đã gửi 29 June 2016 - 11:22 AM

Bạn nói rõ hơn, có phải cộng các số kết quả trong dimension phải không, Các dimension của bạn có ghi chú không?, nói chung là cho anh em xem file cad của bạn thì mới giúp được, ............!

mình vẽ shop muốn cộng tổng dim ghi vào text để ra chiều dài thanh thép tổng để thợ biết nó dài bao nhiêu.

153411_untitled.png


  • -1

#24 trankhactam

trankhactam

    Chưa sử dụng CAD

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

Đã gửi 21 August 2016 - 08:59 AM

Chào các bác, bác nào có thể chỉnh giúp em từ lisp congdim bên trên sao cho giá trị được lấy là giá trị đã được làm tròn theo thiết lập trong dimstyle và chia cho 1000 (để đổi sang đơn vị m). Như lisp bên trên có hạn chế VD đường dim có chiều dài thực tế 1502 , nhưng khi thiết lập làm tròn trong dim Round off = 5 thì khi dim ra giá trị dim là 1500, khi ta dùng lisp cộng dim thì giá trị nó vẫn lấy là 1502, ở đây e muốn giá trị nó phải lấy là 1,5 ( giá trị cần lấy là 1500 mm và đã chia cho 1000 để quy đổi ra m ). Bác nào viết giùm em, e xin cảm ơn và hậu tạ :3


  • 0

#25 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5447 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 21 August 2016 - 09:06 AM

Trong này có Lisp cộng Dim. Bạn xem phù hợp không?

https://www.facebook...61783264016918/


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#26 trankhactam

trankhactam

    Chưa sử dụng CAD

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

Đã gửi 21 August 2016 - 03:44 PM

Trong này có Lisp cộng Dim. Bạn xem phù hợp không?

https://www.facebook...61783264016918/

kích vào nó báo nội dung không khả dụng bạn ơi.


  • 0

#27 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 21 August 2016 - 06:35 PM

Link trong page này bạn https://www.facebook.com/autocadusers/
  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC