nguyenvinh5779
-
Số lượng nội dung
18 -
Đã tham gia
-
Lần ghé thăm cuối
-
Ngày trúng
1
Bài đăng được đăng bởi nguyenvinh5779
-
-
-
vâng ! xin cám on bạn
-
-
xin cám on ban nhieu !
-
Minh download trên mạng lisp tính diện tích nhưng hê đon vị là mm
Nhờ các bạn chinh giúp lisp về hệ met gì mình hay làm trên tổng mat bang don vị là met
Vi du như 9m x9m = 81m2 lisp
Xin cám on nhiều
-
vang xin cam on ban
-
Mình có download lisp trên mạng
Lisp chuyenn từ model sang layout , và từ layout này sang layout khác
Do nhu cau cong việc làm trên layout nhiều
Nen mình xin nho các bạn chinh giúp chuyển từ layout nay sang layout khác mà khong chuyen sang model !
Xin cam on
-
-
Xin cám on bạn @huunhantvxdts:
Bạn cho chỉ thêm cho mình : Mình muốn lấy 2 số thập phân thì phải chỉnh như thế nào !
Xin cám on ban nhieu .
-
1
-
-
Xin cam on bạn !
-
1
-
-
ban oi ! that sự mình khong biết gì về lisp !
Mình chỉ copy những lisp đã có rồi thêm vào thôi !
nho các anh em biet mà chỉnh giúp !
mình làm hoa vien mà thư tài anh em làm gi
xin cam on ve tat ca anh em da giup !
xin cam on
-
Xin cám ơn bạn
nhưng sao không dược bạn oi !
nho bạn chỉnh giúp !
có thể chỉnh chiều cao chữ bằng cách chọn 02 điểm trên màn hình khong ?
xin cám on ban !
(defun C:fd( / ss L e #h)
(vl-load-com)
(setq ent (car (entsel "\nChon text lay chieu cao text")))
(setq #h (cdr (assoc 40 (entget ent))))
(defun Length1(e) (/ (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e)) 1000))
(or ans (setq ans 1))
(setq
#h 200
L (strcat "L : "
(vl-princ-to-string (* (getvar "dimlfac") (apply '+
(mapcar 'Length1 (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget (list (cons 0 "LINE,ARC,CIRCLE,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE")))))))))) "m"))
(setq
ans (cond ((getint (strcat "\nPhuong an nhap ket qua < " (itoa ans) " > :")))(ans))
txtObj (cond ((= ans 1) (vlax-ename->vla-object (car (entsel "\nChon text ghi ket qua :"))))
(T (vla-addtext (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))) L (vlax-3d-point (getpoint "\n Chon diem nhap ket qua" )) #h ))))
(vla-put-TextString txtObj L)
(vla-put-Height txtObj #h)
(princ))-
1
-
-
nhờ bạn giúp dùm mình lisp này !
mình muốn chiều cao chữ bang cach chọn trên màn hình !
xin cám on ban !
(defun C:fd( / ss L e #h)
(setvar 'textsize
(cond ((getdist (strcat "\nSpecify Area text height by two points on screen : ")))
((getvar 'textsize))
)
)
(vl-load-com)
(defun Length1(e) (/ (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e)) 1000))
(or ans (setq ans 1))
(setq
L (strcat "L : "
(vl-princ-to-string (* (getvar "dimlfac") (apply '+
(mapcar 'Length1 (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget (list (cons 0 "LINE,ARC,CIRCLE,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE")))))))))) "m"))
(setq
ans (cond ((getint (strcat "\nPhuong an nhap ket qua < " (itoa ans) " > :")))(ans))
txtObj (cond ((= ans 1) (vlax-ename->vla-object (car (entsel "\nChon text ghi ket qua :"))))
(T (vla-addtext (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))) L (vlax-3d-point (getpoint "\n Chon diem nhap ket qua" )) #h ))))
(vla-put-TextString txtObj L)
(vla-put-Height txtObj #h)
(princ))-
1
-
-
Xin cám ơn bạn !
Cho mình hỏi thêm có cách nào điều chỉnh chiều cao chữ không ?
Ý mình là chọn chiều cao chữ theo dimstye ?
rat cám on bạn đạ chỉ giúp !
-
1
-
-
Xin cám on bạn !
nhưng mà bị báo lỗi bạn oi !
;; free lisp from cadviet.com
;;; this lisp was downloaded from https://www.cadviet.com/forum/topic/60478-nh%E1%BB%9D-ch%E1%BB%89nh-s%E1%BB%ADa%C4%91o-chi%E1%BB%81u-d%C3%A0i-v%C3%A0-ghi-ra-text/
(defun C:fd( / ss L e #h)
(vl-load-com)
(defun Length1(e) (/ (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e)) 1000))
(or ans (setq ans 1))
(setq
#h 200
L (strcat "L : "
(vl-princ-to-string (* (getvar "dimlfac") (apply '+
(mapcar 'Length1 (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget (list (cons "LINE,ARC,CIRCLE,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE")))))))
))) "m"
)
ans (cond ((getint (strcat "\nPhuong an nhap ket qua < " (itoa ans) " > :")))(ans))
txtObj (cond ((= ans 1) (vlax-ename->vla-object (car (entsel "\nChon text ghi ket qua :"))))
(T (vla-addtext (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))) L (vlax-3d-point (getpoint "\n Chon diem nhap ket qua" )) #h ))
)
)
(vla-put-TextString txtObj L)
(vla-put-Height txtObj #h)
(princ)
)-
1
-
-
Xin chào cả nhà !
Trên diễn đàn minh thay có lisp này . nhưng do nhu cầu công việc mình làm trên hệ meter
Xin chỉ giúp chổ nào chia 1000 de ra meter !
xin cám on !
;; free lisp from cadviet.com
;;; this lisp was downloaded from https://www.cadviet.com/forum/topic/60478-nhờ-chỉnh-sửađo-chiều-dài-và-ghi-ra-text/
(defun C:TLu( / ss L e #h)
(vl-load-com)
(defun Length1(e) (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e)))
(or ans (setq ans 1))
(setq
#h 200
L (strcat "L : "
(vl-princ-to-string (* (getvar "dimlfac") (apply '+
(mapcar 'Length1 (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget (list (cons "LINE,ARC,CIRCLE,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE")))))))
))) "m"
)
ans (cond ((getint (strcat "\nPhuong an nhap ket qua < " (itoa ans) " > :")))(ans))
txtObj (cond ((= ans 1) (vlax-ename->vla-object (car (entsel "\nChon text ghi ket qua :"))))
(T (vla-addtext (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))) L (vlax-3d-point (getpoint "\n Chon diem nhap ket qua" )) #h ))
)
)
(vla-put-TextString txtObj L)
(vla-put-Height txtObj #h)
(princ)
)-
1
-
Nhờ các bạn chỉnh lisp này giúp !
trong AutoLisp
Đã đăng · Trả lời báo cáo
chào các bạn ! mình có tìm duoc lisp đo diện tích nhưng hơi bất tiện,
Nhờ các bạn biết về lisp chỉnh giúp ghi ra m2 ( chứ khong ghi ra mm)
Xin cám ơn các bạn đ ạ giúp !
area.LSP