[ Yêu cầu ] Lisp vẽ chiều dài đoạn thẳng hợp với một đoạn thẳng chọn trước một góc.

[790312 5]

Chào mọi người, nhờ mọi người viết giùm một lisp như sau:

1. Gõ lệnh

2. Chọn đường thẳng bất kỳ

3. Vẽ bên trái hay phải của đoạn thẳng được chọn

4. Nhập chiều dài đoạn thẳng cần vẽ.

5. Nhập góc hợp bởi đoạn thẳng được chọn và đoạn thẳng cần vẽ.

Kết thúc lệnh.

Chân thành cảm ơn trước.

 

[Danh Cong 422]

Bạn thử code này xem, do gõ trên điện thoại nên tôi ko chắc code đúng.

(defun c:DC ()

(Command "ucs" "object" pause "")

(Command ".line" pause pause "")

(Princ))

[790312 5]

27 phút trước, Danh Cong đã nói:

Bạn thử code này xem, do gõ trên điện thoại nên tôi ko chắc code đúng.

(defun c:DC ()

(Command "ucs" "object" pause "")

(Command ".line" pause pause "")

(Princ))

không được bác ah, bác xem lại phần em viết ở trên rồi kiểm tra lại giúp e với. Thanks.

[Botot 31]

Chủ thớt quên điều kiện điểm khởi đầu của đoạn thẳng, vì sẽ có 2 hướng ngược nhau có cùng giá trị góc. Mà cái líp này dùng vào việc gì, có đáng để viết không?

[790312 5]

9 phút trước, Botot đã nói:

Chủ thớt quên điều kiện điểm khởi đầu của đoạn thẳng, vì sẽ có 2 hướng ngược nhau có cùng giá trị góc. Mà cái líp này dùng vào việc gì, có đáng để viết không?

Đúng vậy, sau bước 3 sẽ là: chọn điểm bắt đầu rồi tới bước 4. Lisp này mình cần vì mình cần nhập rất nhiều điểm xuất phát từ 1 điểm nhưng có chiều dài và góc khác nhau. Mong nhận được sự giúp đỡ của mọi người.

[Danh Cong 422]

45 phút trước, 790312 đã nói:

Đúng vậy, sau bước 3 sẽ là: chọn điểm bắt đầu rồi tới bước 4. Lisp này mình cần vì mình cần nhập rất nhiều điểm xuất phát từ 1 điểm nhưng có chiều dài và góc khác nhau. Mong nhận được sự giúp đỡ của mọi người.

+ Thật ra thì tôi nghĩ thế này:

Thay vì lisp y xì như chủ thớt nghĩ, giải pháp khác là có 1 phím bật chế độ UCS dành cho Object. Vẽ hay thao tác xong thì lại bấm về UCS world. Thế là tiện cả đôi đường, nhà nhà đều vui @@

Còn nếu bạn muốn viết đúng như những gì bạn yêu cầu thì cũng đơn giản thôi. Nhưng để mai tôi viết cho ( Hiện thời đang dùng điện thoại @@)

[790312 5]

18 giờ trước, Danh Cong đã nói:

+ Thật ra thì tôi nghĩ thế này:

Thay vì lisp y xì như chủ thớt nghĩ, giải pháp khác là có 1 phím bật chế độ UCS dành cho Object. Vẽ hay thao tác xong thì lại bấm về UCS world. Thế là tiện cả đôi đường, nhà nhà đều vui @@

Còn nếu bạn muốn viết đúng như những gì bạn yêu cầu thì cũng đơn giản thôi. Nhưng để mai tôi viết cho ( Hiện thời đang dùng điện thoại @@)

Để e nói rõ bài toán của e thế này bác ah:

E có sẵn một đoạn thẳng, và e phải vẽ rất nhiều điểm (lúc nào cũng trên 100). Những điểm này sẽ cách điểm đầu hoặc cuối đoạn thẳng một khoảng cách và góc hợp với đoạn thẳng. Nên vẽ theo cách thông thường thì rất mất thời gian. E cũng chưa nghĩ ra cách nào để có thể vẽ nhanh hơn cái nội dung e nhờ các bác viết lisp như trên. Nên e nhờ các bác viết giùm e cái lisp như sau:

1. Gõ lệnh

2. Chọn đường thẳng bất kỳ

3. Vẽ bên trái hay phải của đoạn thẳng được chọn

4. Chọn điểm bắt đầu đoạn thẳng.

5. Nhập chiều dài đoạn thẳng cần vẽ.

6. Nhập góc hợp bởi đoạn thẳng được chọn và đoạn thẳng cần vẽ.

Kết thúc lệnh.

Rất mong nhận được sự giúp đỡ của bác.

[Doan Van Ha 3.201]

Vẽ "rất nhiều" mà đề bài không có thông số nào xác định "rất nhiều"?

[790312 5]

1 giờ} trướ}c, Doan Van Ha đã nói:

Vẽ "rất nhiều" mà đề bài không có thông số nào xác định "rất nhiều"?

e chưa nghĩ ra được cách nếu nhập số lượng điểm thì sẽ xử lý như thế nào? nên e chỉ cần lisp để nhập chiều dài và góc cho từng đoạn thẳng một bác ah. Bác có ý tưởng gì để xử lý vấn đề này nhanh hơn không? Cảm ơn bác nhiều.

[Danh Cong 422]

8 giờ trước, 790312 đã nói:

e chưa nghĩ ra được cách nếu nhập số lượng điểm thì sẽ xử lý như thế nào? nên e chỉ cần lisp để nhập chiều dài và góc cho từng đoạn thẳng một bác ah. Bác có ý tưởng gì để xử lý vấn đề này nhanh hơn không? Cảm ơn bác nhiều.

+ Thử cái này nhé:

(defun c:DC (/ ANG ANG1 L P1 P2)
  (setq P1 (getpoint "\nPick first Point:")
    P2 (getpoint P1 "\nPick second Point:")
    Ang (angle P1 P2))
  (while (and (setq Ang1 (getreal "\nInput Angle:"))
          (setq L (getreal "\nInput  Lenght:")))
         (command ".line" "non" P1 "non" (polar P1 (- Ang (* pi (/ Ang1 180))) L) ""))
  (princ))

[790312 5]

19 phút trước, Danh Cong đã nói:

+ Thử cái này nhé:

(defun c:DC (/ ANG ANG1 L P1 P2)
  (setq P1 (getpoint "\nPick first Point:")
    P2 (getpoint P1 "\nPick second Point:")
    Ang (angle P1 P2))
  (while (and (setq Ang1 (getreal "\nInput Angle:"))
          (setq L (getreal "\nInput  Lenght:")))
         (command ".line" "non" P1 "non" (polar P1 (- Ang (* pi (/ Ang1 180))) L) ""))
  (princ))

Được rồi bác, bước đầu sử dụng ok, nếu có lỗi gì e sẽ phiền bác. Cảm ơn bác nhiều, chúc bác đầu tuần có nhiều niềm vui.

[ndtnv 481]

Đoán là 790312 ngành đo đạc bản đồ và cần xuất điểm hàng loạt.

Nếu đúng thì tìm lisp xuất điểm hàng loạt từ file text hoặc excel ra cad

[quocmanh04tt 635]

@790312 Lisp này giảm bớt thao tác: https://drive.google.com/open?id=1R47IMpTxIpgxfZdVZGL6VcAPvjfJd0Uy

P/s: Bên phải, trái (nói như bạn) thì có thể nhập góc âm, dương hoặc cùng 1 góc khi chọn điểm bắt đầu vẽ, nếu nhấn phím Shift thì sẽ đổi phía (Yêu cầu: Cad phải cài Express).

[Phamdung01 4]

nhập nhiều điểm thì sao bạn không đưa file text chứa tọa độ điểm đầu, góc, và độ dài lên đây, anh em nghiên cứu xuất 1 phát từ text vào cad luôn cho bạn đỡ phải nhập bằng tay