[Nhờ chỉnh sửa]: Lisp ghi kích thước

[vuminhchau 1]

cảm ơn 3 anh nhiều nhé vì cả 3 đều giải được bài toán mà từ lâu em đang cần. trân thành cảm ơn các anh!

[PrettyBoy_231988 1]

Hi ! các bác

Em thấy kt2.lisp rất hay. các bác có thể viết thêm là nó ghi kích thước của những đường cong và đường tròn nữa được không

Thank !

[ptd1987 5]

 

Em có cái lisp ghi kích thước sưu tầm được của 1 bác trên diễn đàn. Xin các bác giúp em chỉnh sửa lisp này để có thể chọn đường thằng cần ghi kích thước theo một layer nào đó. Thanks!

 

 

;----kich thuoc duong thang --------
(defun c:kt2(/ vl ov ss d1 d2 d3 d4 d5 ent kc)
  (vl-load-com)
  (command "_.undo" "_begin")
  (setq vl '("osmode" "orthomode" "cmdecho") ; Sys Var list
	ov (mapcar 'getvar vl))   		; Get Old values
  (mapcar 'setvar vl '(0 0 0))
  (princ "\nChon duong thang can ghi kich thuoc : ")
  (if (and
(setq ss (ssget (list (cons 0 "LINE")) ))
(setq kc (getdist "\nNhap khoang cach : "))
(setq d4 (getpoint "\nHuong dat kich thuoc ? ") ) )
(foreach ent (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
   (setq d1 (vlax-curve-getStartPoint ent)
  d2 (vlax-curve-getEndPoint ent)
  d5 (vlax-curve-getClosestPointTo ent d4 T)
  d3 (polar d5 (angle d5 d4) kc))
   (command "dimaligned" d1 d2 d3)
   )
)
  (mapcar 'setvar vl ov) ; reset Sys Vars
  (command "_.undo" "_end")
  (princ)
  )
 

Similar topics from web:

Chia sẻ Bộ Lisp rất hay: ”Kho báu của Minh” [Lưu Trữ]

Sử dụng lisp? [Lưu Trữ]

+: Nhờ viết lisp

Visual Lisp? [Lưu Trữ]

+: Đọc và ghi text giá trị Z của point và circle.

Tài liệu hướng dẫn sử dụng AutoCAD CÁC PHIÊN BẢN

Mẹo vặt trong CAD

Phần mềm PKT 1.0 trong khảo sát thiết kế: Giảm thời gian, tránh sai ...

Auto CAD qua các hình vẽ

Thảo luận [Nên đọc] Xây dựng cấu hình và các giải pháp cho các ...

Cần giúp về chỉnh sửa kích thước trong AutoCAD [Lưu Trữ ...

Việt Lisp

Nghệ thuật lập trình Lisp

[Yêu cầu] Lisp spline các điểm có tọa độ nhập từ .txt

hihi chào các bác, e thấy lisp trên khá hay nhưng chỉ dùng để đo đoạn thẳng nên bị hạn chế rất nhiều, em muốn nhờ các bác giúp chỉnh sửa lisp này thành như sau: dim khoảng cách giữa 2 điểm A, B bất kì

1) Chia ra 2 lệnh: KT1 = dimlinear, KT2= dimAlign

2) Em muốn pick điểm A, rồi điểm B

3) Mặc định đường dim cách điểm A là 700 (khi dimlinear 1 đường chéo) ,chỉ cần Chọn hướng đặt, chân dim được cắt bằng( hình minh họa)

thanks các bác trước ^.^