Đến nội dung


Hình ảnh
- - - - -

lisp chia đoạn thẳng không bằng nhau(theo yêu cầu người dùng)


  • Please log in to reply
7 replies to this topic

#1 hiepga123

hiepga123

    biết pan

  • Members
  • Pip
  • 9 Bài viết
Điểm đánh giá: -4 (bình thường)

Đã gửi 03 August 2013 - 03:51 PM

Anh chị trong diễn dàn viết giúp e lisp này với:

e muốn chia 1 đoạn thằng thành các phần k bằng nhau(theo yêu cầu nguời dùng)

vd:1 đường thẳng dài 1000 chia thành các đoạn 100,300,250,350 chẳng hạn

cảm ơn ac nhiều


  • -2

#2 hiepga123

hiepga123

    biết pan

  • Members
  • Pip
  • 9 Bài viết
Điểm đánh giá: -4 (bình thường)

Đã gửi 03 August 2013 - 10:49 PM

a c ơi,giúp e với ^^


  • 0

#3 hochoaivandot

hochoaivandot

    biết dimradius

  • Members
  • PipPipPipPipPip
  • 310 Bài viết
Điểm đánh giá: 106 (tàm tạm)

Đã gửi 04 August 2013 - 09:34 AM

1. Lệnh ME>>Chọn đường Line>>Nhập số chiều dài 1 phân đoạn (100 chẳng hạn)

2. ddptype để chọn Format Point sẽ thấy các khoảng chia


  • 1

Dương Bá Diệp

 

www.cadonline.duyxuyen.vn 

 

Thành viên nhóm CADMAGIC

 


#4 Hoan1111

Hoan1111

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2587 Bài viết
Điểm đánh giá: 692 (tốt)

Đã gửi 04 August 2013 - 10:09 AM

1. Lệnh ME>>Chọn đường Line>>Nhập số chiều dài 1 phân đoạn (100 chẳng hạn)

2. ddptype để chọn Format Point sẽ thấy các khoảng chia

 

Hình như lệnh ME không chia được  một đoạn thẳng thành các đoạn thẳng không đều nhau???

114276_273as8787.png

 

 

Theo em thì có thể chơi thủ công bằng cách nhập số  ghi kích thước trước , vẽ hình sau. Trong thực tế, có nhiều hình  vẽ  ghi kích thước  trước vẽ hình sau nhanh hơn là vẽ xong hình mới ghi kích thước!


  • 0

66 Câu Phật Học Cho Cuộc Sống : http://ngocchinh.com...-cho-cuoc-song/

Gió đưa cây cải về trời / Rau răm ở lại chịu lời đắng cay...

 

 


#5 hiepga123

hiepga123

    biết pan

  • Members
  • Pip
  • 9 Bài viết
Điểm đánh giá: -4 (bình thường)

Đã gửi 04 August 2013 - 11:42 AM

Lisp đây!

 

;; Cat Line thanh tung doan do user nhap vao. Vi du: Line dai 1000 thi nhap vao 100,300,250,350. 
;; Chi break khi tong cac doan bang chieu dai cua line. Thu tu break theo thu tu ve line.
;; Doan Van Ha - CadViet.com - ngay 4/8/2013.
(defun C:HA ( / ent str lst pd pc goc pt i HA:Break1 #String->List)
 (vl-load-com) (command "undo" "be") (setq cmd (getvar 'cmdecho) osm (getvar 'osmode))
 (defun HA:Break1 (ent pt Gap / pt1)
  (setq pt1 (vlax-curve-getPointAtDist ent (+ (vlax-curve-getdistatparam ent (vlax-curve-getparamatpoint ent (vlax-curve-getclosestpointto ent pt))) Gap)))
  (command "._break" ent "_non" pt "_non" pt1))
 (defun #String->List (txt / n)
  (while (setq n (vl-string-search "," txt))
   (setq txt (strcat (substr txt 1 n) " " (substr txt (+ 2 n)))))
  (setq lst (read (strcat "(" txt ")"))))
 (setq ent (car (entsel "\nChon Line can chia: ")))
 (setq str (getstring "\nNhap cac khoang cach (vi du: 100,300,250,350): "))
 (if (equal (apply '+ (setq lst (#String->List str))) (vla-get-length (vlax-ename->vla-object ent)) 1E-8)
  (progn
   (setvar 'cmdecho 0) (setvar 'osmode 0)
   (setq pd (cdr (assoc 10 (entget ent)))
         pc (cdr (assoc 11 (entget ent)))
    goc (angle pd pc)
    pt (polar pd goc (car lst))
i 0)
   (repeat (1- (length lst)) 
    (HA:Break1 ent pt 0.)
(setq ent (entlast)
     pt (polar pt goc (nth (setq i (1+ i)) lst))))))
 (setvar 'cmdecho 0) (setvar 'osmode 0) (command "undo" "e"))
 

chia giả và hiện các dấu hoa thị tại các điểm chia dc k Bác!

cảm ơn Bác nhiều


  • -1

#6 hochoaivandot

hochoaivandot

    biết dimradius

  • Members
  • PipPipPipPipPip
  • 310 Bài viết
Điểm đánh giá: 106 (tàm tạm)

Đã gửi 04 August 2013 - 10:16 PM

Anh chị trong diễn dàn viết giúp e lisp này với:

e muốn chia 1 đoạn thằng thành các phần k bằng nhau(theo yêu cầu nguời dùng)

vd:1 đường thẳng dài 1000 chia thành các đoạn 100,300,250,350 chẳng hạn

cảm ơn ac nhiều

 

 

Hình như lệnh ME không chia được  một đoạn thẳng thành các đoạn thẳng không đều nhau???

114276_273as8787.png

 

 

Theo em thì có thể chơi thủ công bằng cách vẽ ghi kích thước trước bằng cách nhập số , vẽ hình sau. Trong thực tế, có nhiều hình ghi kích thước  trước vẽ hình sau nhanh hơn là vẽ xong hình mới ghi kích thước!

 

Đọc yêu cầu thấy chia thành các phần k bằng nhau. Không ngờ K bằng nhau la Không bằng nhau. Tưởng là các đoạn có chiều dài bằng K (Với K là giá trị người nhập).

Xin lỗi vì làm mọi người phải tốn thời gian đọc và kiểm tra Rồi phản hồi nữa


  • 1

Dương Bá Diệp

 

www.cadonline.duyxuyen.vn 

 

Thành viên nhóm CADMAGIC

 


#7 Hoan1111

Hoan1111

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2587 Bài viết
Điểm đánh giá: 692 (tốt)

Đã gửi 04 August 2013 - 11:48 PM

Đọc yêu cầu thấy chia thành các phần k bằng nhau. Không ngờ K bằng nhau la Không bằng nhau. Tưởng là các đoạn có chiều dài bằng K (Với K là giá trị người nhập).

Xin lỗi vì làm mọi người phải tốn thời gian đọc và kiểm tra Rồi phản hồi nữa

 

Xin lỗi anh, vì em cũng có sự nhầm lẫn như anh! :) :) :)  Đọc lướt ...ván qua bài viết của anh ...Hiệp gà, cái đọng lại trong tâm trí em là ví dụ anh Hiệp gà đã đưa ra : "chia đoạn thằng ...vd:1 đường thẳng dài 1000 chia thành các đoạn 100,300,250,350 chẳng hạn"

Đọc bài viết của anh, em mới giật mình vì không hiểu vì sao có lúc mình lại ... ngố tàu đến vậy???

Không ngờ anh Hiepga123 viết câu  câu trước đá câu sau ngô nghê đến thế, không tin được dù đó là sự thật!

 Và cũng không ngờ diễn viên hài Hiệp gà đánh đu lên tượng đài Xô Viết Nghệ Tĩnh nhưng lại  phát ngôn như thật là :.... “10 cô gái Đồng Lộc… đánh em”:

 

114276_hiepga.jpg

 

Nguồn :

Bức xúc ảnh Hiệp “gà” quần đùi đánh đu di tích:

http://dantri.com.vn/giai-tri/buc-xuc-anh-hiep-ga-quan-dui-danh-du-di-tich-714322.htm


  • 2

66 Câu Phật Học Cho Cuộc Sống : http://ngocchinh.com...-cho-cuoc-song/

Gió đưa cây cải về trời / Rau răm ở lại chịu lời đắng cay...

 

 


#8 enddie7542

enddie7542

    Chưa sử dụng CAD

  • Members
  • Pip
  • 4 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 27 August 2015 - 11:05 AM

chia giả và hiện các dấu hoa thị tại các điểm chia dc k Bác!

cảm ơn Bác nhiều

 

chia giả và hiện các dấu hoa thị tại các điểm chia dc k Bác!

cảm ơn Bác nhiều

chia khoảng cách thập phân ko dc a ơi, a co the them tinh nang rải block vao vi tri chia dc ko a, thanks


  • 0