Đến nội dung


Hình ảnh
- - - - -

(Yêu Cầu) Nhờ Viết Lisp Vẽ Độ Dày Của Đường Đc Chọn.


  • Please log in to reply
6 replies to this topic

#1 trandangquang92

trandangquang92

    biết vẽ ellipse

  • Members
  • PipPip
  • 56 Bài viết
Điểm đánh giá: -17 (hơi kém)

Đã gửi 31 May 2016 - 05:26 PM

ý tưởng của em là: pick chọn đoạn thẳng hoặc quét chọn nhiều đường, enter, nhập độ này nét, enter. Vẽ được cả là đường line,pline. Em cảm ơn :)


  • -2

#2 trandangquang92

trandangquang92

    biết vẽ ellipse

  • Members
  • PipPip
  • 56 Bài viết
Điểm đánh giá: -17 (hơi kém)

Đã gửi 01 June 2016 - 09:09 AM

k có ai giúp mình sao :(


  • -1

#3 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 669 Bài viết
Điểm đánh giá: 313 (khá)

Đã gửi 01 June 2016 - 10:56 AM

Ý của bạn là: Nếu Pline thì thay đổi độ dày nét của nó, nếu là line thì chuyển thành pline và độ dày nét?


  • 1

#4 trandangquang92

trandangquang92

    biết vẽ ellipse

  • Members
  • PipPip
  • 56 Bài viết
Điểm đánh giá: -17 (hơi kém)

Đã gửi 01 June 2016 - 11:05 AM

Ý của bạn là: Nếu Pline thì thay đổi độ dày nét của nó, nếu là line thì chuyển thành pline và độ dày nét?

đúng là vậy a.


  • 0

#5 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1360 (rất tốt)

Đã gửi 01 June 2016 - 02:11 PM

Cái này ngày xưa trên cadviet đây

(DEFUN c:CW(/ SSET NET SSL M)

   (Princ "\nHay chon cac doi tuong muon chinh :")
   (Setq sset (Ssget))

  (if (Null sset)
  (princ "\nKhong chon duoc doi tuong nao")
)

   (IF (/= NIL SSET) (PROGN
   (SETQ SSL (SSLENGTH SSET))
   (INITGET 4)
   (SETQ NDT (GETDIST "\nNhap do rong : "))
   (IF (/= NIL NDT)
    (WHILE (> SSL 0)
      (SETQ M (SSNAME SSET (SETQ SSL (- SSL 1)) ))
      (IF (= (CDR (ASSOC '0 (ENTGET M))) "LINE") 
          (COMMAND "PEDIT" M "Y" "W" NDT "") 
      ) 

      (IF (= (CDR (ASSOC '0 (ENTGET M))) "LWPOLYLINE") 
          (COMMAND "PEDIT" M "W" NDT "") 
      ) 

     (IF (= (CDR (ASSOC '0 (ENTGET M))) "ARC") 
          (COMMAND "PEDIT" M "Y" "W" NDT "") 
      ) 

     
    ) 
   )))
   (PRINC)
) 


  • 1

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#6 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 669 Bài viết
Điểm đánh giá: 313 (khá)

Đã gửi 01 June 2016 - 04:40 PM

- Lệnh WPL

- Đối tượng áp dụng: LINE, LWPOLYLINE, ARC, CIRCLE và ELLIPSE.

http://www.cadviet.c.../141736_wpl.rar

P/s: đối tượng Ellipse cần phải cài Express.


  • 1

#7 trandangquang92

trandangquang92

    biết vẽ ellipse

  • Members
  • PipPip
  • 56 Bài viết
Điểm đánh giá: -17 (hơi kém)

Đã gửi 01 June 2016 - 05:08 PM

- Lệnh WPL

- Đối tượng áp dụng: LINE, LWPOLYLINE, ARC, CIRCLE và ELLIPSE.

http://www.cadviet.c.../141736_wpl.rar

P/s: đối tượng Ellipse cần phải cài Express

 lisp chạy rất tốt, em cảm ơn a.


  • 0