;; free lisp from cadviet.com;;; th

;; free lisp from cadviet.com
;;; this lisp was downloaded from http://www.cadviet.com/forum/topic/55750-yeu-cau-lisp-rai-taluy-kieu-thuy-loi/

(defun c:test(/ eLine curve dist pt i j p1)

(vl-load-com)

(defun eLine (p1 P isFull)(entmake (list (cons 0 "LINE")(cons 10 p1)(cons 11 (if isFull P (polar p1 (angle p1 P) (/ (distance p1 P) 2)))))))

(if

(and (setq curve (car(entsel "
Path curve ;")))

(setq dist (getdist "
D :"))

(setq pt (getpoint "
P:"))

(setq i -2 j -1)

)

(progn

(while (setq p1 (vlax-curve-getPointAtDist curve (* (setq i (+ i 2)) dist))) (eLine p1 pt T))

(while (setq p1 (vlax-curve-getPointAtDist curve (* (setq j (+ j 2)) dist))) (eLine p1 pt nil))

)

))

0/5000

Từ: -

Sang: -

Kết quả (Việt) 1: [Sao chép]

Sao chép!

;; lisp miễn phí từ cadviet.com;;; lisp này đã được tải về từ http://www.cadviet.com/forum/topic/55750-yeu-cau-lisp-rai-taluy-kieu-thuy-loi/(defun c:test(/ eLine curve dist pt i j p1)(vl-tải-com)(defun eLine (p1 P isFull) (entmake (list (nhược điểm 0 "LINE") (cons 10 p1) (chống 11 (nếu isFull P (cực p1 (góc p1 P) (/ (khoảng cách p1 P) 2)))(nếu(và (setq đường cong (xe (entsel "
Path cong ;")))(q. setq (getdist "
D :"))(setq pt (getpoint "
P :"))(setq i -2 j -1))(progn(trong khi (setq p1 (vlax-đường cong-getPointAtDist đường cong (* (setq i (+ i 2)) q.))) (eLine p1 pt T))(trong khi (setq p1 (vlax-đường cong-getPointAtDist đường cong (* q. (setq j (+ j 2))))) (eLine p1 pt nil)))))

đang được dịch, vui lòng đợi..

Kết quả (Việt) 2:[Sao chép]

Sao chép!

;; lisp miễn phí từ cadviet.com
;;; lisp này đã được tải về từ http://www.cadviet.com/forum/topic/55750-yeu-cau-lisp-rai-taluy-kieu-thuy-loi/

(defun c: test (/ Eline đường cong quận pt ij p1 )

(vl-load-com)

(defun Eline (p1 P isFull) (entmake (list (cons 0 "LINE") (cons 10 p1) (cons 11 (nếu isFull P (p1 cực (góc p1 P) (/ ( khoảng cách P p1) 2)))))))

(nếu

(và (đường cong setq (xe (entsel " cong nPath;")))

(setq dist (getdist " n D:"))

(setq pt (getpoint " n P:"))

(setq i -2 j -1)

)

(progn

(while (setq p1 (đường cong vlax-cong-getPointAtDist (* (setq i (i + 2)) quận))) (Eline p1 pt T))

(while (setq p1 (đường cong vlax-cong-getPointAtDist (* (setq j (j + 2)) quận))) (Eline p1 pt nil))

)

))

đang được dịch, vui lòng đợi..

Kết quả (Việt) 3:[Sao chép]

Sao chép!

đang được dịch, vui lòng đợi..

Các ngôn ngữ khác

Hỗ trợ công cụ dịch thuật: Albania, Amharic, Anh, Armenia, Azerbaijan, Ba Lan, Ba Tư, Bantu, Basque, Belarus, Bengal, Bosnia, Bulgaria, Bồ Đào Nha, Catalan, Cebuano, Chichewa, Corsi, Creole (Haiti), Croatia, Do Thái, Estonia, Filipino, Frisia, Gael Scotland, Galicia, George, Gujarat, Hausa, Hawaii, Hindi, Hmong, Hungary, Hy Lạp, Hà Lan, Hà Lan (Nam Phi), Hàn, Iceland, Igbo, Ireland, Java, Kannada, Kazakh, Khmer, Kinyarwanda, Klingon, Kurd, Kyrgyz, Latinh, Latvia, Litva, Luxembourg, Lào, Macedonia, Malagasy, Malayalam, Malta, Maori, Marathi, Myanmar, Mã Lai, Mông Cổ, Na Uy, Nepal, Nga, Nhật, Odia (Oriya), Pashto, Pháp, Phát hiện ngôn ngữ, Phần Lan, Punjab, Quốc tế ngữ, Rumani, Samoa, Serbia, Sesotho, Shona, Sindhi, Sinhala, Slovak, Slovenia, Somali, Sunda, Swahili, Séc, Tajik, Tamil, Tatar, Telugu, Thái, Thổ Nhĩ Kỳ, Thụy Điển, Tiếng Indonesia, Tiếng Ý, Trung, Trung (Phồn thể), Turkmen, Tây Ban Nha, Ukraina, Urdu, Uyghur, Uzbek, Việt, Xứ Wales, Yiddish, Yoruba, Zulu, Đan Mạch, Đức, Ả Rập, dịch ngôn ngữ.