Đến nội dung


Hình ảnh
- - - - -

'Tạo khung bản đồ'


  • Please log in to reply
49 replies to this topic

#21 sirgau

sirgau

    biết pan

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

Đã gửi 08 August 2013 - 08:35 AM

Chào bác    bạn thanhduan2407  mình có dowload lisp KH của bạn về khi test thử mình có load lên bằng lệnh AP và gõ lệnh KH sao không thấy chạy, bạn có thể chỉ giúp mình được không...

 Chân thành cảm ơn.


  • 0

#22 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 995 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 09 August 2013 - 05:23 PM

Chào bác    bạn thanhduan2407  mình có dowload lisp KH của bạn về khi test thử mình có load lên bằng lệnh AP và gõ lệnh KH sao không thấy chạy, bạn có thể chỉ giúp mình được không...

 Chân thành cảm ơn.

Mình viết lại lisp đó rồi. Bạn download về giải nén và làm theo hướng dẫn nhé.

- Lisp tạo mắt lưới: TML

- Lisp vẽ khung: KBD

 

Link: http://www.mediafire...ng binh do_.rar


  • 0



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#23 minhphuong_humg

minhphuong_humg

    biết lệnh offset

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

Đã gửi 09 August 2013 - 09:59 PM

Phần mềm EGS 58Mb nên hơi nặng một chút. Nó tích hợp vào Cad và thực hiện rất nhiều chức năng. Bạn đợi sau 90s thì load về.
Mình đã thử đường link chạy rất tốt. Mình sẽ upload huớng dẫn sử dụng vào 1 ngày gần nhất có thể. Chúc bạn gặp nhiều may mắn

Bạn ơi, cho mình hỏi cái này nó chạy trên Autocad phiên bản nào vậy hay là Autocad phiên bản nào cũng dùng được? Mình đang dùng autocad 2014 thì có dùng được không? Trân trọng cảm ơn.


  • 0

#24 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 995 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 09 August 2013 - 11:08 PM

Phiên bản Autocad 2004 cũng được nhưng phải cài Tools Express. Còn 2007 trở lên thì vô tư. Bạn download về dùng biết ngay được hay ko được. ^^
  • 0



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#25 minhphuong_humg

minhphuong_humg

    biết lệnh offset

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

Đã gửi 09 August 2013 - 11:27 PM

Phiên bản Autocad 2004 cũng được nhưng phải cài Tools Express. Còn 2007 trở lên thì vô tư. Bạn download về dùng biết ngay được hay ko được. ^^

Bạn ơi, Autocad 2014 chứ không phải Autocad 2004 bạn à. Mình hỏi để biết xem nó dùng được cho phiên bản nào. Còn giả sử không tương thích với phiên bản nào các bạn nào cài trước thì chia sẻ cho mọi người cùng biết. Trân trọng cảm ơn!


  • 0

#26 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 995 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 09 August 2013 - 11:42 PM

Mình ko dùng Cad2014 nên bạn hỏi mình ko trả lời đc. Tuy nhiên 2014 cao hơn 2004 nên mình nghĩ là được. Bạn hình như vẫn ko test nhỉ?
  • 0



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#27 minhphuong_humg

minhphuong_humg

    biết lệnh offset

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

Đã gửi 12 August 2013 - 08:28 AM

Mình ko dùng Cad2014 nên bạn hỏi mình ko trả lời đc. Tuy nhiên 2014 cao hơn 2004 nên mình nghĩ là được. Bạn hình như vẫn ko test nhỉ?

Không phải hình như, mà là mình chưa test. Bởi lẽ, như mình trao đổi ở trên nếu có mem nào dùng Cad2014 rồi mà không cài được thì khuyến cáo mình thì mình sẽ không cài nữa. Vì thật ra, cài xong rồi mà nó không làm việc trên phiên bản của mình có phải là không tốt không? Còn nếu, chưa có mem nào thử thì mình sẽ là người thử đầu tiên. Và dĩ nhiên, lần sau khi gặp câu hỏi tương tự thì mình cũng đưa ra khuyến cáo cho mọi người thôi. Trân trọng.


  • 0

#28 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 995 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 12 August 2013 - 08:36 PM

Bạn ko tôn trọng người viết. Quay quẩn chỉ là cái Autocad 2014 của bạn thôi. Chưa test mà nói như thật.
  • 0



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#29 kephahoai

kephahoai

    Chưa sử dụng CAD

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

Đã gửi 20 August 2013 - 12:54 PM

Hôm trước mình có yêu cầu người này viết (Có phí). Nhưng sau thì không mua nữa.

Nếu mọi người thấy được thì liên hệ tác giả để xin thử hoặc phí thấp thì mua. Hì hì!

http://cadonline.duy...lication&lid=90


  • 0

#30 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 995 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 21 August 2013 - 08:41 AM

Hôm trước mình có yêu cầu người này viết (Có phí). Nhưng sau thì không mua nữa.

Nếu mọi người thấy được thì liên hệ tác giả để xin thử hoặc phí thấp thì mua. Hì hì!

http://cadonline.duy...lication&lid=90

Video bạn gửi cũng chẳng khác gì lisp mình up ở trên. Mình cũng rất kỳ công để tạo ra nó nhưng chẳng có phí. Bạn lại PR phần mềm rồi. ^^


  • 0



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#31 kaka1374

kaka1374

    biết zoom

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

Đã gửi 09 September 2013 - 10:15 AM

Em thấy trong topo có phần vẽ bản đồ xiên đấy bác chủ... ban ngâm cứu xem


  • 0

#32 quanghienbk

quanghienbk

    biết zoom

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

Đã gửi 09 September 2013 - 02:14 PM

Các bạn giúp mình vẽ cái này bằng autocad với http://a.imageshack....8/2739/1l5o.jpg


  • 0

#33 vuminhchau

vuminhchau

    biết vẽ polygon

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

Đã gửi 23 April 2014 - 08:18 AM

 

Hiện tại mình có lisp tạo khung bản đồ tự động rất hay. Nhưng mình vẫn chưa hài lòng lắm vì chỉ tạo được khung bản đồ ở khi hình chữ nhật ở dạng đứng, nếu hình chữ nhật mà bị nghiêng thì không đúng theo ý muốn.
Mình post lên đây lisp đó, nếu ai cần thì download về dùng tạm.

;;; Tu dong ve khung ban do .

(defun c:kh ();;; (princ "\n                      CHUONG TRINH VE KHUNG BAN DO .")(command "osnap" "Endpoint,Intersection")(setvar "blipmode" 1)   (setq sp (getpoint "\n Chon goc khung thu 1 (Goc trai ben tren): "))   (setq ep (getpoint sp "\n Chon goc khung thu 2 (Goc phai ben duoi): "));   (princ "\n Chon goc khung thu 1 (Goc trai ben tren): ");   (setq sp (getpoint)) ;  (prompt "\n Chon goc khung thu 2 (Goc phai ben duoi): ") ;  (setq ep (getcorner (getpoint)) )  (command "osnap" "off")   (setq tyle (getint "\n Hay cho ty le ban do <500>: "))   (if (= tyle nil) (setq tyle 500.0))(setvar "blipmode" 0);;--- Dat bien chung cho chuong trinh -----  (setq x1 (nth 0 sp)) (setq y1 (nth 1 sp))  (setq x2 (nth 0 ep)) (setq y2 (nth 1 ep))  (setq dayn (/ (* tyle 0.05) 500.0))  (setq kctn (/ tyle 142.857))  (setq ktmk (/ (* tyle 1.75) 500.0))  (setq caoc (/ (* tyle 0.90) 500.0))  (setq dich (/ (* tyle 0.33) 500.0));;;---- ve khung trong ------   (command "LAYER" "M" "KHUNG" "")   (Command "PLINE"             (list x1 y1)             (list x2 y1)             (list x2 y2)             (list x1 y2)             "C"   );;;;-------Ve khung ngoai ----------   (command "LAYER" "M" "KHUNG" "")   (Command "PLINE"             (list (- x1 kctn) (+ y1 kctn)) "w" dayn dayn             (list (+ x2 kctn) (+ y1 kctn))             (list (+ x2 kctn) (- y2 kctn))             (list (- x1 kctn) (- y2 kctn))             "C"   );;;------- Ve net ngang va doc ------- (setq nhay (/ tyle 10.0)) (setq tmpX1 (/ x1 nhay)) (setq tmpX2 (fix tmpX1)) (setq x (* tmpX2 nhay)) (setq tmpY1 (/ y2 nhay)) (setq tmpY2 (fix tmpY1)) (setq y (* tmpY2 nhay));-------------------------------------(command "style" "STANDARD" "" caoc "" "" "" "" "" "")(while (<= x x2)       (if (>= x x1)          (command "LINE" (list x y1) (list x (+ y1 kctn)) ""                   "LINE" (list x y2) (list x (- y2 kctn)) ""                   "TEXT" "C" (list x (+ y1 (/ kctn 2))) 0. (rtos x 2 0)                   "TEXT" "TC" (list x (- y2 (/ kctn 2))) 0. (rtos x 2 0)          )       ) ;endif  (setq x (+ x nhay)))(while (<= y y1)   (setq tmp1 (rtos y 2 0))   (setq len1 (strlen tmp1))   (if ( <= len1 3)      (progn (setq bef "000") (setq aff tmp1))      (progn (setq bef (substr tmp1 1 (- len1 3)))       (setq aff (substr tmp1 (- len1 2) 3))      )   ) ;;if      (if (>= y y2)           (command "LINE" (list x1 y) (list (- x1 kctn) y) ""                    "LINE" (list x2 y) (list (+ x2 kctn) y) ""                    "TEXT" "BC" (list (- x1 (/ kctn 2)) y) 0. bef                    "TEXT" "TC" (list (- x1 (/ kctn 2)) (- y dich)) 0. aff                    "TEXT" "BC" (list (+ x2 (/ kctn 2)) y) 0. bef                    "TEXT" "TC" (list (+ x2 (/ kctn 2)) (- y dich)) 0. aff           )      ); endif  (setq y (+ y nhay)));--------- Ve chu thap --------------(setq nhay (/ tyle 10.0)) (setq tmpX1 (/ x1 nhay)) (setq tmpX2 (fix tmpX1))(setq x (* tmpX2 nhay))(setq tmpY1 (/ y2 nhay)) (setq tmpY2 (fix tmpY1))(while (< x x2)  (setq y (* tmpY2 nhay))     (while (< y y1)        (if (and (>= x x1) (>= y y2))           (command "LINE" (list (- x ktmk) y) (list (+ x ktmk) y) "")        )        (if (and (>= y y2) (>= x x1))           (command "LINE" (list x (- y ktmk)) (list x (+ y ktmk)) "")        )       (setq y (+ y nhay))     )  (setq x (+ x nhay)))(command "REDRAW")); End of program
Xin nhờ các pro có thể chỉnh sửa giúp lisp này được ko?
Với thuật toán như trên, mình muốn quét 1 lần tất cả các hình như nhật (kể cả các hình chữ nhật bị nghiêng) ta tạo được các mắt lưới dấu thập (các mắt lưới đều song song với trục X và trục Y) đồng thời trên khung ghi text các tọa độ của mắt lưới đó. Mình upload ví dụ lên đây. Kính mong các Pro giúp đỡ
Ví dụ : http://www.4shared.c...khungtoado.html
Cảm ơn mọi người đã quan tâm.
Chương trình này mình đã dùng ở TEDIPORT nhưng đó là phần mềm tích hợp trong Cad phải cài đặt
Nó tên là EGS hay gì đó mà lâu rồi mình không nhớ nổi. Trên khung mình có thể ghi theo tọa độ X Y hay tọa độ địa lý B L đều được hết
Nếu ai có phần mềm đó có thể gửi cho mình được không?
Bạn có thể upload lên diễn đàn để mọi người cùng dùng hoặc gửi vào hòm thư: heaven2407@gmal.com
Chân thành cảm ơn
Similar topics from web:
-: Lisp vẽ pline mũi tên 2 đầu
Sử dụng AutoLisp trong AutoCad
-: Lisp tạo và chỉnh sửa menu.
Trí tuệ nhân tạo – Wikipedia tiếng Việt
-: Lisp rải đối tượng theo đường dẩn bổ sung điểm xuất phát.
Download Phần mềm thống kê cốt thép TIP
-: Hoàn thiện lisp rải đối tượng theo đường dẩn.
Vẽ trắc ngang xử lý đất yếu với Autolisp
Lisp tạo khung viewport bằng cách chọn khung bên Model
Kinh ngiệm dùng CAD và LISP
TVplot
Học Inventor tại Hà Nội
Khung tên để tạo LISP
TH3D
AutoLisp
 

====================

- Nhờ anh và các anh sửa giúp em cái code trên để khi vẽ khung và xuất tọa độ tại bản vẽ giống như bản vẽ lần #22 của anh. (cụ thể ở code trên cần sửa Text Times New Roman tách 3 số đầu giống như bài post #22 và khung tọa độ cũng giống thế)dạ cảm ơn nhiều!.
- xin lỗi vì em không thể post file hoặc hình ảnh lên đây được vì chức năng up mấy ngày hôm nay không thấy hiện lên.
  • 0

#34 vuminhchau

vuminhchau

    biết vẽ polygon

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

Đã gửi 26 April 2014 - 10:06 PM

oh, hôm nay mới thấy lai cai upload lại, nên up nhờ các bác giúp em như hình vẽ dưới đây với!

(defun c:kh ();;; (princ "\n                      CHUONG TRINH VE KHUNG BAN DO .")(command "osnap" "Endpoint,Intersection")(setvar "blipmode" 1)   (setq sp (getpoint "\n Chon goc khung thu 1 (Goc trai ben tren): "))   (setq ep (getpoint sp "\n Chon goc khung thu 2 (Goc phai ben duoi): "));   (princ "\n Chon goc khung thu 1 (Goc trai ben tren): ");   (setq sp (getpoint)) ;  (prompt "\n Chon goc khung thu 2 (Goc phai ben duoi): ") ;  (setq ep (getcorner (getpoint)) )  (command "osnap" "off")   (setq tyle (getint "\n Hay cho ty le ban do <500>: "))   (if (= tyle nil) (setq tyle 500.0))(setvar "blipmode" 0);;--- Dat bien chung cho chuong trinh -----  (setq x1 (nth 0 sp)) (setq y1 (nth 1 sp))  (setq x2 (nth 0 ep)) (setq y2 (nth 1 ep))  (setq dayn (/ (* tyle 0.05) 500.0))  (setq kctn (/ tyle 142.857))  (setq ktmk (/ (* tyle 1.75) 500.0))  (setq caoc (/ (* tyle 0.90) 500.0))  (setq dich (/ (* tyle 0.33) 500.0));;;---- ve khung trong ------   (command "LAYER" "M" "KHUNG" "")   (Command "PLINE"             (list x1 y1)             (list x2 y1)             (list x2 y2)             (list x1 y2)             "C"   );;;;-------Ve khung ngoai ----------   (command "LAYER" "M" "KHUNG" "")   (Command "PLINE"             (list (- x1 kctn) (+ y1 kctn)) "w" dayn dayn             (list (+ x2 kctn) (+ y1 kctn))             (list (+ x2 kctn) (- y2 kctn))             (list (- x1 kctn) (- y2 kctn))             "C"   );;;------- Ve net ngang va doc ------- (setq nhay (/ tyle 10.0)) (setq tmpX1 (/ x1 nhay)) (setq tmpX2 (fix tmpX1)) (setq x (* tmpX2 nhay)) (setq tmpY1 (/ y2 nhay)) (setq tmpY2 (fix tmpY1)) (setq y (* tmpY2 nhay));-------------------------------------(command "style" "STANDARD" "" caoc "" "" "" "" "" "")(while (<= x x2)       (if (>= x x1)          (command "LINE" (list x y1) (list x (+ y1 kctn)) ""                   "LINE" (list x y2) (list x (- y2 kctn)) ""                   "TEXT" "C" (list x (+ y1 (/ kctn 2))) 0. (rtos x 2 0)                   "TEXT" "TC" (list x (- y2 (/ kctn 2))) 0. (rtos x 2 0)          )       ) ;endif  (setq x (+ x nhay)))(while (<= y y1)   (setq tmp1 (rtos y 2 0))   (setq len1 (strlen tmp1))   (if ( <= len1 3)      (progn (setq bef "000") (setq aff tmp1))      (progn (setq bef (substr tmp1 1 (- len1 3)))       (setq aff (substr tmp1 (- len1 2) 3))      )   ) ;;if      (if (>= y y2)           (command "LINE" (list x1 y) (list (- x1 kctn) y) ""                    "LINE" (list x2 y) (list (+ x2 kctn) y) ""                    "TEXT" "BC" (list (- x1 (/ kctn 2)) y) 0. bef                    "TEXT" "TC" (list (- x1 (/ kctn 2)) (- y dich)) 0. aff                    "TEXT" "BC" (list (+ x2 (/ kctn 2)) y) 0. bef                    "TEXT" "TC" (list (+ x2 (/ kctn 2)) (- y dich)) 0. aff           )      ); endif  (setq y (+ y nhay)));--------- Ve chu thap --------------(setq nhay (/ tyle 10.0)) (setq tmpX1 (/ x1 nhay)) (setq tmpX2 (fix tmpX1))(setq x (* tmpX2 nhay))(setq tmpY1 (/ y2 nhay)) (setq tmpY2 (fix tmpY1))(while (< x x2)  (setq y (* tmpY2 nhay))     (while (< y y1)        (if (and (>= x x1) (>= y y2))           (command "LINE" (list (- x ktmk) y) (list (+ x ktmk) y) "")        )        (if (and (>= y y2) (>= x x1))           (command "LINE" (list x (- y ktmk)) (list x (+ y ktmk)) "")        )       (setq y (+ y nhay))     )  (setq x (+ x nhay)))(command "REDRAW")); End of program 

 

và cả muốn vẽ tỷ lệ 500 gõ số 5, tỷ lệ 1000 gõ số 1 và 2000 gõ số 2 và lưu lại giá trị cho những lần sau.

http://www.cadviet.c...547_drawing.rar

104547_untitled_2.jpg104547_untitled2.jpg


  • 0

#35 vuminhchau

vuminhchau

    biết vẽ polygon

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

Đã gửi 28 April 2014 - 10:12 AM

nhờ các anh quan tâm và giúp đỡ!
  • 0

#36 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 28 April 2014 - 10:41 AM

oh, hôm nay mới thấy lai cai upload lại, nên up nhờ các bác giúp em như hình vẽ dưới đây với!

(defun c:kh ();;; (princ "\n                      CHUONG TRINH VE KHUNG BAN DO .")(command "osnap" "Endpoint,Intersection")(setvar "blipmode" 1)   (setq sp (getpoint "\n Chon goc khung thu 1 (Goc trai ben tren): "))   (setq ep (getpoint sp "\n Chon goc khung thu 2 (Goc phai ben duoi): "));   (princ "\n Chon goc khung thu 1 (Goc trai ben tren): ");   (setq sp (getpoint)) ;  (prompt "\n Chon goc khung thu 2 (Goc phai ben duoi): ") ;  (setq ep (getcorner (getpoint)) )  (command "osnap" "off")   (setq tyle (getint "\n Hay cho ty le ban do <500>: "))   (if (= tyle nil) (setq tyle 500.0))(setvar "blipmode" 0);;--- Dat bien chung cho chuong trinh -----  (setq x1 (nth 0 sp)) (setq y1 (nth 1 sp))  (setq x2 (nth 0 ep)) (setq y2 (nth 1 ep))  (setq dayn (/ (* tyle 0.05) 500.0))  (setq kctn (/ tyle 142.857))  (setq ktmk (/ (* tyle 1.75) 500.0))  (setq caoc (/ (* tyle 0.90) 500.0))  (setq dich (/ (* tyle 0.33) 500.0));;;---- ve khung trong ------   (command "LAYER" "M" "KHUNG" "")   (Command "PLINE"             (list x1 y1)             (list x2 y1)             (list x2 y2)             (list x1 y2)             "C"   );;;;-------Ve khung ngoai ----------   (command "LAYER" "M" "KHUNG" "")   (Command "PLINE"             (list (- x1 kctn) (+ y1 kctn)) "w" dayn dayn             (list (+ x2 kctn) (+ y1 kctn))             (list (+ x2 kctn) (- y2 kctn))             (list (- x1 kctn) (- y2 kctn))             "C"   );;;------- Ve net ngang va doc ------- (setq nhay (/ tyle 10.0)) (setq tmpX1 (/ x1 nhay)) (setq tmpX2 (fix tmpX1)) (setq x (* tmpX2 nhay)) (setq tmpY1 (/ y2 nhay)) (setq tmpY2 (fix tmpY1)) (setq y (* tmpY2 nhay));-------------------------------------(command "style" "STANDARD" "" caoc "" "" "" "" "" "")(while (<= x x2)       (if (>= x x1)          (command "LINE" (list x y1) (list x (+ y1 kctn)) ""                   "LINE" (list x y2) (list x (- y2 kctn)) ""                   "TEXT" "C" (list x (+ y1 (/ kctn 2))) 0. (rtos x 2 0)                   "TEXT" "TC" (list x (- y2 (/ kctn 2))) 0. (rtos x 2 0)          )       ) ;endif  (setq x (+ x nhay)))(while (<= y y1)   (setq tmp1 (rtos y 2 0))   (setq len1 (strlen tmp1))   (if ( <= len1 3)      (progn (setq bef "000") (setq aff tmp1))      (progn (setq bef (substr tmp1 1 (- len1 3)))       (setq aff (substr tmp1 (- len1 2) 3))      )   ) ;;if      (if (>= y y2)           (command "LINE" (list x1 y) (list (- x1 kctn) y) ""                    "LINE" (list x2 y) (list (+ x2 kctn) y) ""                    "TEXT" "BC" (list (- x1 (/ kctn 2)) y) 0. bef                    "TEXT" "TC" (list (- x1 (/ kctn 2)) (- y dich)) 0. aff                    "TEXT" "BC" (list (+ x2 (/ kctn 2)) y) 0. bef                    "TEXT" "TC" (list (+ x2 (/ kctn 2)) (- y dich)) 0. aff           )      ); endif  (setq y (+ y nhay)));--------- Ve chu thap --------------(setq nhay (/ tyle 10.0)) (setq tmpX1 (/ x1 nhay)) (setq tmpX2 (fix tmpX1))(setq x (* tmpX2 nhay))(setq tmpY1 (/ y2 nhay)) (setq tmpY2 (fix tmpY1))(while (< x x2)  (setq y (* tmpY2 nhay))     (while (< y y1)        (if (and (>= x x1) (>= y y2))           (command "LINE" (list (- x ktmk) y) (list (+ x ktmk) y) "")        )        (if (and (>= y y2) (>= x x1))           (command "LINE" (list x (- y ktmk)) (list x (+ y ktmk)) "")        )       (setq y (+ y nhay))     )  (setq x (+ x nhay)))(command "REDRAW")); End of program 

 

và cả muốn vẽ tỷ lệ 500 gõ số 5, tỷ lệ 1000 gõ số 1 và 2000 gõ số 2 và lưu lại giá trị cho những lần sau.

http://www.cadviet.c...547_drawing.rar

Hề hề hề,

1/- Không hiểu yêu cầu của bạn:

nếu 500 thì nhập 5,

nếu 1000 thì nhập 1

Nếu 2000 thì nhập 2 

Vậy nếu 5000 thì nhập 50 hay 500 và nếu 50 thì nhập 0.5 hay 0.0005???????

2/- nếu đơn thuần chỉ là đổi font của tẽxt, tại sao bạn không vào tẽt style mà đổi, vừa nhanh lẹ, vừa chả phải phiền hà ai. Text do líp viết ra sử dụng style là Standard.

3/- cái việc thêm text cho góc khung là thêm cho góc trong hay góc ngoài??? nếu là góc ngoài thì ...... thật là .......


  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#37 vuminhchau

vuminhchau

    biết vẽ polygon

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

Đã gửi 29 April 2014 - 09:09 AM

cảm ơn anh đã quan tâm! - 1/em thuong xuyen chi su dung 3 loai ti le 500, 1000, 2000 nen em can nhap vay cho nhanh. - 2/ Text đó líp viết ra sử dụng style là Standard. cái này em đổi thành Times New Roman nhưng nó đổi toàn bộ bản vẽ thành kiểu chữ Standard và lỗi font (font đang dùng là Times New Roman). (command "style" "STANDARD" "" caoc "" "" "" "" "" "") =>(command "style" "text" "Times New Roman" "" caoc "" "" "" "" "" "") - 3/ cái việc thêm text cho góc khung là thêm cho góc trong hay góc ngoài??? em muốn thêm góc trong như hình vẽ trên (chức năng up lai không được nữa rồi). nhờ các anh quan tâm và giúp đỡ em với!
  • 0

#38 thethaotaiphat12

thethaotaiphat12

    biết pan

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

Đã gửi 29 April 2014 - 02:32 PM

Mình đã dùng thử, nhưng mà có vài chỗ đang bị lỗi, ko biết là lỗi gì nữa, hazzzz


  • 0

Cùng nhau tập thể dục với xe đạp tập thể dục máy tập cơ bụng hiệu quả nhất. Mua máy chạy bộ điện chính hãng ở đâu?
 


#39 vuminhchau

vuminhchau

    biết vẽ polygon

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

Đã gửi 04 May 2014 - 12:47 AM

nhờ các anh quan tâm giúp, hôm nay chức năng up tự nhiên lại được.

ở code trên nó không vẽ toạ độ ở góc khung như như hình bên phải, nhờ các anh sửa code bài post #37 lại giúp em với. (góc trong như hình minh họa bên phải)

104547_104547_untitled2.jpg


  • 0

#40 vuminhchau

vuminhchau

    biết vẽ polygon

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

Đã gửi 06 May 2014 - 07:51 AM

nhờ các anh quân tập giúp em nhé!
  • 0