Lisp tính diện tích và chiều dài

[ConGioLanhKK 0]

Các bạn nào có lisp tính đồng thời Diện tích và chiều dài trong autocad không ạ? cho mình xin với !

 

[tannguyen291 173]

Ctrl + 1, MO, Properties, LI , LIST , Quichproperties... nhiều không kể siết. không cần cảm ớn cứ dùng dần hết các lệnh cad là sẽ rõ.

[ConGioLanhKK 0]

Cái đó e biết rồi.. Nhưng e đang cần trích xuất ra text cad.... đồng thời có cả Diện tích và chiều dài ạ..

 

[vietduc147258 108]

Vào lúc 2/12/2024 tại 07:05, ConGioLanhKK đã nói:

Các bạn nào có lisp tính đồng thời Diện tích và chiều dài trong autocad không ạ? cho mình xin với !

 

Có cái này sưu tầm được sửa lại cho bạn.

(defun c:tdt2 ( / a i s le texth) 

    (if (setq s
            (ssget
               '(   (0 . "CIRCLE,ELLIPSE,*POLYLINE,SPLINE")
                    (-4 . "<NOT")
                        (-4 . "<AND")
                            (0 . "POLYLINE") (-4 . "&") (70 . 80)
                        (-4 . "AND>")
                    (-4 . "NOT>")
                )
            )
        )
        (progn
            (setq a 0.0 le 0.0)
            (repeat (setq i (sslength s))
				(setq ssn (ssname s (setq i (1- i))))
                (setq a (+ a (vlax-curve-getarea ssn)))
				(setq 
                      le (+ le (vlax-curve-getdistatparam ssn (vlax-curve-getendparam ssn)))
                )

            )
		
			(setq texth (getreal "\nNhap vao chieu cao Text"))
			(command
				  "_.MTEXT"
				  pause				

				  "_Height" texth
				  "_none" "@"			
				  	(strcat "Di\\U+1EC7n t\\U+00EDch: " 
							(rtos (* a 0.000001) 2 2) " m2"
							"\\PChi\U+1EC1u d\U+00E0i: "
							(rtos le 2 2)		" m"

					)
				  ""						  
			)
        )
    )
	(vl-load-com)
    (princ)
)

 

[hochoaivandot 113]

Xem thử có đúng chức năng bạn cần không nhé: https://dbd.028.vn/2025/07/20/tinh-dien-tich-tung-doi-tuong-rieng-le/

[ketxu 3018]

Vào lúc 20/7/2025 tại 13:28, hochoaivandot đã nói:

Xem thử có đúng chức năng bạn cần không nhé: https://dbd.028.vn/2025/07/20/tinh-dien-tich-tung-doi-tuong-rieng-le/

Ketxu chia sẻ lại cả bộ lisp đó trên cộng đồng nhé

[hochoaivandot 113]

ketxu ơi, tại https://dbd.028.vn ,dbd (hochoaivandot) chia sẻ bộ lisp kèm theo một thông điệp. ketxu chia sẻ lisp đầy đủ với thông điệp giúp mình nhé. Thanks bác.

 

 

[ketxu 3018]

12 giờ trước, hochoaivandot đã nói:

ketxu ơi, tại https://dbd.028.vn ,dbd (hochoaivandot) chia sẻ bộ lisp kèm theo một thông điệp. ketxu chia sẻ lisp đầy đủ với thông điệp giúp mình nhé. Thanks bác.

 

 

Có phải đoạn alert khi load file k a ? Hay thông điệp trên web. Ket share nguyên lại cái web của b

[hochoaivandot 113]

ket share website thì tốt quá ket ơi. Thank bạn nhiều.

[ketxu 3018]

7 giờ trước, hochoaivandot đã nói:

ket share website thì tốt quá ket ơi. Thank bạn nhiều.

Vâng, e đã share trên Page https://www.facebook.com/share/p/19hPZKARZJ/, và 4 Group e đang Quản trị. Mọi thông tin e vẫn để nguyên