Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
dohoangviet1606

Lisp đánh bóng chi tiết

Các bài được khuyến nghị

maubong.PNG.2ac23577406c805e305e7087753b09b5.PNG - Mọi người cho em xin Lisp đánh bóng (như hình) hoặc tương tự

- Hoặc theo ý tưởng: nhập lệnh, chọn số bắt đầu (ko thì số trước +1), chọn điểm mũi tên, chọn điểm bóng. Kích thước chữ 7, Bóng D32

- Xin mọi người góp ý thêm

Em cám ơn ạ

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

(DEFUN C:dbb ()
(setq k 1) 
(GRAPHSCR)
(setvar "orthomode" 0)
(setVAR "osmode" 549)
(setq s1 (getvar "dimscale"))
    (setq sz (* 32.0 S1))
    (setq h1 (* 7 S1))
    (setq L1 (* 7 S1))
    (setq NO1 (getint " \nSo bat dau<1>: "))(terpri)
    (if (= NO1 nil) (setq no1 1))
    (while k
       (setq no2 (ItoA no1))  ;  (setq no2 (RtoS no1 2 2))    
       (Setq B1 (getpoint "\nDiem dau : "))
       (Setq B2 (getpoint b1 "\nDiem cuoi: "))
       (setq sz1 (/ sz 2))
       (setq D (distance B1 B2))
       (setq A (angle B1 B2))
       (setq D2 (- D (/ sz 2)))
       (setq D1 (polar B1 A D2))    
       (command "CIRCLE" B2 SZ1)
       (command "QLEADER" B1 D1 "" "") (COMMAND)                 
       (COMMAND "TEXT" "M" b2 h1 "" no2)
       (setq no1 (+ 1 no1))
    )
)

 

;;Em có mò ra như trên, cũng khá ok rồi, nhưng có nhờ mọi người nhận xét và chỉnh chút xíu là "số trc 10 thêm 0 vào trước số đó" (VD: 1,2,3.. > 01,02,03...)

Em cảm ơn!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
1 giờ trước, dohoangviet1606 đã nói:

(DEFUN C:dbb ()
(setq k 1) 
(GRAPHSCR)
(setvar "orthomode" 0)
(setVAR "osmode" 549)
(setq s1 (getvar "dimscale"))
    (setq sz (* 32.0 S1))
    (setq h1 (* 7 S1))
    (setq L1 (* 7 S1))
    (setq NO1 (getint " \nSo bat dau<1>: "))(terpri)
    (if (= NO1 nil) (setq no1 1))
    (while k
       (setq no2 (ItoA no1))  ;  (setq no2 (RtoS no1 2 2))    
       (Setq B1 (getpoint "\nDiem dau : "))
       (Setq B2 (getpoint b1 "\nDiem cuoi: "))
       (setq sz1 (/ sz 2))
       (setq D (distance B1 B2))
       (setq A (angle B1 B2))
       (setq D2 (- D (/ sz 2)))
       (setq D1 (polar B1 A D2))    
       (command "CIRCLE" B2 SZ1)
       (command "QLEADER" B1 D1 "" "") (COMMAND)                 
       (COMMAND "TEXT" "M" b2 h1 "" no2)
       (setq no1 (+ 1 no1))
    )
)

 

;;Em có mò ra như trên, cũng khá ok rồi, nhưng có nhờ mọi người nhận xét và chỉnh chút xíu là "số trc 10 thêm 0 vào trước số đó" (VD: 1,2,3.. > 01,02,03...)

Em cảm ơn!

Chuyện đó dễ mà

if no1 < 10 then no2 = "0" + (itoa no1)

else no2 =  (itoa no1)

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay
Đăng nhập để thực hiện theo  

×