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 163]

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 92]

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)
)